Excel\WPS利用VBA将多个sheet表拆分成独立的文件，VBA for WPS下载

问题场景

工作中整理完数据录入系统需要生成特定格式的Excel文件
此时可选的方案可以是：手工修改，一个一个的复制，新建文件，生成新的sheet文件，sheet多的时候很麻烦；或者利用VBA直接批量生成特定格式的Excel文件。

操作步骤

• 使用微软OFFICE办公软件，可以直接使用VBA，启用步骤是：打开Excel，自定义功能区——》勾选【开发工具】，确认，【开发工具】——》【vba编辑器】——》【插入】——》【模块】，即可。
• 若使用WPS则需要另外安装VBA工具：VBA for WPS，提取码：38bg，安装完成后，打开【开发工具】——》【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

在编辑好Excel文件内容后，进入VBA编辑器，直接运行上述代码，即可批量拆分生成Excel文件。
例如：

运行上述代码后：

参考资料：

WPS 2019 多个sheet表拆分成独立的excel文件 （VBA工具）
excel多个sheet表拆分成独立的excel文件