如何批量替换大量照片的文件名?
发布网友
发布时间：2022-04-25 14:44
共3个回答
热心网友
时间：2023-10-09 17:06
可以用VBA来实现你要的功能，具体方法可以参考下面的来实现：
1、首先建立一个EXCEL表 其中第一个工作薄名称为照相顺序表 如下图
Sub 照片重命名()
If MsgBox("程序将重命名与本工作薄同目录下的所有照片文件，确认这样做么？", vbYesNo) <> 6 Then
Exit Sub
End If
Dim oldname As String '旧文件名变量oldname
Dim newname As String '新文件名变量newname
Dim photopath As String '路径变量photopath
Dim nophoto As String '错误提示变量nophoto
Dim i As Integer '循环变量i
photopath = ThisWorkbook.Path '为要修改的文件名路径复制为当前excel文件的路径
For i = 2 To Worksheets("照相顺序表").Range("a65536").End(xlUp).Row '开始循环 从“照相顺序表”工作薄的a2单元格开始
'为新文件名变量赋值为路径变量& \ & 照相顺序表工作薄中的a2&b2单元格内容加上扩展名.jpg
newname = photopath & "\" & Worksheets("照相顺序表").Cells(i, 1).Text & Worksheets("照相顺序表").Cells(i, 2).Text & ".jpg"
'为旧文件名变量赋值为路径变量& \ & 照相顺序表工作薄中的c2单元格内容&扩展名.jpg
oldname = photopath & "\" & Worksheets("照相顺序表").Cells(i, 3).Text & ".jpg"
'判断旧文件名是否在当前目录存在
If Dir(oldname) <> "" Then
Name oldname As newname '存在则改名
Else
nophoto = nophoto & Chr(10) & oldname‘不存在则将其赋值给错误提示变量并以回车分割累加
End If
Next i
If nophoto <> "" Then
MsgBox nophoto & Chr(10) & "图片不存在" ’存在错误提示则弹出错误提示框
End If
End Sub
热心网友
时间：2023-10-09 17:06
显然 要根据 姓名来找到 社保号 如果有同名同姓的 就麻烦了
批处理 是不行的 需要 vbs 、vba、AutoIt 等 能读写xls的才能做到
热心网友
时间：2023-10-09 17:07
使用随心文件批处理可以实现，先根据需要搜索或手工添加文件，批处理方式选择：更改文件名称；文件名格式为：${File2(包含社保卡号的文件名称)}；要求Excel表信息转换为文本文件，照片顺序要与文件中学号序号对应起来，执行后就会自动替换；下载地址：http://www.aslike.net/showsoft.asp?id=104
