更改指定文件的名称VBA

nnsea

Sub 重命名文件()
    Dim OldName As String, NewName As String
    OldName = ThisWorkbook.Path & "\VBA基实很简单.xlsm"    '原文件名
    NewName = ThisWorkbook.Path & "\VBA其实很容易.xlsm"    '新文件名
    Name OldName As NewName
End Sub