如何在 Excel 中將每個工作表分別匯出並儲存為獨立的新工作簿？

作者Kelly修改日期2025-04-09

在 Excel 中將個別工作表匯出並儲存為獨立活頁簿，是分享或整理資料時的常見需求。雖然手動複製工作表並貼到新活頁簿可行，但過程繁瑣耗時，尤其當原始活頁簿包含多張工作表時更是如此。本指南將逐步介紹多種方法，協助您根據自身需求與專業程度，選擇最適合的解決方案。

使用「移動或複製」指令逐一將工作表儲存為新工作簿

使用 Kutools for Excel 輕鬆批次將工作表儲存為新工作簿

使用 VBA 程式碼批次將工作表儲存為新工作簿

使用「移動或複製」指令逐一將工作表儲存為新工作簿

使用「移動或複製」指令，即可快速將一個或多個工作表匯出或複製至全新工作簿！

步驟 1：從標籤列中選取工作表名稱。若要選取多個工作表，請按住「Ctrl」鍵，再逐一按一下各工作表標籤。

步驟 2：在工作表名稱上按一下滑鼠右鍵，然後從快捷功能表中選取「移動或複製」。

步驟 3：在「移動或複製」對話方塊中，從「將選取的工作表移至活頁簿」下拉式清單中選擇「（新活頁簿）」。

步驟 4：接著按一下「確定」，系統將自動切換至包含已匯出或複製工作表的「新工作簿」；請點選「檔案」>「儲存」，立即儲存您的新工作簿。

注意：在「移動或複製」對話方塊中，有一個「建立副本」選項。若未勾選此選項，系統會將所選工作表從原始活頁簿中移出；若勾選此選項，則會複製所選工作表。

使用 Kutools for Excel 輕鬆批次將工作表儲存為新工作簿

若您有多個工作表需要儲存為獨立活頁簿，第一種方法並非理想選擇；而下方提供的 VBA 程式碼對 Excel 初學者來說也可能稍嫌複雜。此時，不妨使用「Kutools for Excel」的「分割工作簿」工具，輕鬆批次將單一活頁簿中的每個工作表儲存為獨立的新工作簿！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

安裝 Kutools for Excel 後，請點選「KUTOOLS PLUS」＞「活頁簿」＞「分割工作簿」，即可開啟「分割工作簿」對話方塊，並依下列方式進行設定。

勾選您想儲存為新工作簿的工作表；預設情況下，所有工作表皆已勾選。
您可以依需求勾選「選項」區段中的對應核取方塊，輕鬆略過隱藏及空白的工作表。
點擊「確定」。
將彈出「選擇資料夾」對話方塊，請選取一個目標資料夾以儲存新工作簿，然後按一下「選擇資料夾」按鈕。

接著，指定的工作表或所有工作表將立即儲存為獨立的新工作簿。

注意事項：

此功能可讓您將每個工作表儲存為獨立的 TXT、CSV 或 PSF 檔案。只需勾選對應的儲存格式核取方塊，並從下拉式清單中選擇所需的選項即可。
若要使用此功能，您的電腦必須已安裝「Kutools for Excel」。立即下載 Kutools for Excel！

使用 VBA 程式碼將工作表匯出並儲存為新工作簿

下列程式碼會將新工作簿中每個可見的工作表匯出，並以原始工作表名稱儲存為獨立活頁簿，存放於與目前工作簿相同路徑下新建的資料夾中。請依照下列步驟操作：

步驟 1：按住「Alt」+「F11」鍵，即可開啟「Microsoft Visual Basic for Applications」視窗。

步驟 2：點選「插入」>「模組」，並將下列巨集貼到模組視窗中：

VBA：將工作表匯出並儲存為新工作簿，存放於新建的資料夾中。

Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook

DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString

If Val(Application.Version) < 12 Then
    FileExtStr = ".xls": FileFormatNum = -4143
Else
    Select Case xWb.FileFormat
        Case 51:
            FileExtStr = ".xlsx": FileFormatNum = 51
        Case 52:
            If Application.ActiveWorkbook.HasVBProject Then
                FileExtStr = ".xlsm": FileFormatNum = 52
            Else
                FileExtStr = ".xlsx": FileFormatNum = 51
            End If
        Case 56:
            FileExtStr = ".xls": FileFormatNum = 56
        Case Else:
            FileExtStr = ".xlsb": FileFormatNum = 50
        End Select
End If

MkDir FolderName

For Each xWs In xWb.Worksheets
On Error GoTo NErro
    If xWs.Visible = xlSheetVisible Then
    xWs.Select
    xWs.Copy
    xFile = FolderName & "\" & xWs.Name & FileExtStr
    Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
    xNWb.SaveAs xFile, FileFormat:=FileFormatNum
    xNWb.Close False, xFile
    End If
NErro:
    xWb.Activate
Next

    MsgBox "You can find the files in " & FolderName
    Application.ScreenUpdating = True
End Sub

步驟 3：按下「F5」鍵執行此程式碼，隨即會彈出提示方塊，告知您新匯出活頁簿的儲存位置——原始活頁簿中的所有工作表皆已匯出為獨立的新活頁簿，並以原始工作表名稱儲存在指定的資料夾中。

示範：將每個工作表匯出並儲存為新工作簿

Kutools for Excel：超過 300 種實用工具隨手可得！盡享 AI 驅動功能，讓工作更聰明、更快速！立即下載！

最佳 Office 生產力工具

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