使用VBA重命名文件：5个代码示例

Sub RenameFile()
    Name "D:\完美Excel\date.xlsx" As _
        "D:\完美Excel\我的文章\date-重命名.xlsx"
End Sub

Sub RenameFileUseCellValue()
    Name ActiveSheet.Range("C2") As _
        ActiveSheet.Range("C4")
End Sub

Sub MoveFile()
    Name "D:\完美Excel\stores.xlsx" As _
        "D:\完美Excel\我的文章\stores.xlsx"
End Sub

Sub AdvancedRenameFile()
    Dim filePath As String
    Dim newFilePath As String
    filePath = "D:\完美Excel\stores.xlsx"
    newFilePath = "D:\完美Excel\stores-重命名.xlsx"
    On Error Resume Next
    Name filePath As newFilePath
    If Err.Number <> 0 Then
        MsgBox Prompt:="不能重命名文件", _
            Buttons:=vbOKOnly, _
            Title:="重命名文件错误"
    End If
    On Error GoTo 0
End Sub

Function RenameFile(filePath As String, newFilePath As String)
    On Error Resume Next
    Name filePath As newFilePath
    If Err.Number <> 0 Then
        RenameFile = False
    Else
        RenameFile = True
    End If
    On Error GoTo 0
End Function

Sub CallRenameFile()
    Dim filePath As String
    Dim newFilePath As String
    filePath = "D:\完美Excel\stores.xlsx"
    newFilePath = "D:\完美Excel\stores-重命名.xlsx"
    MsgBox RenameFile(filePath, newFilePath)
End Sub