|
クエリーでなく、一般的なOpenステートメントで読み込んだら
どうでしょーか ? こんなコードでよいと思います。
Sub マッチング2()
Dim stCNo As String, MyF As String, Buf As String
Dim i As Long
Dim Ary As Variant
stCNo = Worksheets("結果").Range("B3").Value
If stCNo = "" Then Exit Sub
MyF = "C:\Data\" & stCNo & ".txt"
If Dir(MyF) = "" Then
MsgBox "そのファイルは存在しません", 48
Exit Sub
End If
Sheets("注文書").Range("A2").Value = stCNo: i = 3
Open MyF For Input Access Read As #1
Do Until EOF(1)
Line Input #1, Buf
Ary = Split(buf, vbTab)
Sheets("注文書").Cells(i, 1).Resize(, UBound(Ary) + 1) _
.Value = Ary
i = i + 1: Erase Ary
Loop
Close #1
MsgBox stCNo & ".txt を読み込みました", 64
End Sub
|
|