如何用excel给文件批量重命名

Question

如题所述

Answer 1

原来文件名称复制到A2以下单元，再将新文件名称录入到B2以下单元，执行宏：
Sub 批量修改文件名()
a = [a:a].Find("*", , xlValues, , , 2).Row 'A列最后可见单元的行号
For b = 2 To a
c = Range("a" & b).Value
cc = Range("b" & b).Value
Name "e:\图片\" & c As "e:\图片\" & cc
Next
End Sub
请注意修改使用上述代码中的文件路径。

Answer 2

你要对哪些文件重命名，在EXCEL里面了吗，拷屏看看