【工作需求】


有的時(shí)候經(jīng)常碰到這種情況或需求：


比如一個(gè)Excel工作簿內(nèi)有多個(gè)工作表，例如：sheet1\sheet2\sheet3.......

我想實(shí)現(xiàn)把該工作簿內(nèi)的每個(gè)工作表均獨(dú)立的保存為工作簿形式，比如保存為：

sheet1.xls    sheet2.xls   sheet3.xls......

【使用方法】

通過(guò)將該代碼復(fù)制并粘貼到excel后臺(tái)宏界面下，然后運(yùn)行宏代碼即可，注意宏安全性設(shè)置。

【代碼如下】


   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