I have a module that uses the following line of code.

Workbooks.OpenText Filename:="c:\GTX\Print\sysres.txt",
DataType:=xlFixedWidth

This works great but what I want to do is open the text file in the
same worksheet. I have done some searching and found that there is a
method called QueryTable that can be used to import into the same
worksheet.

Dim qryTable As QueryTable
Dim rngDestination As Range
Dim strConnection As String
` Define the connection string and destination range.
strConnection = "TEXT;C:\Files\Sales.csv"
Set rngDestination = Sheet6.Range("A1")
` Create the QueryTable.
Set qryTable = Sheet6.QueryTables.Add(strConnection, rngDestination)

The issue I have is that I am not importing a csv file but a file
that uses fixed width columns.

Does anyone have any idea if I can do this using the query table
method. I have done a hunt around but haven't found anything.