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

网友投稿 518 2023-12-26

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

假设您要导出一个或多个工作表并将其另存为新工作簿，您将如何处理？通常，您可以复制每个工作表并粘贴到新工作簿中。但是在这里，我们为您带来一些方便的技巧来应对它：

使用“移动”或“复制”命令将工作表导出并保存为新工作簿

使用VBA代码将工作表导出并保存为新工作簿

将工作表导出并保存为新工作簿 Kutools for Excel

使用“移动”或“复制”命令将工作表导出并保存为新工作簿

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

步骤1：在选项卡栏中选择工作表名称。您可以按住多个选择 按Ctrl 键或转移键。

步骤2：右键单击工作表名称，然后单击 移动或复制

从上下文菜单中。

步骤3： 移动或复制 对话框中，选择 （新书） 的下拉列表中的项目 将选定的图纸移到书.

步骤4：然后点击 OK，现在您已切换到 新工作簿 与导出或复制的工作表，单击文件 > 优惠保存新的工作簿。

请注意： 在 移动或复制 对话框中，有一个 建立副本 选项。如果您不选中它，它将把选定的工作表移出原始工作簿。如果选中它，它将复制所选的工作表。

快速将多个工作表拆分为Excel中的单独工作簿
在Microsoft Excel中，可以通过将工作表复制并粘贴到新工作簿中，将一个工作簿中的工作表保存或拆分为新的Excel文件。如果要将大工作簿的每个工作表/工作表拆分为单独的Excel，txt，csv，pdf文件，这似乎很麻烦。但是随着 Kutools for Excel“ 拆分工作簿 实用程序，您可以快速处理它。 点击查看 30 天免费试用，功能齐全！ Kutools for Excel：超过300个方便的Excel插件，免费试用，没有限制 30 天。

使用VBA代码将工作表导出并保存为新工作簿

下面的代码将导出新工作簿中的所有可见工作表，并将工作表和原始工作表的名称保存在与活动工作簿相同路径的新创建的文件夹中。请执行以下步骤：

步骤1：按住 ALT + F11 键，然后打开 Microsoft Visual Basic应用程序 窗口。

步骤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

Copy

步骤3：按下 F5 运行此代码的关键。然后将弹出一个提示框，告诉您新导出的工作簿的位置，并且原始工作簿的所有工作表都已导出到一些新的单独工作簿中，这些工作簿在新的特定文件夹中命名了原始工作表。查看屏幕截图：

将工作表导出并保存为新工作簿 Kutools for Excel

如果需要将多个工作表另存为单独的工作簿，则第一种方法不是一个好的选择。对于Excel初学者来说，VBA代码可能有点复杂。在这里您可以使用 拆分工作簿 实用程序 Kutools for Excel 以快速轻松地导出和保存一个工作簿的每个工作表以分离新工作簿。

Kutools for Excel, 与超过 300 方便的功能，使您的工作更加轻松。

免费下载免费全功能 30 天

后免费安装 Kutools for Excel，请执行以下操作：

步骤1：点击 Kutools 加 > 工作簿 > 拆分工作簿…

。看截图：

步骤2： 拆分工作簿 对话框，请执行以下操作：

默认情况下，所有工作表名称都已选中，如果您不想拆分某些工作表，则可以取消选中它们；

2: 如果要避免拆分隐藏的工作表或空白工作表，可以检查 跳过隐藏的工作表 or 跳过空白工作表

）;

3: 你也可以检查 指定保存 格式，并选择拆分工作表，然后以默认格式另存为文本文件，pdf文件或csv文件，如果不选中此选项，它将拆分工作表并另存为工作簿。