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

Question

我需要达到的目的是:
图片1 (1) 命名为:张三
图片1 (2) 命名为:张三1
图片1 (3) 命名为:李四
图片1 (4) 命名为:李四1
...
图片1 (15)命名为:赵云
图片1 (16)命名为:赵云1

求VBA批处理下来 代码越简单越好
或者给个提示 用什么代码才能让VBA给文件重命名!
师傅,您那个代码我看了,不要那么复杂的,就符合我这个目的就行了
图片 1 (1) 改名张三.jpg
图片 2 (2) 改名张三1.jpg
文件夹里的图片顺序是跟D列人名对应的,一个人名,两个图片
我的思路是这样的:
比如把图片文件夹放在"D:\身份证"
执行脚本后
D:\身份证\1 (1).jpg 改名为 张三.jpg
D:\身份证\1 (2).jpg 改名为 张三1.jpg
就这么简简单单的一个过程,表里只有人名 其他的我也不想往里写什么 数量太庞大

Answer 1

给个附件给你，

追问

我补充问题了 可以看下
这个我试了试 可以 但是太繁琐了 我需要处理好需要改的名字

追答

你并没有说清楚 需要改的名字是什么

D:\身份证\1 (1).jpg 改名为 张三.jpg
D:\身份证\1 (2).jpg 改名为 张三1.jpg
是不是 永远都是 张三？？？ 张三1 张三2 张三3 .。。。。

总要有个规则， 才可以做， 问题是 这个只有你自己知道。。。 你知道什么叫做自我中心么？？ 你就是。

+ 1052974911@qq.com

Answer 2

一、新建一工作薄“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 文件夹里的照片的文件名就都变成姓名了。

追问

文件夹里照片的名字 是各种手机拍照片 iPhone的是IMG 我三星就是其他的 其中还有删除的照片 我只能说把顺序弄的完全一致 但是把上万张照片的名字填写在A列...是完全不可能的,能把这个代码改改吗?

Answer 3

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

需要修改成的名称在 B列 

本回答被网友采纳

Answer 4

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

追问

我补充问题了 可以看下