如何将文件夹及子文件夹中的所有文件列到工作表中？

您是否尝试过将文件夹中的所有文件名列到工作表中，包括其子文件夹中的文件？实际上，在Excel中没有直接的方法可以列出文件夹及其子文件夹中的文件名。然而，今天我将介绍一些快速技巧来解决这个问题。

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

使用Kutools for Excel快速轻松地列出文件夹和子文件夹中的所有文件名

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

通常，Excel没有内置功能来处理此任务，但您可以应用以下VBA代码来完成此问题。

1. 激活一个新工作表以列出文件名。

2. 在Excel中按住ALT + F11键，打开Microsoft Visual Basic for Applications窗口。

3. 单击插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：列出文件夹和子文件夹中的所有文件名

Sub MainList()
'Updateby Extendoffice
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub
Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

4. 将代码粘贴到模块后，按F5键运行此代码，弹出一个 宏对话框，选择MainList宏名称，然后单击运行按钮，参见截图：

5. 在浏览窗口中，请选择要列出所有文件名（包括子文件夹）的文件夹，参见截图：

6. 指定文件夹后，单击确定按钮，文件夹及其子文件夹中的所有文件名已从单元格A2开始列在当前工作表中，参见截图：

使用Kutools for Excel快速轻松地列出文件夹和子文件夹中的所有文件名

通过上述代码，您只能列出文件名，有时您需要列出其他属性，例如文件大小、文件类型、创建时间、所在文件夹等。Kutools for Excel包含一个有用的功能——文件名目录，使用此功能，您可以快速列出文件夹及其子文件夹中的所有或特定类型的文件名。

下载并安装 Kutools for Excel后，请按照以下步骤操作：

1. 单击企业 > 导入与导出 > 文件名目录，参见截图：

2. 在文件名目录对话框中，执行以下操作：

A: 单击 按钮以选择要列出文件名的文件夹；

B: 从文件类型部分指定要列出的文件类型；

C: 从文件大小单位部分选择要显示的一个文件大小单位。

注意：要列出子文件夹中的文件名，请勾选包括子目录内的文件，您还可以根据需要勾选包括隐藏文件和文件夹。如果勾选创建超链接选项，它将为每个文件名和文件夹创建超链接。

3. 然后单击确定按钮，所选文件夹及其子文件夹中包含的所有文件都已在新工作表中显示了以下属性。参见截图：

单击以了解更多关于此文件名目录工具的详细信息。

立即下载并免费试用Kutools for Excel！