如何在 Excel 中重新命名已開啟的活頁簿或目前的工作簿？

作者Sun修改日期2025-09-03

在某些情況下，您可能需要重新命名目前開啟的 Excel 工作表。然而，由於 Excel 不允許透過標準檔案系統操作直接重新命名已開啟的檔案，一般做法需先關閉活頁簿，再於檔案總管中找到該檔案並重新命名。當您同時處理多個檔案，或需要頻繁重新命名時，這種方式不僅不便，還容易打斷工作流程。本教學將為您介紹幾種實用方法，讓您直接在 Excel 內重新命名已開啟的活頁簿，有效簡化操作、減少干擾。

使用「另存新檔」指令重新命名已開啟的活頁簿

使用 Office Tab 重新命名已開啟的活頁簿

使用 VBA 程式碼重新命名已開啟的活頁簿

使用「另存新檔」指令重新命名已開啟的活頁簿

當您想為目前工作簿重新命名，卻又不想關閉再重新開啟檔案時，另存新檔指令就是最簡單的解決方案！無論您使用哪個 Excel 版本，只要在編輯活頁簿時需要變更檔案名稱，此方法都適用。

1. 點擊檔案選項卡（或在 Excel 2007 中點擊）Office 按鈕），然後從可用選項中選擇另存新檔，即可開啟「另存新檔」對話方塊，如下圖所示：

選取「另存新檔」選項的螢幕截圖

2. 在另存新檔對話方塊中，於檔案名稱文字方塊輸入活頁簿的新名稱，例如調整名稱以反映目前專案或版本。請參閱下方截圖：

為檔案命名的螢幕截圖

提示：在 Excel 2013 或 Excel 2016 中，點擊檔案> 另存新檔 後，您可能需要再點擊瀏覽，才能開啟傳統的「另存新檔」對話方塊並存取檔案名稱欄位。

在 Excel 2013 和 2016 中開啟「另存新檔」對話框的螢幕截圖

3. 點擊儲存，活頁簿將以您指定的新名稱儲存。您目前的 Excel 執行個體將自動參考此新命名的活頁簿，而原始檔案仍會保留在原位置（除非您日後選擇刪除）。

注意事項與實用技巧：舊檔案不會自動刪除；若不再需要，請手動移除。此外，若您使用檔案共用或版本控制系統，請務必確認重新命名檔案不會影響協作流程或現有的參考連結。

若其他檔案中的公式、連結或 VBA 程式碼仍參照舊檔名，這些項目將不會自動更新，請務必檢查所有相依性，以避免發生錯誤。

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

使用 Office Tab 重新命名已開啟的活頁簿

對於偏好更快速操作、且經常需管理多個已開啟活頁簿的使用者，Office Tab 增益集提供了一套易用性更強的解決方案！Office Tab 讓您以類似網頁瀏覽器的分頁介面操作活頁簿，並額外支援檔案管理功能，包括重新命名檔案，大幅提升工作效率。

安裝完畢 Office Tab 後，請依照下列步驟操作：

1. 前往您要重新命名的活頁簿。在 Excel 視窗頂端的活頁簿分頁上按一下滑鼠右鍵，然後從快捷選單中選擇重新命名，如下圖所示：

以滑鼠右鍵按一下檔案索引標籤並選取「重新命名」的螢幕截圖

2. 在 Office Tab 對話方塊中，於提供的文字欄位輸入活頁簿的新名稱。請注意避免使用非法字元（例如）/ \ : * ? " |），這些字元不得用於檔案名稱。詳情請參閱下方截圖：

輸入新名稱的螢幕截圖

3. 點擊確定，活頁簿將立即重新命名，無需關閉或重新開啟。此變更會同步反映在分頁標籤與電腦上的實際檔案名稱中，如下圖所示：

顯示活頁簿新名稱的螢幕截圖

優點：此方法特別適合同時管理大量檔案、且需頻繁快速重新命名的使用者。直覺的分頁式工作流程，讓您效率提升，工作不中斷！

注意事項：Office Tab 為第三方增益集，需另行安裝。請確認其與您使用的 Excel 版本相容（Office Tab 支援大多數現代版本）。為確保最佳體驗，建議定期更新增益集，避免因 Excel 新版更新而產生相容性問題。

使用 VBA 程式碼重新命名已開啟的活頁簿

對於進階使用者，VBA（Visual Basic for Applications）提供了一種彈性方式，可透過程式設計將目前工作簿重新命名：只要將其另存為新名稱，並視需要刪除原始檔案即可。若您正在自動化批次重新命名作業，或需將重新命名步驟整合至更長的巨集工作流程中，此方法尤其實用。

使用此方法前，請務必注意：Excel 無法直接更改已開啟檔案的名稱。巨集會將目前工作簿儲存為新產生的檔名，並可選擇是否刪除舊檔，同時將內容切換至新產生的檔案。

1. 點擊開發人員＞Visual Basic，開啟 Microsoft Visual Basic for Applications 視窗。接著，點擊插入＞模組，並將下列程式碼貼到新模組中：

Sub RenameActiveWorkbook()
    Dim newFullName As String
    Dim oldFullName As String
    Dim fDialog As FileDialog
    Dim response As VbMsgBoxResult
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    oldFullName = ThisWorkbook.FullName
    
    ' Prompt for new file name and location
    Set fDialog = Application.FileDialog(msoFileDialogSaveAs)
    
    With fDialog
        .Title = "Select new file name for the active workbook"
        .InitialFileName = ThisWorkbook.FullName
        
        If .Show = -1 Then
            newFullName = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    
    ' Save the workbook with the new name
    ThisWorkbook.SaveAs Filename:=newFullName, FileFormat:=xlOpenXMLWorkbook
    
    ' Ask if the old file should be deleted
    response = MsgBox("Do you want to delete the old file?" & vbCrLf & oldFullName, vbYesNo + vbQuestion, xTitleId)
    
    If response = vbYes Then
        Kill oldFullName
    End If
    
    MsgBox "Workbook renamed successfully.", vbInformation, xTitleId
End Sub

2. 若要執行巨集，請按 F5 或點擊 VBA 編輯器中的執行按鈕。此時將開啟「另存新檔」對話方塊，讓您輸入新檔案名稱及指定目前工作簿的儲存位置（請務必使用不含特殊字元的有效檔案名稱）。

儲存後，系統將提示您確認是否刪除原始檔案。若選擇「是」，舊檔將被永久刪除（無法復原）；若選擇「否」，則舊檔維持不變。目前的工作階段將改為參考使用新名稱的活頁簿。

提示與注意事項：執行此巨集前，務必先備份檔案，以防資料意外遺失！重新命名後，請確認所有檔案間的連結、公式與外部參考仍有效，因為檔名變更可能影響這些關聯。若發生錯誤，請再次檢查檔案路徑與名稱，並確保您對該資料夾擁有足夠的操作權限。

此方法最適合熟悉 VBA 與檔案管理自動化的進階使用者。若您在使用此巨集時遇到問題，請確認已啟用巨集功能，並於出現權限相關錯誤時，嘗試以系統管理員身分執行 Excel。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多