Excel VBA質問箱 IV

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

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


38128 / 76732 ←次へ | 前へ→

【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 質問
【43744】Re:インポートするファイル名にセルの値を... Jaka 06/10/24(火) 16:31 発言
【43745】Re:インポートするファイル名にセルの値を... Jaka 06/10/24(火) 16:35 発言
【43746】Re:インポートするファイル名にセルの値を... Kein 06/10/24(火) 16:40 回答
【43747】Re:インポートするファイル名にセルの値を... うな 06/10/24(火) 16:49 お礼

38128 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free