VBA 修改指定的檔案名稱

開啟VBA ，插入模組，貼上下面程式碼，修改檔案路徑及舊的檔案名稱及新的檔案名稱

Sub RenameTheFile()

'修改指定的檔案名稱

    Dim FilePath As String

    Dim OldFileName As String

    Dim OldFilePath As String

    Dim NewFileName As String

    

    ' 設置檔案路徑

    FilePath = "C:\YourFilePath\"

    ' 設置舊的檔案名稱

    OldFileName = "OldFileName.txt"

    '設置舊的檔案路徑+名稱

    OldFilePath = FilePath & OldFileName

    ' 設置新的檔案名稱

    NewFileName = "NewFileName.txt"

    

    ' 檢查檔案是否存在

    If Dir(FilePath) <> "" Then

        ' 修改檔案名稱

        Name OldFilePath As Replace(OldFilePath, OldFileName, NewFileName)

        MsgBox "檔案名稱修改完成。"

    Else

        MsgBox "檔案不存在。"

    End If

End Sub