Excel VBA質問箱 IV

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

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


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

38129 / 76732

←次へ　｜　前へ→


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

Kein - 06/10/24(火) 16:40 -


	引用なし

	パスワード

クエリーでなく、一般的な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

2 hits

▼

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