| |
初めまして。哲と申します。よろしくお願い致します。
現在、ツールをＶＢＡで作成してるのですが、複数のファイルを選択して一つのシートにまとめるのにどうしたら良いのかわからない部分がありますので、どなたかご回答の方よろしくお願いします。
ツールに必要な処理は以下の通りです。
１、ファイル選択ダイアログで複数のファイルを選択する。 （GetOpenFileを使うつもりです。また、それらのファイルは.csv形式です。）
２、それらのファイルを一つずつオープンする。
３、別のワークブックを開き、その中のシートに内容をすべてコピーする。
具体的に書くと、
ファイル選択ダイアログから、AAA.csv と BBB.csv と CCC.csv を選択。
↓
まず、AAA.csv を開いて、その内容を XXX.xls の sheet1 にコピペ。
↓
AAA.csv を閉じる。
↓
（ループ処理）次にBBB.csvを開いて、同じようにその内容をXXX.xlsのsheet1にコピペ。
↓
（ループ処理）BBB.csv を閉じる。
↓
（ループ処理）同じ処理をCCC.csvにも行う。
それらの.csvファイルはすべて同じフォーマットの情報（名前・住所・電話番号等）が入っています。
一つのファイルしか選択しないときのコードはわかるのですが、複数のファイルを選択して、それをループ処理で一つのシートにまとめるとなると混乱してしまいます。
何方か何卒よろしくお願いいたします。
|
|
哲
- 05/9/14(水) 0:54 -
