1、打开VBA编辑器
2、粘贴代码Sub 提取文件名称() Application.ScreenUpdating = False ActiveSheet.Use颊俄岿髭dRange.ClearContents Cells(1, 1) = "相对路径文件名" Cells(1, 2) = "绝对路径文件名" Getfd (ThisWorkbook.Path) 'ThisWorkbook.Path是当前代码文件所在路径，路径名可以根据需求修改 Application.ScreenUpdating = TrueEnd SubSub 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 fdEnd SubSub 修改文件名称() 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、点击修改文件名称
