excel中多个sheet工作表拆分成独立的excel文件

上篇说到将excel中的一个工作表按照某列拆分成多个sheet工作表，那么如何把excel中的多个sheet工作表拆分成一个一个独立的工作表呢？接下来就继续利用VBA工具来解决这个问题。
第一步：打开要拆分的表格，如图所示：

第二步：点击“开发工具—>查看代码”，如图所示：

第三步：右击“WPS表格对象—>插入—>模块”命令，在新建的“模块1”中粘贴VBA代码，如图所示：

具体代码如下所示：

Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub

第四步：点击“运行”即可。或者“点击运行—>运行子过程/用户窗体”。如图所示：