Skip to main content

如何在 Excel 中將每個工作表匯出並保存為單獨的新工作簿?

Author: Kelly Last Modified: 2025-05-12

在 Excel 中將單個工作表匯出並保存為單獨的工作簿是一項常見的任務,特別是在共享或整理數據時。雖然手動將工作表複製粘貼到新工作簿是一種選擇,但對於包含多個工作表的工作簿來說,這個過程可能既繁瑣又耗時。在本指南中,我們將逐步探討幾種實現此目的的方法,幫助您根據自己的需求和專業知識選擇最佳解決方案。


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

使用「移動或複製」命令可以幫助您快速匯出或複製一個或多個工作表到新的工作簿。

步驟 1:從標籤欄中選擇工作表名稱。要選擇多個工作表,請按住「Ctrl」鍵並逐一單擊工作表標籤。

步驟 2:右鍵單擊工作表名稱,然後從上下文菜單中點擊「移動或複製」。

步驟 3:在「移動或複製」對話框中,從「將選中的工作表移動到工作簿」的下拉列表中選擇「(新工作簿)」項目。

A screenshot of the Move or Copy dialog box showing the option to move sheets to a new workbook

步驟 4:然後點擊「確定」,現在您已經切換到帶有匯出或複製工作表的「新工作簿」,點擊「文件」>「保存」以保存新工作簿。

注意:在「移動或複製」對話框中,有一個「創建副本」選項。如果您不勾選它,則會將選定的工作表移出原始工作簿;如果勾選它,則會複製選定的工作表。


輕鬆批量將工作表保存為新工作簿與 Kutools for Excel

如果您有多個工作表需要保存為單獨的工作簿,第一種方法不是一個好的選擇。而下面的 VBA 代碼對於 Excel 初學者來說可能會有些複雜。這裡您可以使用「Kutools for Excel」的「分割工作簿」工具來輕鬆批量將每個工作表保存為單獨的新工作簿。

Kutools for Excel 提供超過 300 種進階功能,簡化複雜任務,提升創造力與效率。 結合 AI 能力,Kutools 能夠精準自動化任務,讓數據管理變得輕而易舉。Kutools for Excel 的詳細資訊...免費試用...

安裝 Kutools for Excel 後,點擊「Kutools Plus」>「工作簿」>「分割工作簿」以打開「分割工作簿」對話框。然後按照以下方式進行配置。

  1. 勾選您想保存為新工作簿的工作表。默認情況下,所有工作表都已勾選。
  2. 在「選項」部分勾選相應的複選框,可選擇跳過隱藏和空白工作表。
  3. 點擊「確定」。
  4. 彈出「選擇文件夾」對話框,然後您需要選擇一個目標文件夾來保存新工作簿,並點擊「選擇文件夾」按鈕。

然後,指定的工作表或所有工作表將立即保存為單獨的新工作簿。

注意:
  • 此功能允許您將每個工作表保存為單獨的 TXT、CSV 或 PSF 文件。您只需勾選「指定保存格式」複選框,並從下拉菜單中選擇相應的選項即可。
    A screenshot of the Save as type option in Kutools Split Workbook utility
  • 要使用此功能,您應該在計算機上安裝了「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」鍵運行此代碼。隨後將彈出一個提示框,告訴您新匯出工作簿的位置,並且原始工作簿的所有工作表都已匯出到一些新的單獨工作簿中,這些工作簿以原始工作表名命名,位於新特定文件夾中。

A screenshot of the VBA code output showing saved worksheets as new workbooks

演示:將每個工作表匯出並保存為新工作簿

 
Kutools for Excel:超過 300 種實用工具任您使用!永久免費享受AI功能!立即下載!

相關文章:


最佳辦公效率工具

🤖 Kutools AI 助手:基於智能執行方式革新數據分析:智能執行   |  生成代碼  |  創建自訂公式  |  分析數據並生成圖表  |  調用 Kutools 函數
熱門功能查找、標記重複值或識別重複項   |  刪除空行   |  合併列或單元格而不丟失數據   |   四捨五入無需公式 ...
高級 LOOKUP多條件 VLookup    多值 VLookup  |   多表查找   |   模糊查找 ....
高級下拉列表快速創建下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
列管理器添加特定數量的列  |  移動列  |  切換隱藏列的可見狀態  |  比較區域和列 ...
特色功能網格聚焦   |  設計檢視   |   增強編輯欄    工作簿與工作表管理器   |  資源庫(自動文本)   |  日期提取器   |  合併資料   |  加密/解密儲存格    按列表發送電子郵件   |  超級篩選   |   特殊篩選(篩選粗體/斜體/刪除線...) ...
頂級 15 種工具集12 個文本工具添加文本刪除特定字符、...)   |   50+ 圖表 類型甘特圖、...)   |   40+ 實用 公式基於生日計算年齡、...)   |   19 個插入工具插入QR碼根據路徑插入圖片、...)   |   12 個轉換工具金額轉大寫匯率轉換、...)   |   7 個合併與分割工具高級合併行分割儲存格、...)   |   ... 還有更多

使用 Kutools for Excel 提升您的 Excel 技巧,體驗前所未有的高效。 Kutools for Excel 提供超過 300 種高級功能來提高生產力並節省時間。  點擊這裡獲取您最需要的功能...


Office Tab 將標籤式界面帶到 Office,讓您的工作更加輕鬆

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中啟用標籤式編輯和閱讀。
  • 在同一窗口的新標籤中打開和創建多個文檔,而不是在新窗口中。
  • 將您的生產力提高 50%,每天為您減少數百次鼠標點擊!