02excel 將多個sheet表拆分成獨立的excel文件

1,打開excel表，ALT+F11-->打開VBA編輯器-->插入-->模塊

 

 

2,將下列代碼拷貝至彈出的窗口

Sub sheet轉獨立文件()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path &"\"
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub

 

3,按F5運行；
程序運行（鼠標一直處於轉圈狀態）。

說明：
根據數據多少，運行一段時間，並不是死機，一般會有幾分鍾時間。