Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

38134 / 76738

←次へ　｜　前へ→


	【43747】Re:インポートするファイル名にセルの値を代入したい

うな - 06/10/24(火) 16:49 -


	引用なし

	パスワード

▼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さん、ありがとうございました。

今後もよろしくお願い致します。

0 hits

▼

【43741】インポートするファイル名にセルの値を代入したい うな 06/10/24(火) 14:06