【VBA案例016】拆分工作簿

程技 VBA

发布时间 : 2023-10-23 00:00

字数:325 阅读 :

大家好！

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

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

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

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

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

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

原始链接

转载请注明来源，欢迎对文章中的引用来源进行考证，欢迎指出任何有错误或不够清晰的表达。可以在下面评论区评论，也可以邮件至 richffan@outlook.com