Excel2002 VBAのOPENコマンドで、指定したディレクトリー内にあるcsvファイルをすべて 読み込む方法をお教えください


Open ファイル名 For Input As #1
Do While Not EOF(1)
Input #1, BUF(1), BUF(2), BUF(3), BUF(4), BUF(5), BUF(6), BUF(7), BUF(8), BUF(9), BUF(10), BUF(11)
~処理~

Loop

上記のファイル名部分を ディレクトリ内全
CSVに対して行いたいのですが
以上、よろしくお願いします。

回答の条件
  • 1人2回まで
  • 登録:2006/05/24 15:22:13
  • 終了:2006/05/24 16:26:27

ベストアンサー

id:gong1971 No.1

gong1971回答回数443ベストアンサー獲得回数682006/05/24 15:43:44

ポイント60pt

"C:\data\csv"以下のcsvファイルだとして...。


ChDir "C:\data\csv"

dd = Dir("C:\data\csv\*.csv")

Do Until dd = ""

質問文にある処理

dd = Dir()

Loop


こんな感じです。

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません