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
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
本文介绍了一个使用VBA进行文件重命名的例子。代码展示了如何读取Excel工作表中的特定单元格(B6)的值,并将其用于创建新的文件名。此过程涉及到路径操作和字符串拼接。
1万+

被折叠的 条评论
为什么被折叠?



