【工作需求】


有的時候經常碰到這種情況或需求：


比如一個Excel工作簿內有多個工作表，例如：sheet1\sheet2\sheet3.......

我想實現把該工作簿內的每個工作表均獨立的保存為工作簿形式，比如保存為：

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 "文件已經被分拆完畢!"
   End Sub