2022-05-26 excel-vba代码-将多个工作簿拆分成多个工作表文件

前提：

将文件另存为成后缀名为.xlsm的文件，这种文件是带宏的excel文件。

 Excel软件与wps软件，都是点击<开发工具> --> --> <插入> --> <模块> ，将VBA代码复制进去，然后点击<运行> --> <运行子过程>。

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 
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub