No.2ベストアンサー
- 回答日時:
こんにちは
>なぜでしょうか。
誤解があるようです。
>For Each Fol In GetFolder.SubFolders
.SubFoldersでは、指定フォルダ直下のフォルダが得られるだけで、それ以下の階層(2階層以上)のフォルダは取得できません。
(全ての包含されているフォルダを取得するわけではない)
ですので、それ以下の階層のフォルダやファイルを取得したければ、Fol内のファイル、フォルダに対して同様の処理を行う必要があります。
要は、Fol を myFolder と同様に扱って・・・と処理してゆく必要があります。
2階層程度と決まっていれば、そのまま記述しても大したことはありませんけれど、階層が何階層もある場合には、No1様のおっしゃるように「再起処理」にするのが効率の良い記述になります。
(というか、不確定の階層数に対して処理をするには、そのようにしておかないとならない)
以下は、ファイルの一覧を作成する例です。
後半部分(フォルダ内の全ファイルを取得)がご参考になるのではないかと思います。
https://mmm-program.com/vba-get-files/
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
- Excel(エクセル) マクロのコードを、少しでも削って短くしたい 3 2022/08/30 07:46
- Visual Basic(VBA) 【マクロ】フォルダにファイルが1つも無い時に、ファイルがありませんとメッセージを表示する 4 2022/08/28 08:48
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Access(アクセス) エクセルのマクロについて教えてください。 2 2023/02/03 16:07
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
- Excel(エクセル) 【VBAファイル移動】2つのマクロを順に実行。1つ目のマクロが実行不可⇒2つ目が実行不可となる件 2 2022/07/29 12:17
- Visual Basic(VBA) outlook マクロが終了しません。 1 2022/09/02 11:14
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ActiveWorkbook.Pathの一つ下のフォルダ
Excel(エクセル)
-
サブフォルダ内のファイルを全部移動させたい。
Visual Basic(VBA)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
VBA フォルダ名に特定の文字を含むフォルダを別フォルダにコピーするコードを教えて下さい
Visual Basic(VBA)
-
5
EXcelのマクロで相対パスでファイルを開く
その他(Microsoft Office)
-
6
文字列の中の検索で、3番目に出てくる文字の位置を調べたい
Excel(エクセル)
-
7
大量のフォルダからひとつのフォルダにファイルをまとめたい!
その他(ソフトウェア)
-
8
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
9
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
10
エクセルVBAで一つ上の階層を指定して保存したい
Excel(エクセル)
-
11
VBA 見つからなかった時の処理
Excel(エクセル)
-
12
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
13
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
14
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
-
15
VBAでの Replace関数で、ワイルドカードは使えないのでしょうか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
サーバ内のフォルダ名と各フォ...
-
フォルダにリンクを貼りたい
-
ファイル名と同名のフォルダを...
-
【マクロ】ファイル名の日付に...
-
あるフォルダの中にあるファイ...
-
会社のネットワーク上のファイ...
-
VBA 最新のフォルダ取得
-
VB6.0 SHCreateDirectoryExの...
-
ファイル名に特定の文字列を含...
-
フォルダを開いて、閉じるのプ...
-
言語[C#]..フォルダ選択ダイア...
-
VBA フォルダ名に特定の文字を...
-
エクセルのVBAで特定のフォルダ...
-
VB.NRT FolderBrowserDialogを...
-
[VBS] Unicodeの文字化けを防ぎ...
-
エクセルマクロで指定フォルダ...
-
バッチファイル フォルダを...
-
機種依存文字を含むフォルダ/フ...
-
ファイル名から該当フォルダへ移動
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
VBA 最新のフォルダ取得
-
バッチファイルが保存されてい...
-
ファイル名と同名のフォルダを...
-
【マクロ】ファイル名の日付に...
-
VBA フォルダ名に特定の文字を...
-
デスクトップの画像をhtmlに表...
-
フォルダ内のPDFファイル名を変...
-
ディレクトリ名変更してコピー...
-
多量のファイルをフォルダに自...
-
Excelで指定したフォルダに保存...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
Excelのハイパーリンクについて...
-
あるフォルダーのファイルを違...
-
パス名に2バイト文字(マルチバ...
-
同一フォルダ内の別ブックから...
-
エクセルのマクロについて教え...
-
バッチファイルで指定フォルダ...
-
ExcelのVBAでフォルダ指定がで...
おすすめ情報