如何快速将文件夹中的图片名称/文件名列表到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任务为几次点击。