Run time error 1004

[VegasNath]

Code: Select all

Dim strFile As String

strFile = ThisWorkbook.Path & "\" & "Export.TXT"

    Sheets("1").Select
    With ActiveSheet.QueryTables.Add(Connection:=strFile, Destination:=Range("A1"))

? strFile
C:\Users\Nathan\Documents\Export.TXT

I'm getting Run time error 1004 on the above, please can anyone tell me why? Thanks

[HansV]

As you can read in the help subject for the Add method of the QueryTables object, the connection string for a text file should begin with "TEXT;", so use

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=Range("A1"))

[VegasNath]

Thanks Hans, I appreciate your help!