vb整合多个excel表格到一张_[Excel]同一工作簿中多个工作表保存成独立的表格
一个工作簿中有多个表格,如何将其表格单独保存成一个独立的文档呢?
如果表格少,操作如下:选中要导出表格的标签名--鼠标邮件--移动或复制表格--新建工作簿。
当如果表格太多呢,以上方法就太罗嗦了。
简单方法用VBA,步骤如下:
1、创建一个文件夹,将要分离的工作簿放到该文件夹里,单独生产的文件也会保存到该文件夹里。
2、调出VBA:如果EXCEL里没VBA项,调出:EXCEL文件--选项--自定义功能区--在右边勾选开发工具。
3、输入VBA代码:
1)打开vba编辑器:点击开发工具--点工具栏上最右边的VB;
2)在左边的工程区,点选要操作的工作簿中的任意一个工作表,选择【插入】->【模块】,会出现代码区,复制代码到窗口中,然后点击【执行】即可
'将每个工作表保存成单独的Excel文件
Sub SplitEachWorksheet()
Dim FPath As String
FPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Sheets
ws.Copy
Application.ActiveWorkbook.SaveAs Filename:=FPath & "" & ws.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3)执行分离:
点excel工具栏里的 运行按钮,就OK,文件会保存到母文件目录下。
4、也可以将分离的文件保存成一个单独的PDF文件,而不是EXCEL文件,步骤同上,只是代码不同。具体的代码如下:
'将每个工作表保存成单独的PDF文件
Sub SplitEachWorksheet()
Dim FPath As String
FPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = FalseFor Each ws In ThisWorkbook.Sheets
ws.Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FPath & "" & ws.Name & ".xlsx"
Application.ActiveWorkbook.Close False
NextApplication.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
vb整合多个excel表格到一张_[Excel]同一工作簿中多个工作表保存成独立的表格相关推荐
- Excel 合并一个工作簿中的所有工作表
Excel 合并一个工作簿中的所有工作表 最近在做一个统计表的时候发现了一个问题,我一个工作簿中有许多工作表,我要把它们汇总到一个工作表中进行统计.一个个复制非常麻烦,那么我们怎么来进行简化操作: 1 ...
- Python+Excel系列: 案例三:批量重命名一个工作薄中的所有工作表、批量重命名一个工作簿中的部分工作表
文章目录 批量重命名一个工作薄中的所有工作表 批量重命名一个工作簿中的部分工作表 批量重命名一个工作薄中的所有工作表 例:把table文件夹下一个工作簿中所有工作表名中的"销售"二 ...
- 【excel使用】批量删除excel工作簿中多个工作表的同一列内容?
1.首先要保证多个工作表(sheet页)表头保持一致,或者部分保持一致(只能修改一致的部分) 2.如果想要删除所有工作表中的B列内容 ,一个一个的删除会很麻烦,所以需要使用批量删除: 1)鼠标点选工作 ...
- Python+Excel系列:案例六:批量打印工作簿、批量打印多个工作簿中的指定工作表
文章目录 批量打印工作簿 批量打印多个工作簿中的指定工作表 批量打印工作簿 专门用于打印的函数PrintOut() import os #导入os模块 import xlwings as xw #导入 ...
- 「Excel技巧」Excel批量提取当前工作簿下的所有工作表名称
摘自:「Excel技巧」Excel批量提取当前工作簿下的所有工作表名称 (baidu.com) 一个工作簿里有很多工作表,想要提取当前工作簿的所有工作表名称,你会怎么操作? 过去的我,可能会一个个手动 ...
- 如何在Excel中将工作表复制或移动到另一个工作簿中
There may be times when you need to copy or move a worksheet into another workbook in Excel or make ...
- Excel 2010 VBA 入门 067 导入多个工作簿中的工作表
目录 示例 实现代码 导入多个工作簿中的工作表 Application. ScreenUpdating属性 示例 如图所示,在同一个目录下有多个工作表名称相同的工资汇总月报.现希望通过VBA建立该多个 ...
- c 将mysql表数据打印,c 中数据库数据如何导出至excel表格-用sql语句把一个数据库内的表保存成excel表格??...
如何用JAVA将数据库中的数据导入到excel表格 1.C语言产生ASCII数据文件,使用空格做作为数据分隔符. 2入Excel,选择数据选项卡 / 获部数据工具组 / 自文本按钮 3.进入数据导入框 ...
- Excel一键删除工作簿中所有表格中的条件格式
今天要和大家分享的是,Excel一键删除工作簿中所有表格中的条件格式的操作,注意是所有表格的,而不是一个表格一个表格的去删除 (方方格子插件) 1.先看动图演示吧 2.打开工作簿后,我们看到有3个表格 ...
最新文章
- Educational Codeforces Round 2 B. Queries about less or equal elements
- rabbitmq多个消费者监听一个队列_RabbitMQ的六种工作模式
- 【C语言简单说】八:分支结构之if...else...(2)
- 视图编辑php,PhpStorm视图模式
- 惊呆了!JDK1.8竟然打破了我对接口的一切认知...
- 深度可分离卷积结构(depthwise separable convolution)计算复杂度分析
- JavaSE基础——网络编程
- 比赛-6月Round1
- cydia加载未能连接服务器请求超时,win7专业版中cydia无法加载请求超时解决方案...
- BiliBili下载助手
- url 转码 java_URL 转码遇到的坑
- win10电脑插入U盘不显示U盘盘符怎么办?
- 苹果系统版本依次顺序_苹果手机排列顺序
- php 内网/外网ip判断
- SourceInsight4.0的使用
- [iOS Animation]-CALayer 变换-灭点
- 实现一键下载,批量快速爬取B站视频
- PPT学习整理(五)编辑顶点
- 曝新款苹果手机将采用低功耗微处理器,Find My定位在关机状态下也能使用
- Oracle Data Pump Full Transportable方式导入导出
热门文章
- Android Studio安装问题及填坑
- Java提高篇 —— Java浅拷贝和深拷贝
- 浅谈equals与==
- 解决:single failed: For artifact {null:null:null:jar}: The groupId cannot be empty. 把工程依赖的jar包打到入jar中
- F12 界面:请求响应内容 Preview 和 Response 不一致、接口返回数据和 jsp 解析到的内容不一致
- 「LG2664 树上游戏」
- 【重点突破】—— React实现富文本编辑器
- Elasticsearch的前后台运行与停止(tar包方式)
- Codeforces Round #354 (Div. 2)
- 能力=知识+技能+经验