1、启动EXCEL2003
2、在sheet1 A1单元格输入“原照片名称” B1单元格“输入新照片名称”
3、从“学生信息表”里复制“身份证号码”到B列
4、按住“ALT”和“F11”键
5、点击菜单“插入”——模块
6、复制以下代码Sub rename()Dim y_name As StringDim x_name As StringFor i = 1 To 2000 y_name = ThisWorkbook.Path & "\相片\" + Cells(i, 2).Value + ".jpg" x_name = ThisWorkbook.Path & "\相片\" + Cells(i, 1).Value + ".jpg" On Error Resume Next Name y_name As x_nameNextEnd Sub进去
7、保存退出
8、新建一个文件夹名为“相片”
9、把要重命名的照片放进“照片”文件夹即可对照片批量命名
附件可到这里下载http://club.excelhome.net/thread-1029834-1-1.html或http://club.excelhome.net/thread-1059925-1-1.html这里下载
