我正在运行下面的代码作为更改大批量图像名称的一种方式。
但是,只要找不到文件中的图像名称(可能是由于重复、意外删除或胖手指病),它就会出错。
有没有办法让脚本在发生这种情况时继续运行,或者让它突出罪魁祸首,以便将其删除(或两者兼而有之,哈哈)?
提前致谢!!并感谢原始代码,从这里得到它:)
代码如下。
Sub RenameImages()
'
' RenameImages Macro
'
' Keyboard Shortcut: Ctrl+Shift+I
'
Dim Source As Range
Dim OldFile As String
Dim NewFile As String
Set Source = Cells(1, 1).CurrentRegion
For Row = 1 To Source.Rows.Count
OldFile = ActiveSheet.Cells(Row, 1)
NewFile = ActiveSheet.Cells(Row, 2)
' rename files
Name OldFile As NewFile
Next
End Sub