打开VBA编辑器

粘贴代码

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

点击提取文件名称

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

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

点击修改文件名称