Application.GetOpenFilename not working

[AMAS]

Hi,

I don't know why this is not working. Any ideas?

Dim TxtFile                  As String

' Open dialog box
  TxtFile = Application.GetOpenFilename("XML Files,*.xml")
    If TxtFile = "False" Then Exit Function

' Import data from Text file
      With ThisWorkbook.ActiveSheet.QueryTables.Add(Connection:="TEXT;TxtFile", _
        Destination:=Cells(Rows.Count, "A").End(xlUp)(2))
        .Refresh BackgroundQuery:=False
    End With

If I hardcode the file address then it works fine, but when I use TxtFile instead of the file path then it gives an error that it can't find the file and highlights:

.Refresh BackgroundQuery:=False

AMAS

 

[Richard Schollar]

You need to concatenate the file name/path into the Connection argument:

With ThisWorkbook.ActiveSheet.QueryTables.Add(Connection:="TEXT;" & TxtFile, _

 

[AMAS]

Hi Peter and Richard,

Peter: Thanks Peter, but sorry to report that this solution doesn't resolve the issue. The file that I am opening is an xml file and I just want to import it as a txt file. If I try to open it first then excel tries to parse everything in a row rather than leave it in one column.

Richard: Thanks Richard. You were right. I needed quotation marks and AND signs around the variable. That resolved the problem.

Thanks again everyone.

AMAS