马成功:如何快速拆分Excel工作簿文件?

关键词:[电脑技能] 浏览:12513 发布日期:2016-01-20 网页收藏

  • 【工作需求】


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


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

企业会员在线交易流程