大家好！
通过本次和之前几次的分享。对工作表、工作簿的拆分、合并都做了最基础的介绍以及案例演示。
而面对实际工作中经常遇到的工作表、工作簿的合并拆分问题，相信大家通过对这几个案例的交汇融合，基本上都可以找到对应的解决方案。
今天分享的是拆分系列的最有一项内容：拆分工作簿。就是把一个工作簿中的所有Sheet拆分成一个一个的独立的工作簿。
通过今天的案例，你将掌握工作表对象的Move和Copy方法。听起来很陌生，其实是你经常在用的一个很普通的功能：
语法：
Sheet.Copy([Before],[After])‘参数可选，非必须
Sheet.Move([Before],[After])‘参数可选，非必须
注意：
如果不填参数，将会把Sheet移动或复制到一个新的工作簿中
以下是VBA代码。详细解析请看文末的视频。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| 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
|
原始链接
相关文章：VBA 35
