将Exce中工作簿的多个工作表拆分为单独的Excel文件

将当前工作簿的多个工作表拆分为单独的Excel文件

1。 为要拆分的工作簿创建一个新文件夹，因为拆分的Excel文件将与该主工作簿保留在同一文件夹中。

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

3。 点击 插入 > 模块，然后将以下代码粘贴到“模块窗口”中。

VBA：将工作簿拆分为多个工作簿并保存在同一文件夹中

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.SheetsxWs.CopyApplication.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

按 F5 运行此代码的关键。 然后将工作簿拆分为与原始工作簿在同一文件夹中的单独Excel文件

注意：如果其中一个工作表与工作簿具有相同的名称，则此VBA无法工作。