如何将多个工作表拆分成独立的excel文件?

  • 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或有兼容包

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: