【VBA案例016】拆分工作簿

归档779

审技265 程技242 投技146 财技57 税技47 法技11 食技7 书技4

310 字

2 分钟

【VBA案例016】拆分工作簿

2023-10-23

程技

VBA

浏览量加载中...

大家好！

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

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

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

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

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

1
Option Explicit
2

3
Sub 拆分工作簿()
4

5
    Dim sht As Worksheet
6
    Dim filePath
7

8
    filePath = ThisWorkbook.Path & "\"
9

10
    Application.ScreenUpdating = False
11
    For Each sht In ThisWorkbook.Worksheets
12
        If sht.Name <> "首页" Then
13
            'sht.Move
14
            sht.Copy
15
            ActiveWorkbook.SaveAs filePath & sht.Name & ".xlsx"
16
            ActiveWorkbook.Close
17
        End If
18
    Next
19
    Application.ScreenUpdating = True
20

21
End Sub