Name as改文件名
2019-08-02 本文已影响0人
A_rrow
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
