1、首先建立一个EXCEL表 其中第一个工作薄名称为照相顺序表 如下图 Sub 照片重命名()If MsgBox("程序将重命名与本工作薄同目录下的所有照片文件,确认这样做么?", vbYesNo) <> 6 Then Exit Sub End If Dim oldname As String '旧文件名变量oldname Dim newname As String '新文件名变量ne...