Excel VBA重命名当前文件夹下的文件

你可以使用以下代码来重命名当前文件夹下的文件：

Sub RenameFiles()
Dim MyPath As String
Dim MyFile As String
Dim NewName As String
MyPath = ActiveWorkbook.Path & "\"
MyFile = Dir(MyPath & "*.*")
Do While MyFile <> ""
NewName = Replace(MyFile, "OldName", "NewName")
Name MyPath & MyFile As MyPath & NewName
MyFile = Dir
Loop
End Sub

这个代码将会把当前文件夹下所有文件名中包含"OldName"的部分替换成"NewName"。你可以根据自己的需要修改这个代码。