Excel VBA質問箱 IV

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

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


65226 / 76734 ←次へ | 前へ→

【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
でよさそうです。
0 hits

【16080】複数ファイルの一括取り込み 04/7/16(金) 10:28 質問
【16083】Re:複数ファイルの一括取り込み Asaki 04/7/16(金) 10:43 回答
【16091】Re:複数ファイルの一括取り込み 04/7/16(金) 11:38 お礼

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