使用VBA代码一键分离另存excel文件中的sheet子表

使用VBA代码一键分离另存excel文件中的sheet子表

打开VB，增加模块，输入以下代码：
Sub SaveSeparately()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path & “”
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub

一、在模块中键入以上代码之后，点击保存，选择图片中的“否”。

二、另存为“excel启用宏的工作簿”，保存。

三、保存完之后，点击图片中的三角形运行代码后即可自动将每个子表保存为独立的excel文件。