怎样将一个excel表格的多个sheet拆分成多个excel表

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《怎样将一个excel表格的多个sheet拆分成多个excel表》，欢迎阅读！

打开excel表，ALT+F11-->打开VBA编辑器-->插入-->模块

点击菜单插入-模块 在弹出的模块对话框中 输入以下代码：

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:=xlNormal '将工作簿另存为EXCEL默认格式

ActiveWorkbook.Close

Next

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

End Sub

单击运行-运行子过程|窗体 几秒过后 弹出提示窗口“文件已被拆分完毕”

返回Excel工作簿文件所在路径 查看 原先工作簿中的工作表已经成为单独的工作簿了！不信 可以对照查看图中的修改日期

本文来源：https://www.wddqxz.cn/4d5ea67cad45b307e87101f69e3143323968f5c5.html