【工作需求】
有的時候經(jīng)常碰到這種情況或需求:
比如一個Excel工作簿內(nèi)有多個工作表,例如:sheet1\sheet2\sheet3.......
我想實現(xiàn)把該工作簿內(nèi)的每個工作表均獨立的保存為工作簿形式,比如保存為:
sheet1.xls sheet2.xls sheet3.xls......
【使用方法】
通過將該代碼復制并粘貼到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
ActiveWorkbook.Close
Next
MsgBox "文件已經(jīng)被分拆完畢!"
End Sub