KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何将文件夹及其所有子文件夹中的文件名全部列出到工作表中？

作者技术支持修改日期

若需将目录中的文件名生成列表并导入 Excel 工作表，以下方法可助您快速高效完成。请选择最适合您需求的方式。

使用网页浏览器将文件夹中的所有文件名列出到工作表中

若要通过网页浏览器列出文件夹中的文件，请确保您的计算机已安装以下浏览器之一（Firefox、Opera 和 Google Chrome）。如需在工作表中列出以下文件夹中的文件，请参见截图：

1. 在资源管理器中复制文件夹（“Folder Test”）的路径。例如，该文件夹的路径为："C:\Users\AddinTestWin10\Desktop\Folder Test"。

2. 打开任意网页浏览器（如 Firefox、Opera 或 Google Chrome），将文件路径粘贴到地址栏中，然后按 Enter 键。请参见截图：

浏览器地址栏中粘贴的文件夹路径截图

3. 按下“Ctrl+A”全选网页浏览器中的内容，再按“Ctrl+C”复制。

4. 打开 Excel，直接使用“Ctrl+V”快捷键将内容粘贴到工作表中。请参见截图：

从文件夹粘贴到 Excel 工作表中的文件列表截图

注意事项：
  • 1. 使用此方法时，仅显示主文件夹中的文件，子目录内的文件将不会被列出。
  • 2. 文件名的超链接无法使用。

使用公式将文件夹中的所有文件名列出到工作表中

在 Excel 中，您也可以使用公式获取文件夹中所有文件名或指定类型的文件名列表，请按以下步骤操作：

1. 将文件路径复制并粘贴到单元格中，然后在路径末尾输入 \*，如下图所示：

2. 然后单击“公式”>“名称管理器”，参见下图：

Excel 中公式名称管理器的截图

3. 在“名称管理器”对话框中，单击“新建”按钮（参见截图）：

Excel 中“新建名称”对话框截图，其中“新建”按钮被高亮显示

4. 在弹出的“新建名称”对话框中，于“名称”文本框内指定一个名称，并在“引用位置”文本框中输入以下公式（请参见截图）：

=FILES(Sheet 1!$A$1)

注意：在此公式中，“Sheet 1!$A$1”是您在第 1 步中用于插入文件路径的工作表单元格。

在 Excel 中创建新名称区域的截图

5. 然后单击“确定”>“关闭”以关闭对话框，接着在要列出文件名的空白单元格中输入以下公式，并向下拖动填充柄，直至出现空白单元格为止。此时，指定文件夹中的所有文件名均已列出，如下图所示：

=IFERROR(INDEX(Filenames,ROW(A1)),"")

注意：在此公式中，“Filenames”是您在第 4 步中创建的单元格名称，而“A1”是包含文件路径的单元格。

从文件夹填充到 Excel 中的文件名列表截图

注意事项：
  • 1. 若希望公式在关闭并重新打开文件后仍能正常运行，请将此工作簿保存为“Excel 启用宏的工作簿”格式。
  • 2. 若要列出所有特定扩展名的文件（例如所有 docx 文件），只需用 *docx* 代替 *；同理，xlsx 文件请使用 *xlsx*。

    在 Excel 中筛选特定文件类型的动画演示

使用 VBA 代码将文件夹中的所有文件名列出到工作表中

使用以下 VBA 代码在工作表中列出文件夹中的文件：

1. 打开工作表，单击选择您希望填入文件名的单元格。

2. 在 Excel 中按住 Alt + F11 键，即可打开“Microsoft Visual Basic for Applications”窗口。

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

VBA 代码：将文件夹中的所有文件名列出到工作表中

Sub listfiles()
'Updateby Extendoffice
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim I As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    For Each xFile In xFolder.Files
        I = I + 1
        ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
    Next
End Sub

4. 然后按 F5 键运行代码，系统将弹出一个“浏览”窗口，请选择您要列出文件名的文件夹。

VBA 中文件浏览窗口的截图

5. 然后单击“确定”，指定文件夹中的文件将以超链接形式列在工作表中。请参见截图：

Excel 中带有超链接的文件名列表截图

注意：仅主文件夹中的文件名可被列出。

使用 Kutools 将文件夹及其子文件夹中的所有文件名列出到工作表中

“Kutools for Excel”的“文件名目录”功能可轻松在工作表中生成文件列表目录。

Kutools for Excel 提供 300 多项高级功能，简化复杂任务，提升创造力与效率。集成 AI 能力，Kutools 精准自动化任务，让数据管理变得轻松自如。Kutools for Excel 的详细信息……         免费试用……

1. 打开 Excel，单击“KUTOOLS PLUS”>“导入导出”>“文件名目录……”，请参见下方截图：

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

文件名列表对话框选项的截图

（1）单击文件名列表对话框中文件夹选择按钮的截图按钮，指定包含要列出文件的文件夹；

（2）勾选“包含子目录中的文件”选项以列出子文件夹中的所有文件名，或勾选“包括隐藏文件和文件夹”选项以同时列出隐藏文件及隐藏文件夹中的文件名；

（3）在“文件类型”部分中指定要列出的文件类型；

（4）从“文件大小的单位”部分中选择您希望显示的文件大小单位。

（5）根据需要勾选“创建超链接”选项。

3. 单击“确定”，即可在新工作表中生成目录或子目录中的文件列表。请参见截图：

使用 Kutools 生成的完整文件名列表截图

Kutools for Excel——通过 300 多款必备工具全面增强 Excel 功能，助您工作更快速、更轻松，并借助 AI 功能实现更智能的数据处理与高效办公！立即获取

更多相关文章：

  • 从工作簿中创建所有工作表名称的列表
  • 假设您有一个包含多个工作表的工作簿，是否希望快速在当前工作簿中列出所有工作表名称，而无需逐一手动输入？本教程将为您介绍如何在 Excel 中高效生成工作表名称列表。
  • 使用下拉列表在工作表之间导航
  • 假设您有一个包含多个工作表的工作簿，现在希望创建一个下拉列表或组合框，其中列出所有工作表名称——只需从列表中选择任一工作表名称，即可立即跳转至该工作表。本文将为您介绍如何在 Excel 中利用下拉列表实现工作表间的快速导航。

最佳办公效率工具

🤖KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多
在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
  • 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
  • 将您的工作效率提升 50%，每天减少数百次鼠标点击！

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱