把Excel工作簿的每个工作表提取出来保存为新工作簿
2016-07-25 10:47
239 查看
平台:MS office 2010
任务:有个excel工作簿,其中有上百个工作表,要求把每一个工作表全部保存为新工作簿,如果一个一个复制出来太傻了,可以用excel自带的VB解决。
方法:打开工作簿,在工作表上点右键,选择“查看代码”,打开Microsoft Visual Basic for Application对话框,在菜单栏,单击“插入”—“模块”。在模块对话框中输入如下代码:
Private Sub hjs()
Dim sht As Worksheet
Dim ThisBook As Workbook
Set ThisBook = ActiveWorkbook
For Each sht In ThisBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & sht.Name & ".xlsx"
ActiveWorkbook.Close
Next
MsgBox "分拆完毕"
End Sub
单击“保存”按钮,选择“否”,打开“另存为”对话框,选择保存位置(因为将提取出来的文件太多,最好保存在一个新文件夹里。),输入保存文件名,将保存类型选择为“Excel启用宏的工作簿(*.xlsm)”,单击“保存”。
在Microsoft Visual Basic for Application对话框单击工具栏上的运行按钮,excel将自动提取各个工作表为单一工作簿。
任务:有个excel工作簿,其中有上百个工作表,要求把每一个工作表全部保存为新工作簿,如果一个一个复制出来太傻了,可以用excel自带的VB解决。
方法:打开工作簿,在工作表上点右键,选择“查看代码”,打开Microsoft Visual Basic for Application对话框,在菜单栏,单击“插入”—“模块”。在模块对话框中输入如下代码:
Private Sub hjs()
Dim sht As Worksheet
Dim ThisBook As Workbook
Set ThisBook = ActiveWorkbook
For Each sht In ThisBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & sht.Name & ".xlsx"
ActiveWorkbook.Close
Next
MsgBox "分拆完毕"
End Sub
单击“保存”按钮,选择“否”,打开“另存为”对话框,选择保存位置(因为将提取出来的文件太多,最好保存在一个新文件夹里。),输入保存文件名,将保存类型选择为“Excel启用宏的工作簿(*.xlsm)”,单击“保存”。
在Microsoft Visual Basic for Application对话框单击工具栏上的运行按钮,excel将自动提取各个工作表为单一工作簿。
相关文章推荐
- dfs求连通块(围棋 poj)
- iOS-学习路线图(推荐)
- 视频采集显示分辨率
- web前端开发小工具集合
- ubuntu16.04下github的使用
- MUI布局简介
- Android 使用Vitamio打造自己的万能播放器(1)――准备
- Extjs 封装多选下拉列表
- Spring Aop实例(XML形式)
- hdu 5735 Born Slippy
- Linux定时任务
- Android Service基础介绍
- Linux查看系统配置常用命令
- Matlab与C++混合编程(依赖OpenCV)
- android studio 标题栏无法隐藏的问题。
- 【Opencv】cvCreateTrackbar Error "void (*)(int)"类型的实参与"int"类型的形参不兼容
- 敏捷开发之Scrum扫盲篇
- bat文件的妙用1-一键开启所有开发软件
- 算法:递归总结(2)例子
- Retrofit 2.0,RxJava(Android), OkHttp3.3