Name as改文件名

作者: A_rrow | 来源:发表于2019-08-02 21:19 被阅读0次
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