Excel VBA質問箱 IV

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

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


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

65299 / 76807

←次へ　｜　前へ→


	【16083】Re:複数ファイルの一括取り込み

Asaki - 04/7/16(金) 10:43 -


	引用なし

	パスワード

こんにちは。

一般には、複数のファイルからデータを取り込む場合でも、1つずつ順番に処理します。
手作業でやることを考えても、同時にファイルを開いていたとしても、1つずつしか取り込めませんよね？

先ず最初に、全ての処理対象ファイルを選択させて決めておいてから、
実際に開いて取り込む部分をループにすればよいかと思います。

ところで、↓の宣言だと
>Private i, j, k, l As Integer
i, j, k は Variant型になってしまいますが、大丈夫ですか？

また、取り込む相手がCSVファイルということなので、テキストファイルのインポートでも良いかもしれません。
普通にCSVファイルを開くにしても、ループせずに
Workbooks(dfile).Worksheets(1).Cells(1, 1).Resize(60, 10).Value _
　　= Workbooks(pfile).Worksheets(1).Cells(1, 1).Resize(60, 10).Value
でよさそうです。

1 hits

▼

【16080】複数ファイルの一括取り込み 福 04/7/16(金) 10:28