|
4桁or5桁の英数字のコードがついたTXTファイルをインポートしたいのです。
セルにそのコードを入力して、そのコード名のファイルをインポートするようにコードを書きましたが、エラーは出ませんが、目的のファイルがインポートできず、空白のままです。
Sub マッチング()
Dim stCNo As String
stCNo = Worksheets("結果").Range("B3").Value
Sheets("注文書").Select
Range("A2").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\Data\" & stCNo & ".txt", Destination:=Range("A2"))
.Name = stCNo
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
End With
End Sub
よろしくご指導ください。
|
|