怎么用excel去找文件夹里图片

使用Excel查找文件夹中的图片

使用Excel查找文件夹中的图片，主要通过VBA（Visual Basic for Applications）编写脚本来实现。通过VBA代码自动遍历指定文件夹、识别和导入图片、在Excel中显示图片路径。下面将详细介绍如何进行这几步操作。

一、准备工作

在开始之前，确保你已安装好Excel，并且对VBA有基本了解。VBA是Excel的内置编程语言，可以用来扩展和自动化Excel的功能。

二、启用开发者工具

打开Excel。
点击“文件”菜单，选择“选项”。
在“Excel选项”对话框中，选择“自定义功能区”。
在右侧的“主选项卡”列表中，勾选“开发工具”。
点击“确定”按钮。

这将会在Excel的功能区添加一个“开发工具”选项卡。

三、编写VBA代码

打开Excel，点击“开发工具”选项卡。
点击“Visual Basic”按钮，打开VBA编辑器。
在VBA编辑器中，点击“插入”菜单，选择“模块”，这将会创建一个新的代码模块。
在代码模块中，输入以下代码：

Sub FindImagesInFolder()
    Dim FolderPath As String
    Dim FileSystem As Object
    Dim Folder As Object
    Dim File As Object
    Dim Row As Integer
    ' 设置文件夹路径
    FolderPath = "C:YourFolderPath" ' 请将此路径替换为实际的文件夹路径
    ' 初始化文件系统对象
    Set FileSystem = CreateObject("Scripting.FileSystemObject")
    Set Folder = FileSystem.GetFolder(FolderPath)
    ' 初始化行号
    Row = 1
    ' 遍历文件夹中的文件
    For Each File In Folder.Files
        ' 只处理图片文件
        If InStr(1, LCase(File.Name), ".jpg") > 0 Or InStr(1, LCase(File.Name), ".jpeg") > 0 Or InStr(1, LCase(File.Name), ".png") > 0 Or InStr(1, LCase(File.Name), ".gif") > 0 Then
            ' 在Excel中写入文件路径
            ThisWorkbook.Sheets(1).Cells(Row, 1).Value = File.Path
            Row = Row + 1
        End If
    Next File
    ' 提示用户操作完成
    MsgBox "图片文件路径已导入完成！", vbInformation
End Sub

将代码中的 FolderPath 修改为你要查找的文件夹路径。
保存并关闭VBA编辑器。

四、运行VBA代码

回到Excel工作表。
点击“开发工具”选项卡中的“宏”按钮。
在宏列表中选择“FindImagesInFolder”，然后点击“运行”。

五、查看结果

运行宏后，Excel会在第一个工作表中，从第一行开始列出指定文件夹中所有图片文件的路径。你可以根据需要对这些路径进行进一步处理，比如显示图片缩略图、批量重命名等。

六、扩展功能

你可以根据需要扩展该VBA代码，以增加更多功能。例如：

1、显示图片缩略图

将图片文件路径导入Excel后，可以用代码在单元格中插入图片缩略图。

Sub InsertImageThumbnails()
    Dim FilePath As String
    Dim Row As Integer
    Dim Img As Object
    Row = 1
    Do While ThisWorkbook.Sheets(1).Cells(Row, 1).Value <> ""
        FilePath = ThisWorkbook.Sheets(1).Cells(Row, 1).Value
        Set Img = ThisWorkbook.Sheets(1).Pictures.Insert(FilePath)
        Img.Left = ThisWorkbook.Sheets(1).Cells(Row, 2).Left
        Img.Top = ThisWorkbook.Sheets(1).Cells(Row, 2).Top
        Img.Width = 100 ' 设定图片宽度
        Img.Height = 100 ' 设定图片高度
        Row = Row + 1
    Loop
End Sub

2、批量重命名图片文件

可以添加功能，将文件夹中的图片文件批量重命名为更有意义的名字。

Sub BatchRenameImages()
    Dim FolderPath As String
    Dim FileSystem As Object
    Dim Folder As Object
    Dim File As Object
    Dim NewName As String
    Dim Counter As Integer
    FolderPath = "C:YourFolderPath" ' 请将此路径替换为实际的文件夹路径
    Set FileSystem = CreateObject("Scripting.FileSystemObject")
    Set Folder = FileSystem.GetFolder(FolderPath)
    Counter = 1
    For Each File In Folder.Files
        If InStr(1, LCase(File.Name), ".jpg") > 0 Or InStr(1, LCase(File.Name), ".jpeg") > 0 Or InStr(1, LCase(File.Name), ".png") > 0 Or InStr(1, LCase(File.Name), ".gif") > 0 Then
            NewName = "Image_" & Format(Counter, "000") & Mid(File.Name, InStrRev(File.Name, "."))
            File.Name = NewName
            Counter = Counter + 1
        End If
    Next File
    MsgBox "图片文件重命名完成！", vbInformation
End Sub

通过以上方法，Excel不仅可以帮助你查找文件夹中的图片，还可以实现更多的文件管理和处理功能。使用VBA脚本，可以极大地提高处理文件的效率，节省大量时间和精力。