Excel VBA質問箱 IV

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

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


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

58556 / 76807

←次へ　｜　前へ→


	【22978】Re:CSVﾌｧｲﾙの読み込み

G-Luck - 05/3/9(水) 11:26 -


	引用なし

	パスワード

▼ひなこさん：

>>Path = 'ディレクトリ名
>>FileName = "M*_6.csv"
>>Fn = Dir(Path & Applicaiton.Pathseparetor & FileName)
>>
>>Do
>>　　Workbooks.Open FileName:= Path & Applicaiton.Pathseparetor & Fn
>>　 '処理
>>　　Fn = Dir()
>>　　IF Fn = "" Then Exit Do
>>Loop

>実行してみたのですが、"M*_6.csv" で『*』にｴﾗｰが出てしまうみたいです。

ファイル名は
Fn = Dir(Path & Applicaiton.Pathseparetor & FileName)
で、Fn に入ります。
その後、
Fn = Dir()
で同一条件で、別に一致するものを探します。

QueryTable　については無知なので、そんな方法で取得できるかわかりませんが、
ファイル名自体の取得は上記コードを参考にすれば可能です。

後は、QueryTable についてご存知に方におねがいします。

0 hits

▼

【22972】CSVﾌｧｲﾙの読み込み ひなこ 05/3/9(水) 10:39