ExcelのVBAでの複数階層からのフォルダ名の取得
下記階層に対して以下の処理をExcelのVBAで行うにはどしたら良いか、
申し訳ありませんが、どうか教えて頂きたく思います。
C:\test1
├\aaa\ddd
│ ├\xxx1\
│ └\yyy2\
│
├\bbb\ddd
│ └\xxx3\
│
│
└\ccc\ddd
├\xxx4\
├\xxx5\
└\zzz6\
1 C:\test1を指定する
2 1で指定した中にある各\dddフォルダ内にあるフォルダ名を順に取得する
3 2で取得したフォルダ名をExcelのSheet1のA1から順に書き出す
Excel
A B C D E
1 xxx1
2 yyy2
3 xxx3
4 xxx4
5 xxx5
6 zzz6
7
8
9
Sheet1 Sheet2 Sheet3
勉強不足で申し訳ありません。
どうぞ宜しくお願い致します。
No.1
- 回答日時:
>複数階層からのフォルダ名の取得
フォルダ名が取得できれば,各フォルダからのファイルは拾い上げられるという前提で。
Dir関数の再帰呼び出しとFileSystemObjectを使う方法の2通り,下記を参考にマスターしておきましょう。
http://www.moug.net/tech/exvba/0150117.htm
ちなみにフォルダツリーの取得はあくまで途中経過で,最終的にはやはり中のファイルが必要だという場合,FileSearchする手も考えられます。ただしご利用のエクセルのバージョンによります。
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …
回答ありがとうございます。
一応FileSystemObjectでの作成を考えています。
一部のフォルダ名の取得は自力で適いましたが、
各フォルダから拾い上げる事ができませんでした。
参照先の内容は非常に分かりやすいですね。
理解しておく必要がありますので、リンク先で勉強させて頂きます。
No.2
- 回答日時:
詳しくは書きませんが、ファイルシステムオブジェクトを使って、C:\test1を取得してFor Eachでディレクトリ名を取り出しながらシートに記載していくほうが簡単だと思います。
回答ありがとうございます。
やはりFileSystemObjectが使い勝手が良さそうですね。
C:\test\aaa\ddd\を指定して、SubFoldersで、
ddd内部のフォルダ名を取得する事までは出来ましたが、
それを各フォルダから一気に取得する事が出来ませんでした。
どうも自分は、何か根本的な所が理解出来ていないようです。
No.3ベストアンサー
- 回答日時:
※サンプルプログラムです。
Public 設定セル As Range
Sub フォルダ処理()
Const 開始フォルダ = "C:\TEST1"
Dim objFSO As Object
Dim objFolder As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(開始フォルダ)
Set 設定セル = Range("A1")
Call 該当フォルダ取得(objFolder)
Set objFolder = Nothing
Set objFSO = Nothing
End Sub
Sub 該当フォルダ取得(フォルダパス As Object)
Dim objSubFolder As Object
For Each objSubFolder In フォルダパス.SubFolders
Call 該当フォルダ取得(objSubFolder)
Next
If UCase(フォルダパス.ParentFolder.Name) = "DDD" Then
設定セル = フォルダパス.Name
Set 設定セル = 設定セル.Offset(1)
End If
Set objSubFolder = Nothing
End Sub
回答ありがとうございます。
抽出結果に加え、コーディングの内容と、まさに自分が作りたかったものです。
>Const 開始フォルダ = "C:\TEST1"
この部分に関しては、毎回指定・選択出来る形にしておこうと思いますので、
質問に記載していない部分を含め、調べて自己解決して完成させたいと思います。
皆様、本当にありがとうございました。
No.4
- 回答日時:
フォルダ操作は利用頻度高いと思うので、
いきなり回答VBAを実行せずに内容(仕組み)を理解してから行う方が良いです。
応用がきくので、リンク先載せておきます。
「すぐに役立つエクセルVBAマクロ集」サイト
「ブックマーク」
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv252.htm …
1) フォルダ中のファイル名をシートに書く
ネットでは、
ここ以外にも探せばいろいろ図解入り説明があると思います。
回答ありがとうございます。
仰る通り、今後色々な状況に対応するには、
根本を理解して自力で応用する必要がありますね。
単発操作はネットを参考に何とか分かるのですが、
それを他の操作と組み合わせたり繰り返す動作が現状飲み込めません。
今週末の休みに、参照先をしっかり勉強させて頂きます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
- ネットワーク コマンドプロンプトで、コマンドの飛ばし方を教えてください。 ネットワークにデータを飛ばす(copy) 4 2022/10/19 11:21
- Visual Basic(VBA) worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応 3 2022/12/27 22:27
- その他(Microsoft Office) パワークエリの複数ファイルのデータ統合について 3 2022/07/14 17:06
- Visual Basic(VBA) Excel VBA ファイル取得について フォルダの中に、ファイル名“会議“を含むファイルが1つまた 9 2022/10/12 01:18
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- Visual Basic(VBA) VBA For Each 〜 複数条件について 3 2022/10/20 20:05
- Gmail Googleの連絡先を共有する方法があればアドバイス願います。 3 2023/03/30 11:11
- UNIX・Linux bash のファイルの読み込み方についてご質問 3 2023/05/15 20:40
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA 最新のフォルダ取得
-
ファイル名と同名のフォルダを...
-
会社のネットワーク上のファイ...
-
Windows10でコマンドプロンプト...
-
パス名に2バイト文字(マルチバ...
-
windowsでテキストファイルの各...
-
エクセルマクロで指定フォルダ...
-
デスクトップの画像をhtmlに表...
-
Excel VBA 同じ名前のフォルダ...
-
Access VBA で フォルダ権限...
-
多量のファイルをフォルダに自...
-
vbsで選択ダイアログを表示した...
-
【マクロ】ファイル名の日付に...
-
Excelのハイパーリンクについて...
-
VBAで行うフォルダ・ファイル検...
-
Wallpaper Engineでおすすめの...
-
[C#]FolderBrowserDialogのタイ...
-
ThisWorkbookがあるフォルダ更...
-
VBA フォルダの複数選択ができない
-
GetAttrが原因?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
windowsでテキストファイルの各...
-
VBA 最新のフォルダ取得
-
ファイル名と同名のフォルダを...
-
VBA フォルダ名に特定の文字を...
-
デスクトップの画像をhtmlに表...
-
Excelのハイパーリンクについて...
-
フォルダ内のPDFファイル名を変...
-
Excelで指定したフォルダに保存...
-
会社のネットワーク上のファイ...
-
【マクロ】ファイル名の日付に...
-
保存先のフォルダ名を指定した...
-
多量のファイルをフォルダに自...
-
パス名に2バイト文字(マルチバ...
-
ディレクトリ名変更してコピー...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
サーバ内のフォルダ名と各フォ...
-
フォルダにリンクを貼りたい
-
vbsで選択ダイアログを表示した...
おすすめ情報