|
▼Kein さん:
>クエリーでなく、一般的な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
ありがとうございました。
希望していた通りにできました。
クエリーに凝り固まっていましたが、柔軟に考えなくてはと反省です。
Jakaさん、ありがとうございました。
今後もよろしくお願い致します。
|
|