Why does my text file open in a new workbook?

[shakethingsup]

Hello!
I googled a code to open a text file and I can't remember where I found the code. To be honest, I don't know what a querytable is yet. The file format is actually a "*.eft" which can be opened up in notepad.


I want to achieve 2 things:

1. open the textfile in my CURRENT workbook and the current worksheet. - the code opens in a new second workbook.
2. I want the information to populated in column G. - the code opens the text file in cell A1.
   
   Sub openeft()
   Dim filename
   filename = Application.GetOpenFilename("Text Files (*.EFT), *.EFT")
   If filename <> False Then
   With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & filename, Destination:=Range("$G$9"))
   Workbooks.Open filename
   End With
   End If
   Range("G:G").WrapText = True
   Columns("G").ColumnWidth = 200
   End Sub

At some point, I'd like to learn how to separate the garbled text into respective cells. In that text file, I have data such as a vendor name and the $amount but the problem is is that it all comes out into one cell. So in my other code, I am searching using instr to find certain text when ultimately, I'd like to do a vlookup. Anyway, let's do one step at a time.

What could I do differently? Please and thanks.

 

[AFPathfinder]

This is untested, but give it a shot:

Sub openeft()
    Dim filename
    
    filename = Application.GetOpenFilename("Text Files (*.EFT), *.EFT")
    
    If filename <> False Then
        With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & filename, Destination:=Range("$G$9"))
            .TextFileParseType = xlFixedWidth
            .TextFileColumnDataTypes = Array(1)
            .Refresh
        End With
    End If
    
    Range("G:G").WrapText = True
    Columns("G").ColumnWidth = 200
End Sub