回複：Excel VBA (need help)

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