VBA-rename file

Sub rename1()
    OldName = "C:\Users\zgjxg\Desktop\448.jpg": NewName = "C:\Users\zgjxg\Desktop\" & Worksheets(1).Range("B6").Value & "48.jpg"
    Name OldName As NewName

End Sub


猜你喜欢

转载自blog.csdn.net/yhygw_csdn/article/details/80865628