如何在Excel中列出所有文件夹和子文件夹？

在处理目录或文件管理任务时，您可能需要快速获取特定目录内所有文件夹和子文件夹的完整列表，并直接在 Excel 中查看该信息。遗憾的是，Excel 并未提供内置功能或简单的向导来自动从指定的文件夹路径检索所有文件夹或子文件夹名称。本文介绍了一种 VBA 代码方法——允许您将任意选定目录中的所有文件夹和子文件夹直接列到工作表中。这不仅降低了人为错误的风险，还省去了繁琐的工作，帮助您快速跟踪和管理数据组织。

使用VBA代码列出所有文件夹和子文件夹

使用VBA代码列出所有文件夹和子文件夹

如果您想从指定目录中提取并显示所有文件夹和子文件夹名称到 Excel 中，利用 VBA（Visual Basic for Applications）是一种有效的解决方案。这种方法提供了灵活性和控制力，不仅可以获取文件夹名称，还可以获取其他信息，例如文件夹路径、创建日期和最后修改日期。此方法特别适合熟悉使用 Excel 开发者功能的用户，以及那些处理动态或经常变化的文件系统的用户。

1. 按 ALT + F11 打开“Microsoft Visual Basic for Applications”编辑器。此工具允许您在工作簿中添加和编辑宏。

2. 在 VBA 编辑器中，点击 插入 > 模块。这将创建一个新的模块窗口。将以下代码复制并粘贴到模块中：

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 或点击 VBA 编辑器中的运行按钮执行宏。随后会弹出一个选择文件夹对话框，提示您选择要扫描文件夹和子文件夹的目标目录。

4. 选择所需的目录并点击 确定。宏将处理该目录并生成一个新的工作簿，列出所有文件夹和子文件夹及其完整路径、直接父目录、名称、创建日期和最后修改日期，如下所示：

此 VBA 解决方案灵活方便，无需额外插件或外部软件，并自动生成输出工作簿以方便使用。然而，它最适合熟悉基本宏操作的用户，并且针对特定定制可能需要进一步调整。

相关文章：

如何将目录中的文件列表输出到Excel工作表中？