ExcelマクロVBAサンプル集
エクセルでファイル一覧を作成.№1（概要）

エクセルでファイル一覧を作成しますサブフォルダ以下も全て取得し一覧表示しますその前にマクロって何？と言う人は第3回.顧客登録のシートを作成その前にマクロって何？ 第4回.顧客登録のシートを作成(1) 第10回.コーディングとデバッグ このあたりをお読みください。モジュールの挿入方法や変数定義については

エクセルでファイル一覧を作成しますサブフォルダ以下も全て取得し一覧表示します先にまず完成イメージです。前回のプログラム Subファイル一覧取得()DimstrBufAsStringDimiAsLongi= 5strBuf=Dir(Cells(4,2))DoWhilestrBuf() ""Cells(i,

エクセルでファイル一覧を作成しますサブフォルダ以下も全て取得し一覧表示します前回のプログラムです。Subファイル一覧取得()DimstrBufAsStringDimiAsLongi= 5strBuf=Dir(Cells(4,2),vbNormal+vbReadOnly+vbDirectory)Do WhilestrBuf()""IfstrBuf()"."…

エクセルでファイル一覧を作成しますサブフォルダ以下も全て取得し一覧表示します前回のプログラムではフォルダが無い場合のチェックや最後に"\"を付けておく必要がありました。これらをプログラムに組み込みます。IfRight(Cells(4,2),1)="\"ThenstrDir=Cells(4,

エクセルでファイル一覧を作成しますサブフォルダ以下も全て取得し一覧表示します前回の予告通りFileSystemObjectを使います。Dir関数では限界がありますというかかえって面倒です。FileSystemObjectを使うことによってすっきりしたコードになりますし次回以降の再帰処理もしやすくなります。

エクセルでファイル一覧を作成します、サブフォルダ以下も全て取得し、一覧表示します、前回の予告通り、今回は再帰処理を実装します。その前に、再帰処理とは 簡単に言えば、自分自身をCallすることです、「再帰呼び出し」と言います。同じ処理を繰り返し行う場合に使用します。

エクセルでファイル一覧を作成します、サブフォルダ以下も全て取得し、一覧表示します、さて、前回の再帰処理で、サブフォルダも以下も全て取得できましたので、後は、体裁を整えるだけになりました。今回は、サブフォルダ毎に、列をずらして（インデントして）、見やすくします。

エクセルでファイル一覧を作成します、サブフォルダ以下も全て取得し、一覧表示します、いよいよ、大詰めです、今回は罫線を引きましょう。一見すると、かなり複雑な線を引かないといけないように見えます。規則性を見つけて下さい。

エクセルでファイル一覧を作成します。サブフォルダ以下も全て取得し一覧表示しますいよいよ最終回です使えるマクロにする為の総仕上げになります。１．画面の更新を停止してスピードアップする ２．処理中のフォルダをステータスバーに表示する ３．エクセルファイルはクリックで開けるようにする 以上を組み込みます。