[求助]一个图片批量命名问题

liuxiao

原以自己的名字命名的图片要集中放在一个上千人的照片文件夹中，可能要出现名字相同的情况，为了避免此问题的存在，要在原图片文件名后加上身份证号后两位，如何利用C列已生成的新名字快速给原对应文件重命名？

 

lW3rR982.rar (112.03 KB, 下载次数: 113)

2008-6-21 23:45 上传

点击文件名下载附件
[求助]一个图片批量命名问题

LangQueS

给个参考先：

[原创]★带照片证件的制作方法★

LangQueS

将原来文件名称复制到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

请注意修改使用上述代码中的文件路径。

[此贴子已经被作者于2008-6-22 7:13:27编辑过]

LangQueS

用楼主附件做的修改当前目录,jpg文件名称：

  zrW5y7sX.rar (6.43 KB, 下载次数: 238)

2008-6-22 08:26 上传

点击文件名下载附件

[此贴子已经被作者于2008-6-22 8:26:53编辑过]

liuxiao

QUOTE:

以下是引用LangQueS在2008-6-22 7:11:30的发言：

将原来文件名称复制到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

请注意修改使用上述代码中的文件路径。

经运行以上代码提示文件 未找到，是什么原因？

wMmMyR44.rar (116.94 KB, 下载次数: 36)

2008-6-22 07:41 上传

点击文件名下载附件
[求助]一个图片批量命名问题

[此贴子已经被作者于2008-6-22 7:51:52编辑过]

LangQueS

QUOTE:

以下是引用liuxiao在2008-6-22 7:42:11的发言：

经运行以上代码提示文件 未找到，是什么原因？

5楼附件打不开，是什么原因？

3楼代码需要在单元中录入文件全名，例如“张三.jpg”。

建议直接使用4楼附件。

liuxiao

QUOTE:

以下是引用LangQueS在2008-6-22 7:27:55的发言：

用楼主附件做的修改当前目录,jpg文件名称：

 

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 c & ".jpg" As cc & ".jpg"
Next
End Sub

出现错误提示了？我不知道把图片文件放在同一文件夹中对不对？还是要将再集中把图片放在一个同目录下的文件夹中？两种情况都试了还是不行，请说一下出错的原因？

[此贴子已经被作者于2008-6-22 8:03:04编辑过]

LangQueS

QUOTE:

以下是引用liuxiao在2008-6-22 8:02:03的发言：

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 c & ".jpg" As cc & ".jpg"
Next
End Sub

出现错误提示了？我不知道把图片文件放在同一文件夹中对不对？还是要将再集中把图片放在一个同目录下的文件夹中？两种情况都试了还是不行，请说一下出错的原因？

Sub 批量修改文件名()

AAA = ActiveCell
a = [a:a].Find("*", , xlValues, , , 2).Row   'A列最后可见单元的行号
For b = 2 To a
c = Range("a" & b).Value
cc = Range("b" & b).Value
        Name AAA & c & ".jpg" As AAA & cc & ".jpg"
Next
End Sub

liuxiao

QUOTE:

以下是引用LangQueS在2008-6-22 8:01:55的发言：

5楼附件打不开，是什么原因？

3楼代码需要在单元中录入文件全名，例如“张三.jpg”。

建议直接使用4楼附件。

新文件名也要不要录入为全名？原图片文件夹放在什么位置？按你的代码要不要把新文件名录入到A列对应的B 列中？

对不起我还是做不对啊！

LangQueS

QUOTE:

以下是引用liuxiao在2008-6-22 8:32:40的发言：

新文件名也要不要录入为全名？原图片文件夹放在什么位置？按你的代码要不要把新文件名录入到A列对应的B 列中？

对不起我还是做不对啊！

建议将多个.jpg图片复制到当前目录后，直接使用4楼附件（已修改）。