如何在Excel中將每個工作表導出並另存為單獨的新工作簿？

假設您要導出一個或幾個工作表並將其另存為新工作簿，您將如何處理？ 通常，您可以復制每個工作表並粘貼到新工作簿中。 但是在這裡，我們為您帶來一些方便的技巧來應對它：

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

使用 移動或複制 命令將幫助您快速將一個或幾個工作表導出或複製到新工作簿。

步驟1：在選項卡欄中選擇工作表名稱。 您可以按住來選擇多個 按Ctrl 鍵或 移 鍵。

步驟2：右鍵單擊工作表名稱，然後單擊 移動或複制 從上下文菜單中。

步驟3： 移動或複制 對話框中，選擇 （新書） 的下拉列表中的項目 將選定的圖紙移到書上.

步驟4：然後點擊 OK，現在您已切換到 新工作簿 與導出或複制的工作表，單擊 文件 > 節省 保存新的工作簿。

注意： 在 移動或複制 對話框中，有一個 建立副本 選項。 如果您不選中它，它將把選定的工作表移出原始工作簿； 如果選中它，它將復制所選的工作表。

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

如果您需要將多個工作表儲存為單獨的工作簿，則第一種方法不是一個好的選擇。對於 Excel 初學者來說，下面的 VBA 程式碼可能有點複雜。在這裡您可以使用 拆分工作簿 的效用 Excel的Kutools 輕鬆批量保存一個工作簿的每個工作表以單獨的新工作簿。

安裝 Kutools for Excel 後點擊此處成為Trail Hunter Kutools 加 > 工作簿 > 拆分工作簿 打開 拆分工作簿 對話框。然後進行如下配置。

1. 檢查要另存為新工作簿的工作表。預設情況下，所有工作表都會被選取。
2. 可以選擇透過選取對應的複選框來跳過隱藏和空白工作表 選項 部分。
3. 點擊 OK.

   

4. A 選擇“文件夾” 彈出對話框，然後您需要選擇儲存新工作簿的目標資料夾，然後按一下 選擇“文件夾” 按鈕。

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

使用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 運行此代碼的關鍵。 然後將彈出一個提示框，告訴您新導出的工作簿的位置，並且原始工作簿的所有工作表均已導出到一些新的單獨工作簿中，這些工作簿在新的特定文件夾中命名了原始工作表。 查看屏幕截圖：

導出並將每個工作表另存為新工作簿

相關文章：

• 將多個工作簿合併為一個工作簿
• 將選擇另存為單個文件
• 拆分工作簿以分隔Excel文件