【工作需求】


有的时候经常碰到这种情况或需求：


比如一个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