用excel的VBA给文件批量重命名

给个附件给你，

一、新建一工作薄“book1.xls”
二、在“sheet1”的A1:a2000中输入或粘贴“IMG_0001.jpg, IMG_0002.jpg, IMG_0003.jpg, IMG_0004.jpg .......IMG_1999.jpg ， IMG_2000.jpg ”；在“sheet1”的B1:B2000中输入或粘贴“张三.jpg,李四.jpg,王五.jpg....刘备.jpg,” 等2000个姓名。注意：姓名和照片要是一一对应的。
三、按ALT+F11调出VBA编辑框。
四、在工程框里插入一个模块1，双击模块1出现代码框
五、在代码框里复制以下代码

Sub rename()
Dim y_name As String
Dim x_name As String
For i = 1 To 2000
y_name = "d:\photo\" + Cells(i, 1).Value
x_name = "d:\photo\" + Cells(i, 2).Value + ".jpg"
On Error Resume Next
Name y_name As x_name
Next
End Sub

六、运行宏 “rename”
数秒钟后，photo 文件夹里的照片的文件名就都变成姓名了。

点击后获取需要命名的文件 名称 在A列

需要修改成的名称在 B列 

代码我收了。需要的话回我