针对Microsoft Office Excel，各Sheet变成独立的Excel文件， 按Sheet拆分Excel文件，工作表独立成为工作簿

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.SaveAs Filename:=MyBook.Path & "\" & sht.Name & ".xlsx"     \'将工作簿另存为"xlsx"格式
ActiveWorkbook.Close
Next

MsgBox "文件已经被分拆完毕!"

End Sub

 

同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴以上代码。

在此界面直接按F5运行此宏，完成。