下载此文档
搜索文档
阅读：
文档下载说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。下载word有问题请添加QQ：admin处理，感谢您的支持与谅解。
【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《怎样将一个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.dywdw.cn/4d5ea67cad45b307e87101f69e3143323968f5c5.html
相关推荐
2023-04-12
推荐阅读
最新更新文章
热门阅读文章
