Dim FileName As String
FileName = "TEXT;C:\test.txt"
With ActiveSheet.QueryTables.Add(Connection:=FileName, Destination:=Range("J13"))
.Name = "test"
.FieldNames = True
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
