如何在 Excel 中列出所有資料夾和子資料夾？

您是否曾經遇到過這樣的問題，即需要將指定目錄中的所有資料夾和子資料夾列到工作表中？在 Excel 中，沒有快速且方便的方法可以一次性獲取特定目錄中所有資料夾的名稱。為了解決這個問題，本文可能會對您有所幫助。

使用 VBA 程式碼列出所有資料夾和子資料夾

使用 VBA 程式碼列出所有資料夾和子資料夾

如果您想從指定目錄中獲取所有資料夾名稱，以下 VBA 程式碼可能會對您有所幫助，請按照以下步驟操作：

1. 按住「ALT + F11」鍵，這會打開「Microsoft Visual Basic for Applications 視窗」。

2. 點擊「插入」>「模組」，然後將以下程式碼粘貼到「模組視窗」中。

VBA 程式碼：列出所有資料夾和子資料夾名稱

Sub FolderNames()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim xPath As String
Dim xWs As Worksheet
Dim fso As Object, j As Long, folder1 As Object
With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Choose the folder"
    .Show
End With
On Error Resume Next
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Application.Workbooks.Add
Set xWs = Application.ActiveSheet
xWs.Cells(1, 1).Value = xPath
xWs.Cells(2, 1).Resize(1, 5).Value = Array("Path", "Dir", "Name", "Date Created", "Date Last Modified")
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder1 = fso.getFolder(xPath)
getSubFolder folder1
xWs.Cells(2, 1).Resize(1, 5).Interior.Color = 65535
xWs.Cells(2, 1).Resize(1, 5).EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Sub getSubFolder(ByRef prntfld As Object)
Dim SubFolder As Object
Dim subfld As Object
Dim xRow As Long
For Each SubFolder In prntfld.SubFolders
    xRow = Range("A1").End(xlDown).Row + 1
    Cells(xRow, 1).Resize(1, 5).Value = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder.DateLastModified)
Next SubFolder
For Each subfld In prntfld.SubFolders
    getSubFolder subfld
Next subfld
End Sub

3. 然後按下「F5」鍵來執行此程式碼，隨後會彈出一個「選擇資料夾」視窗，接著您需要選擇要列出資料夾和子資料夾名稱的目錄，請參見截圖：

4. 點擊「確定」，您將在新工作簿裡獲得資料夾和子資料夾的路徑、目錄、名稱、創建時間和最後修改時間，請參見截圖：

相關文章：

如何在 Excel 中將目錄中的文件列表到工作表中？