将Sheet页拆分成独立的Excel文件

1.新建一个文件夹，在文件夹中放入需要切分的Excel文件

2.打开Excel文件

3.按Alt+F11把代码【文章末尾可见】粘贴进去

4.选中代码，单击▶运行

5.随后会自动拆分，拆分结束后显示如下的画面

6.去文件夹中查看，sheet已经被拆分成独立的Excel文件

拆分代码：

Private Sub split()
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 "Cut Finished!"
End Sub