マクロ・VBAについて質問です。 あるフォルダAがあり、その2つ下の階層のフォルダ名一覧を取得するVBAを作成したいです。

Excel | Visual Basic28閲覧xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0

ThanksImg質問者からのお礼コメント

お礼が遅くなりすみません、回答者の皆様ありがとうございました!BA悩みましたが、原因と対策を書いてくださったのでBAとさせていただきました。

お礼日時:10/24 22:02

その他の回答(1件)

0

Dim ii As Long Sub フォルダ名() Dim objFSO As FileSystemObject Dim strDir As String Dim i As Long strDir = Cells(4, 2) Set objFSO = New FileSystemObject i = 5 ii = 1 Call GetDirFiles(objFSO.GetFolder(strDir), i) Set objFSO = Nothing End Sub Sub GetDirFiles(ByVal objFolder As Folder, ByRef i As Long) Const ii_max As Long = 2 Dim objFolderSub As Folder For Each objFolderSub In objFolder.SubFolders If ii = ii_max Then Cells(i, 2) = objFolderSub.Name i = i + 1 End If If ii < ii_max Then ii = ii + 1 Call GetDirFiles(objFolderSub, i) ii = ii - 1 End If Next Set objFolderSub = Nothing End Sub