Quantcast
Channel: OKWAVE 最新質問(Visual Basic/257)【本日】
Viewing all articles
Browse latest Browse all 7264

複数選択フォルダの配列への格納

$
0
0
複数選択でのファイルの配列取り込みは下記でおこなえましたが、 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です。

Viewing all articles
Browse latest Browse all 7264

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>