给文件重命名,并且删除原来的文件
Sub RenameFile()
Dim currentPath As String
Dim newPath As String
' 设置当前文件路径
currentPath = "C:\Path\To\CurrentFile.xlsx"
' 设置新的文件路径和名称
newPath = "C:\Path\To\NewFile.xlsx"
' 更改文件名称
Name currentPath As newPath
End Sub