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

admin

5 年前

如何实现将多个工作表拆分成独立的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

MsgBox "文件已经被分拆完毕!"

End Sub

注意事项
拆分后的工作薄格式为.xlsx
电脑上有安装excel2007或有兼容包

Post Views: 9,346