
Sub test()
Dim i As Integer
'遇到错误就下一个'
On Error Resume Next
For i = 2 To 12
Name "d:\data\" & Range("a" & i) & ".jpg" As "d:\data\" & Range("a" & i) & Range("d" & i) & ".jpg"
Next
End Sub
Sub test()
Dim i As Integer
'遇到错误就下一个'
On Error Resume Next
For i = 2 To 12
Name "d:\data\" & Range("a" & i) & ".jpg" As "d:\data\" & Range("a" & i) & Range("d" & i) & ".jpg"
Next
End Sub
本文标题:Name as改文件名
本文链接:https://www.haomeiwen.com/subject/usirdctx.html
网友评论