【VBA案例016】拆分工作簿

【VBA案例016】拆分工作簿

发表于 · 分类：程技 · 标签：#VBA

大家好！

通过本次和之前几次的分享。对工作表、工作簿的拆分、合并都做了最基础的介绍以及案例演示。

而面对实际工作中经常遇到的工作表、工作簿的合并拆分问题，相信大家通过对这几个案例的交汇融合，基本上都可以找到对应的解决方案。

今天分享的是拆分系列的最有一项内容：拆分工作簿。就是把一个工作簿中的所有Sheet拆分成一个一个的独立的工作簿。

通过今天的案例，你将掌握工作表对象的Move和Copy方法。听起来很陌生，其实是你经常在用的一个很普通的功能：

语法： Sheet.Copy([Before],[After])‘参数可选，非必须 Sheet.Move([Before],[After])‘参数可选，非必须 注意： 如果不填参数，将会把Sheet移动或复制到一个新的工作簿中 以下是VBA代码。详细解析请看文末的视频。

vb
Option Explicit

Sub 拆分工作簿()

    Dim sht As Worksheet
    Dim filePath

    filePath = ThisWorkbook.Path & "\"

    Application.ScreenUpdating = False
    For Each sht In ThisWorkbook.Worksheets
        If sht.Name <> "首页" Then
            'sht.Move
            sht.Copy
            ActiveWorkbook.SaveAs filePath & sht.Name & ".xlsx"
            ActiveWorkbook.Close
        End If
    Next
    Application.ScreenUpdating = True

End Sub

原始链接