怎么拆分一个Excel工作簿中的多个工作表
2015-08-18 16:47
204 查看
本篇经验贴子中,我将向大家分享如何利用函数将一个Excel工作簿中的多个工作表拆分成为单独的工作簿文件。步骤亦不负责,具体请参看内容。希望对你有所帮助!
打开需要编辑的Excel文档。如图所示,工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。
2
右键任意一个工作表标签,在弹出的下拉列表中选择查看代码。即弹出代码窗口。如下图所示。
3
点击菜单插入-模块 在弹出的模块对话框中 输入以下代码:
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
4
单击运行-运行子过程|窗体 几秒过后 弹出提示窗口“文件已被拆分完毕” 如下图所示
5
返回Excel工作簿文件所在路径 查看 如下图所示 原先工作簿中的工作表已经成为单独的工作簿了!不信 可以对照查看图中的修改日期
工具/原料
microsoft office excel 2007方法/步骤
1打开需要编辑的Excel文档。如图所示,工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。
2
右键任意一个工作表标签,在弹出的下拉列表中选择查看代码。即弹出代码窗口。如下图所示。
3
点击菜单插入-模块 在弹出的模块对话框中 输入以下代码:
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
4
单击运行-运行子过程|窗体 几秒过后 弹出提示窗口“文件已被拆分完毕” 如下图所示
5
返回Excel工作簿文件所在路径 查看 如下图所示 原先工作簿中的工作表已经成为单独的工作簿了!不信 可以对照查看图中的修改日期
相关文章推荐
- Android(java)学习笔记173:BroadcastReceiver之 BroadcastReceiver静态注册(SD卡卸载或者安装案例)和 BroadcastReceiver动态注册注销
- OC基础回顾(十)属性
- leetcode 152 —— Maximum Product Subarray
- 欢迎使用CSDN-markdown编辑器
- OpenGL4.3如何管理buffer中的数据的(二)
- DNS域名解析简介
- [DP]0817-08基础DP
- hdoj 1596 find the safest road
- Android Fragment 真正的完全解析(下)
- 杭电 2680 Choose the best route(dijkstra)
- Java连接池
- TCP/IP体系结构简介
- PLSQL配置数据库的方式
- 微信公众号开发之微信支付
- 2015年邮件营销人员最值得关注的10个焦点
- 黑马程序员_TCPUDP
- Load Asset Bundle in Editor
- select2组件
- C++函数调用详解
- C++函数调用详解