When I run the code below, I got an error message which says "application defined or object defined error "
what is the reason of this error please someone can explain?


Private Sub Import_Click()

Dim UserPath As String
UserPath = Application.GetOpenFilename("Text Files (*.txt), *.txt.", , "Select file to import.", , False)

With Application.ActiveSheet.QueryTables.Add(Connection :=" TEXT; " & UserPath & "" _
, Destination:=Worksheets("Data").Range("A2"))
.Name = "ImportTextFile"

End With

Mary,

There are two issues here:

First, there are blank spaces before and after the word TEXT. These must be removed. See the line of code below.

With Application.ActiveSheet.QueryTables.Add(Connection :="TEXT;" & UserPath & "" _
, Destination:=Worksheets("Data").Range("A2"))

Second, the worksheet where you create the QueryTable must be the same as the one you use for your destination, otherwise you will get another error.

I hope this helps.

Courtesy of Jack
http://www.Excel-Expert.co.uk