通常はFileSystemObjectの再帰モジュールで実現しますが、これをDir関数だけでやってみましょう。FileSystemObjectの再帰モジュールについては、エクセルでファイル一覧を作成こちらをご覧ください。'フォルダをここで指定'まずは、指定フォルダ以下の全サブフォルダを取得し、配列aryDirに入れます。IfLoop'配列aryDirの全フォルダについて、ファイルを取得し、配列aryFileに入れます。Sub上記では、ThisWorkbook.Path以下にある、全サブフォルダが、配列aryDirに入ります。aryDir(0)には、最初の指定フォルダを入れています。これは、その後の処理を書きやすくする為と、指定フォルダ直下のファイルも一緒に取得する為に入れています。全ファイルを、配列aryFileに取得しています。vbSystemこの指定は、通常のファイルだけが対象なら、指定の必要はありません。実務としては、それぞれのファイルに対する何らかの処理を記述する事になると思います。配列aryFileにフルパスのファイル名が入っていますので、その後の処理は書き易いはずです。FileSystemObjectの再帰モジュールに比べると、かなり無理やり感は否めません。それでも、FileSystemObjectを何らかの理由で使いたくない場合には、参考になると思います。配列の使い方と、ロジックの組み立てについては、大いに参考になると思います。Next)|VBA入門8.セルに文字を入れるとは(Range,Value)|VBA入門9.空白セルを正しく判定する方法(IsEmpty,IsError,HasFormula)|VBA技術解説10.ひらがな⇔カタカナの変換|エクセル基本操作ホームマクロVBAマクロVBAサンプル集Dir関数で全サブフォルダの全ファイルを取得このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。GASスプレッドシート入門スプレッドシート応用GAS入門GAS応用ホームマクロVBAマクロVBAサンプル集Dir関数で全サブフォルダの全ファイルを取得このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。