如何用Excel和VB批量修改文件图片名称

1、打开VBA编辑器

2、粘贴代码

Sub 提取文件名称()

    Application.ScreenUpdating = False

    ActiveSheet.UsedRange.ClearContents

    Cells(1, 1) = "相对路径文件名"

    Cells(1, 2) = "绝对路径文件名"

    Getfd (ThisWorkbook.Path) 'ThisWorkbook.Path是当前代码文件所在路径，路径名可以根据需求修改

    Application.ScreenUpdating = True

End Sub

Sub Getfd(ByVal pth)

    Set Fso = CreateObject("scripting.filesystemobject")

    Set ff = Fso.getfolder(pth)

    For Each f In ff.Files

        Rem 具体提取哪类文件，还是需要根据文件扩展名进行处理

        Cells(Rows.Count, 1).End(3).Offset(1) = f.Name

        Cells(Rows.Count, 2).End(3).Offset(1) = f

    Next f

    For Each fd In ff.subfolders

        Getfd (fd)

    Next fd

End Sub

Sub 修改文件名称()

    Dim arr, i%, mypath$

    mypath = ThisWorkbook.Path & "\"

    arr = Range("A2:F" & Range("A65536").End(xlUp).Row) '从第2行开始，请设为文本格式

    For i = 1 To UBound(arr)

    A = arr(i, 1)

    B = arr(i, 2)

    C = arr(i, 3)

        If arr(i, 1) <> "" Then Name arr(i, 2) As arr(i, 3)

    Next

    MsgBox "照片修改名称完毕"

End Sub

3、点击提取文件名称

4、命令运行后，会自动获取当前文件所在文件夹所有文件名称，A列是名称，B是为路径就是位置

5、修改文件名称，对应AB列修改名称或者路径在C列，参照B列格式

6、点击修改文件名称