EXCEL拆分工作表
别妄想泡我
917次浏览
2021年01月27日 23:47
最佳经验
本文由作者推荐
励志诗歌朗诵稿-谚语大全及答案
EXCEL
拆分工作表脚本：
Private Sub
拆分工作表
()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In
Filename:=
&
&
,
FileFormat:=xlNormal
'
将工作簿另存为
EXCEL
默认格式
Next
MsgBox
文件已经被拆分完毕
!
End Sub
方法
/
步骤
1.
打开需要编辑的
Ex cel
文档。
如图所示，
工作簿下方有很多工作表。
现在
需要将这些 工作表单独拆分开成一个个工作簿。需要在工具
-
宏
-
安全性：
设置 为低等级。
2.
右键任意一个工作表标签，
在弹出的 下拉列表中选择查看代码。
即弹出代
码窗口。如下图所示。
3.
点击菜单插入
-
模块
在弹出的模块对话框中
输入以下代码：
Private
Sub
拆分工作表
()
Dim
sht
As
Worksheet
Dim
MyBook
As
Workbook
Set
MyBook
=
ActiveWorkbook
For
Each
sht
In
Filename:=
&
&
,
FileFormat:=xlNormal
'
将工作簿另存为
EXCEL
默认格式
Next
MsgBox
文件已经被拆分完毕
!
End
Sub