複数選択フォルダの配列への格納
複数選択でのファイルの配列取り込みは下記でおこなえましたが、
tmp = Application.GetOpenFilename(, , "処理したいファイルを複数選択してください", , True)
For Z = LBound(tmp) To UBound(tmp)
同じような感じの事をフォルダでしたいのですが・・・
ネットや本を探してみましたが、見当たりません・・・
具体的には複数選択したフォルダ(年月の名前が付いたフォルダ)が複数個あり
そのフォルダ内に約700個づつファイルがります
フォルダは年月の名前が付くフォルダなので1年分だと12フォルダ、2年分だと24フォルダになり名前も変わります(201403、201404、201405、・・・・)
ファイルはフォルダの1分毎のデータになりますので名前が変わり、数も多いです。1フォルダ分(1ヶ月なら24時間×28~31日でだいたい700ファイルくらい)なので過去分も含めると月数が増えると手ではちょっとキツイです。
3か月分を処理するとして
フォルダ201403、201404、201405を複数選択し
フォルダ201403の
ファイル201403010001→201403010002→201403010003・・・ 201403312359
フォルダ201404の
ファイル201404010001→201404010002→201404010003・・・201404302359 フォルダ201405の
ファイル201405010001→201405010002→201405010003・・・201405312359
まで順次ファイルを開いてセルのデータを1ヶ月分毎に収集したいのですが
月数が増えると手ではちょっとキツイので複数フォルダを選択するとフォルダとファイルを配列に取り込み
対象Folders = 複数選択したフォルダの配列
For Z = LBound(対象Folders) To UBound(対象Folders)
対象files = 複数選択したファルダ内のファイルの配列
For Y = LBound(対象files) To UBound(対象files)
ファイルを開いてデータ収集
Next
Next
上記のようなイメージの処理をしたいのですが
ご存知の方ご教示いただけると幸いです。
よろしくお願いいたします。
OSはWindows7、エクセルは2010です。
補足
回答ありがとうございます。 ファイルではなく、JPG画像をコピーした場合、コピー、TextEditやStickies等のテキストエディタにペーストしても、名前だけコピーが出来ないのですが、どうすればいいですか?