フォルダ内のデータファイルを1つにまとめるVBAマクロ

フォルダ内にある.csvファイルを全部まとめて1つのエクセルシートに出力するマクロです。
コピペできるコードは末尾にあります。

1回の測定で、1つのフォルダができて、その中に測定データの.csvファイルができる、という場合がよくあります。そういうとき、データを取り出すために.csvファイルを1つ1つ開くのは面倒なので、一括で1つのエクセルシートに出力するマクロを作成しました。

実装

以下のようなデータを想定します。
「sample」フォルダ内に「sample_n」という名前のサブフォルダがあり、その中には1つずつ.csvフォルダがある構造です。

.csvフォルダは次のようなデータが入っているとします。

まずエクセル開いてVBAを立ち上げて、必要な変数を定義します。

さきほど定義したFolderPathに対象フォルダを指定してもらうようにします。フォルダはユーザーが選べるようにします。

次に、ここでデータを出力する新しいシートを作成するのと、データを格納するFileSystemObject（さきほどFSOで定義）を作成します。

次がメインのファイル処理と、終了後のメッセージボックスです。メインの関数はのちほど定義します。

メインの関数です。
各サブフォルダから.csvファイルを読み込み、さきほど作成したデータ出力用シートにコピペしつつ、先頭行にサブフォルダ名を入れてどのフォルダから取ってきたかわかるようにしています。

サンプルデータの出力結果がこちら

「続きをみるには」でコピペできるコードのフルバージョンが読めます。