如何将每个工作表导出并另存为单独的新工作簿？

在Excel中将单个工作表导出并另存为单独的工作簿是一项常见任务，尤其是在共享或组织数据时。虽然手动复制和粘贴工作表到新工作簿是一种选择，但对于包含多个工作表的工作簿来说，这可能既繁琐又耗时。在本指南中，我们将逐步探讨几种实现此操作的方法，帮助您根据需求和专业知识选择最佳解决方案。

使用移动或复制命令逐个将工作表另存为新工作簿

使用"移动或复制"命令可以帮助您快速将一个或多个工作表导出或复制到新工作簿。

步骤1：从标签栏中选择工作表名称。要选择多个工作表，请按住"Ctrl"键并逐个点击工作表标签。

步骤2：右键点击工作表名称，并从上下文菜单中点击"移动或复制"。

步骤3：在"移动或复制"对话框中，从"将选定工作表移动到工作簿"的下拉列表中选择"(新工作簿)"项。

步骤4：然后点击"确定"，现在您已切换到包含导出或复制工作表的"新工作簿"，点击"文件" > "保存"以保存新工作簿。

注意：在"移动或复制"对话框中，有一个"创建副本"选项。如果不勾选它，将会把选定的工作表从原始工作簿中移出；如果勾选它，将会复制选定的工作表。

使用Kutools for Excel轻松批量将工作表另存为新工作簿

如果您有多个工作表需要另存为单独的工作簿，第一种方法不是一个好的选择。而下面的VBA代码对于Excel初学者来说可能有点复杂。在这里，您可以使用"Kutools for Excel"的"分割工作簿"工具轻松批量将一个工作簿的每个工作表另存为单独的新工作簿。

安装Kutools for Excel后，点击"Kutools Plus" > "工作簿" > "分割工作簿"以打开"分割工作簿"对话框。然后按如下配置。

1. 勾选您想要另存为新工作簿的工作表。默认情况下，所有工作表都被勾选。
2. 在"选项"部分勾选相应的复选框可以选择跳过隐藏和空白工作表。
3. 点击"确定"。

   

4. 一个"选择文件夹"对话框弹出，您需要选择一个目标文件夹来保存新工作簿，然后点击"选择文件夹"按钮。

然后，指定的工作表或所有工作表将立即另存为单独的新工作簿。

使用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文件