- A+
所属分类：审计
如何实现将多个工作表拆分成独立的excel文件，以下介绍两种代码实现
实现方式一：通过宏命令实现
打开excel表，ALT+F11-->打开VBA编辑器-->插入-->模块
将下列代码拷贝至弹出的窗口
Sub sheet转独立文件()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path &"\"
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub按F5运行
说明：
根据数据多少，运行一段时间，并不是死机，一般会有几分钟时间
根据数据多少，运行一段时间，并不是死机，一般会有几分钟时间
实现方式二
在打开的窗口中输入如下代码：
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook '将工作簿另存为xlsx格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub
注意事项
拆分后的工作薄格式为.xlsx
电脑上有安装excel2007或有兼容包
- 我的微信公众号
- 我的微信公众号扫一扫
-
- 我的微信公众号
- 我的微信公众号扫一扫
-
