如何利用VBA将批量重命名图片名称

sswcgu · 发表于 2019-4-11 14:20

本帖最后由 sswcgu 于 2019-4-11 15:15 编辑

如何利用VBA将批量重命名图片名称用单元格的内容替换图片名称原名称截图.jpg

1.图片是按名称顺序排列的，原名称是截图按系统时间命名的
2.一个单元个对应一张图片名称也是按顺序来的
修改后名称
名称修改后.png

名称列表图片.zip (1.15 MB, 下载次数: 36)

朱荣兴 · 发表于 2019-4-11 14:34

提示: 作者被禁止或删除内容自动屏蔽

sswcgu · 发表于 2019-4-11 17:09

朱荣兴发表于 2019-4-11 14:34
根本没法测试代码，附件没有图片

已上传了

朱荣兴 · 发表于 2019-4-11 18:13

提示: 作者被禁止或删除内容自动屏蔽

sswcgu · 发表于 2019-4-14 10:59

朱荣兴发表于 2019-4-11 18:13
路径自己修改
Sub 图片重命名() '''QQ;705664849
Set sh = ThisWorkbook.Worksheets(1)

可以用了，谢谢

renkangjizhen · 发表于 2019-5-10 15:06

朱荣兴的代码很好用！谢谢了！受教了

renkangjizhen · 发表于 2019-5-10 15:25

注意事项：1.照片与Excel工作部放在同一文件夹下
            2.新名称与照片必须匹配
            3.图片格式（如：JPG）必须与代码匹配
Sub 照片重命名()
Dim sh as sheet,f$,i%
Set sh = ThisWorkbook.Worksheets(1)
f = Dir(ThisWorkbook.Path & "\*.jpg")
Do While f <> ""
For i=2 to [a65536].end(3)
On error resume next
Name ThisWorkbook.Path & "\" & f As ThisWorkbook.Path & "\" & sh.Cells(n, 1) & ".jpg"
   f = Dir
Next
Loop
End Sub

jxlhx97601 · 发表于 2023-9-8 08:31

好的，实用工具

暴虐狂徒 · 发表于 2023-11-10 18:06

可以试试基于VSTO开发的一个Excel小工具文件重名

tulip_ll · 发表于 2023-12-5 09:56

renkangjizhen 发表于 2019-5-10 15:25
注意事项：1.照片与Excel工作部放在同一文件夹下
2.新名称与照片必须匹配
...

Dim sh as sheet,f$,i%请问这句代码是什么意思，执行的时候说是用户定义类型未定义

		自动登录	找回密码
密码			免费注册

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-4-11 14:34 \| 显示全部楼层 [广告] ★ExcelHome默写助手 - 不用妈妈陪的默写神器 · Word/WPS插件 · 自定义默写单 · 自定义描红字帖★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-4-11 18:13 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] 如何利用VBA将批量重命名图片名称