如何快速将文件夹中的图片名称/文件名列表到Excel单元格中？

在本教程中，我将介绍一些技巧，快速将特定文件夹中的所有图片名称或文件名列在Excel工作表中，如下图所示。 快速导航 >使用VBA列出文件夹中的图片名称到Excel >使用“文件名列表”工具列出文件夹中的图片名称或特定格式的文件名到Excel >下载示例文件

在Excel中，没有内置函数可以自动将你选择的文件夹中的所有图片名称列在一个单元格中，但我有一个VBA代码可以帮助你快速解决这个问题。

1. 在Excel中，然后按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在弹出窗口中，点击 插入 > 模块 创建一个新的模块脚本。

3. 复制以下代码并将其粘贴到新的模块脚本窗口中。

Sub PictureNametoExcel()
'UpdatebyExtendoffice 
    Dim I As Long
    Dim xRg As Range
    Dim xAddress As String
    Dim xFileName As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xRg = xRg(1)
    xRg.Value = "Picture Name"
    With xRg.Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 10
    End With
    xRg.EntireColumn.AutoFit
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    I = 1
    If xFileDlg.Show = -1 Then
        xFileDlgItem = xFileDlg.SelectedItems.Item(1)
        xFileName = Dir(xFileDlgItem & "\")
        Do While xFileName <> ""
            If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
                xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
                I = I + 1
            End If
            xFileName = Dir
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

4. 按下 F5 键，然后会弹出一个对话框让你选择一个单元格来放置图片名称。

5. 点击 确定 继续在浏览对话框中选择要列出图片名称的文件夹。

6. 点击 确定，现在所选文件夹中的所有图片名称都已列在Excel中。

注意：在VBA代码中，你可以根据需要修改代码字符串 If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then 中的文件扩展名。例如，如果你想列出doc格式的文件名，只需将代码字符串更改为 If InStr(1, xFileName, ".doc") > 0 Then。

如果你经常需要在日常工作中将文件夹中的一种或所有格式的文件名列在Excel单元格中，代码复杂且不易操作，但通过以下方法，你可以快速完成这项任务。

您是否希望加薪并有更多时间陪伴家人？ Office Tab 立即提升您在 Microsoft Office 中 50% 的工作效率 令人难以置信的是，同时处理两个或多个文档比处理一个文档更轻松、更快速。 与知名浏览器相比，Office Tab 中的多标签工具功能更强大、效率更高。 每天为您减少数百次鼠标点击和键盘输入，现在就告别“鼠标手”。 如果您经常需要同时处理多个文档，Office Tab 将为您节省大量时间。 30-天免费试用，无需信用卡。 了解更多立即免费下载

这里有一个实用工具——Kutools for Excel中的“文件名列表”，它可以

>> 在新工作表中列出文件夹中所有文件格式的所有文件名；

>> 将指定的一个或多个文件格式的文件名列到Excel中；

>> 列出包括子目录和隐藏文件及文件夹的文件名到Excel中。

免费试用 现在告别鼠标手和颈椎病

300 个 Kutools for Excel 的高级工具可以在几秒钟内解决 80% 个 Excel 任务，让您摆脱成千上万次的鼠标点击。

轻松应对 1500 种工作场景，无需浪费时间寻找解决方案，有更多时间享受生活。 每天为超过 110000 名高效人士提升 80% 工作效率，当然也包括您。 不再被复杂的公式和 VBA 折磨，给大脑放松并保持愉快的工作心情。 30 天全功能免费试用，30 天无理由退款。 更好的身体创造更好的生活。

了解更多 立即下载

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

1. 启用你要列出文件名的工作簿，然后点击 Kutools Plus > 导入/导出 > 文件名列表.

2. 在 文件名列表 对话框中，首先点击  选择要列出其文件名的文件夹，然后你可以根据需要勾选 包括子目录内的文件 和 包括隐藏文件和文件夹 复选框。

3. 然后在“文件类型”部分选择你想要列出名称的文件格式。

勾选“所有文件”选项，它将列出所选文件夹中所有文件格式的所有文件名。

勾选“常用”选项，并从下拉列表中选择你想要列出文件名的具体文件格式，然后它将列出你选择的文件格式的所有文件名。

勾选“指定”选项，然后在文本框中输入（使用逗号分隔）你想要列出文件名的文件扩展名，然后它将只列出具有输入文件扩展名的文件名到Excel中。

4. 根据需要从“文件大小单位”部分的下拉列表中选择大小单位，如果要为文件名创建链接，请勾选“创建超链接”选项。

5. 点击 确定，将创建一个新工作表来列出文件名和一些文件信息。

提示： 如果你想列出Excel中的所有工作表名称，可以应用Kutools for Excel的 创建工作表名称列表 工具，它将创建一个新工作表来列出所有可链接的工作表名称。

Kutools for Excel:+ 实用便捷工具，简化复杂的Excel任务为几次点击。

推荐的生产力工具

最佳Office办公效率工具

🤖	Kutools AI 助手：以智能执行为基础，彻底革新数据分析 |代码生成 |自定义公式创建|数据分析与图表生成 |调用Kutools函数……
	热门功能：查找、选中项的背景色或标记重复项 | 删除空行 | 合并列或单元格且不丢失数据 | 四舍五入……
	高级LOOKUP：多条件VLookup|多值VLookup|多表查找|模糊查找……
	高级下拉列表：快速创建下拉列表 |依赖下拉列表 | 多选下拉列表……
	列管理器： 添加指定数量的列 | 移动列 | 切换隐藏列的可见状态 | 比较区域与列……
	特色功能：网格聚焦 |设计视图 | 增强编辑栏 | 工作簿及工作表管理器 | 资源库（自动文本） | 日期提取 | 合并数据 | 加密/解密单元格 | 按名单发送电子邮件 | 超级筛选 | 特殊筛选（筛选粗体/倾斜/删除线等）……
	15大工具集：12项 文本工具（添加文本、删除特定字符等）|50+种 图表 类型（甘特图等）|40+实用 公式（基于生日计算年龄等）|19项 插入工具（插入二维码、从路径插入图片等）|12项 转换工具（小写金额转大写、汇率转换等）|7项 合并与分割工具（高级合并行、分割单元格等）| ……

Kutools支持多种语言——可选择英语、西班牙语、德语、法语、中文等40多种语言！

通过Kutools for Excel提升您的Excel技能，体验前所未有的高效办公。 Kutools for Excel提供300多项高级功能，助您提升效率并节省时间。 点击此处获取您最需要的功能……

Kutools for Excel更多详情…… 免费下载……

---

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

• 支持在Word、Excel、PowerPoint中进行多标签编辑与阅读。
• 在同一个窗口的新标签页中打开和创建多个文档，而不是分多个窗口。
• 可提升50%的工作效率，每天为您减少数百次鼠标点击！

Office Tab更多详情…… 免费下载……

---

所有Kutools加载项，一键安装

Kutools for Office套件包含Excel、Word、Outlook和PowerPoint的插件，以及Office Tab Pro，非常适合跨Office应用团队使用。

• 全能套装——Excel、Word、Outlook和PowerPoint插件+Office Tab Pro
• 单一安装包、单一授权——数分钟即可完成设置（支持MSI）
• 协同更高效——提升Office应用间的整体工作效率
• 30天全功能试用——无需注册，无需信用卡
• 超高性价比——比单独购买更实惠

Kutools for Office更多详情…… 免费下载……