妙用Microsoft Excel的宏命令批量打印工作表
一次笔者要把一批资料的纸张大小由B4纸调整为A4纸,并在打印时缩放成一页(即一页宽,一页高)。由于资料都是由单独工作簙构成的,对于每一个明细资料,都需要逐个打开工作簙,设置每一张工作表的页面设置,然后再打印,工作量很大。然而笔者利用宏很快便完成了所有的工作。方法如下:
启动Microsoft Excel,按快捷键“Alt+F11”进入Microsoft Visual Basic编辑器。在编辑器中单击菜单“插入→模块”,在创建的模块中输入以下代码:
Sub printer()
With Application.FileSearch
.LookIn = "E:/财务决算/变更报表/" '设置文件的搜索路径
.FileType = msoFileTypeExcelWorkbooks '设置要搜索的文件类型为工作簿
If .Execute > 0 Then '如果找到一个或多个文件
For i = 1 To .FoundFiles.Count '设置打开工作簙的循环
Workbooks.Open Filename:=.FoundFiles(i) '打开找到的每一个工作簙
For j = 1 To Worksheets.Count '设置逐项选择工作表的循环
Worksheets(j).Select '选择工作表
With ActiveSheet.PageSetup '设置当前工作表的页面设置
.PaperSize = xlPaperA4 '设置纸张大小为A4纸
.Zoom = False
.FitToPagesWide = 1 '设置为1页宽
.FitToPagesTall = 1 '设置为1页高
End With
Next j '选择下一张工作表
ActiveWorkbook.PrintOut '打印整个工作簙
ActiveWorkbook.Save '保存当前工作簙
ActiveWorkbook.Close '关闭当前工作簙
Next i '打开下一个工作簙
Else
MsgBox "没有找到任何工作簿文件" '提示没有找到任何工作簿文件
End If
End With
End Sub
输入代码后,按快捷键“F5”运行宏,这时系统就会打开找到的第一个工作簿,并依次设置每一张工作表的纸张大小为A4纸张,缩印成一页宽和一页高,然后再打印整个工作簙,保存并退出,接着依次打开当前目录下的所有工作簿,执行相同的任务。
注意,程序所搜索到的文件仅是当前目录下的工作簿,不包括子目录下的文件。
妙用Microsoft Excel的宏命令批量打印工作表相关推荐
- VBA批量打印工作表,并设置每个工作表的份数
问题如下:同事一个工作簿里面有很多个工作表,要将其全部打印,并且每个工作表要打印5份,也就是平时说的一式五份.下面的代码可以实现打印一式五份,不需要在一份一份分好. Sub 批量打印工作簿() Dim ...
- EXCEL:如何批量创建工作表
第一步:打开一个新的工作表,输入需要批量创建的工作表名 第二步:选中A1:A11,选择插入--数据透视表--表格和区域 第三步:选择防止数据透视表的位置--现有工作表--位置选择任一空白格--确定 第 ...
- Microsoft Excel 教程:如何在 Excel 中移动或复制工作表或工作表数据?
欢迎观看 Microsoft Excel 教程,小编带大家学习 Microsoft Excel 的使用技巧,了解如何在 Excel 中移动或复制工作表或工作表数据. 如果需要重新组织数据,可以轻松地更 ...
- Microsoft Excel 教程:如何在 Excel 中查找或替换工作表上的文本和数字?
欢迎观看 Microsoft Excel 教程,小编带大家学习 Microsoft Excel 的使用技巧,了解如何在 Excel 中查找或替换工作表上的文本和数字. 在 Excel 中使用「查找和替 ...
- Microsoft Excel 教程「3」:如何在 Excel 中打印工作表?
欢迎观看 Microsoft Excel 教程,小编带大家学习 Microsoft Excel 的使用技巧,了解如何在 Excel 中打印工作表. 可打印全部或部分工作表,可一次打印一个,也可一次打印 ...
- Python+Excel系列:案例六:批量打印工作簿、批量打印多个工作簿中的指定工作表
文章目录 批量打印工作簿 批量打印多个工作簿中的指定工作表 批量打印工作簿 专门用于打印的函数PrintOut() import os #导入os模块 import xlwings as xw #导入 ...
- Excel酷炫技能,批量修改工作表名称,让你的工作事半功倍
企事业单位部门众多,人员也众多.使用Microsoft Excel汇集资料任务繁重,收集到的Excel工作表资料名称也各不相同,如果不将其整理会对今后的工作造成不必要的麻烦.对Excel工作表名称单个 ...
- Python让Excel飞起来—批量处理工作薄和工作表
目录 案例01 批量新建并保存工作薄 举一反三 批量新建并关闭工作薄 案例02 批量打开一个文件夹下的所有工作薄 举一反三 列出文件夹下所有文件和子文件夹的名称 案例03 批量重命名一个工作薄中的所有 ...
- excel批量超链接工作表_在Excel工作表中创建到另一个文档的超链接
excel批量超链接工作表 Sometimes you might want to share information from other documents in Microsoft Excel. ...
最新文章
- “他们”最想要的圣诞礼物是你的...
- 不断尝试,终能到达彼岸
- CentOS录屏快捷键
- hibernate批量上传
- 火山引擎 veStack 在企业办公场景的落地实践
- 《Excel图表之道》——书和人
- Java二级多少分算过_计算机二级考多少分算过
- 玩转 Spring Boot 集成篇(Actuator、Spring Boot Admin)
- java-Socket文件传输
- 《跨越鸿沟》中的提到的五类用户
- 联想g510升级换什么cpu好_联想G510笔记本完全拆机指南(图解)
- 人机交互中的情境认知
- Zookeeper隐藏通道和羊群效应
- 为什么世界 500 强企业在逐步淘汰传统绩效考核
- java mavlink_java – 使用消息更改速度到Mavlink
- 软件需求、架构培训(一)
- 力扣904(滑动窗口、哈希)
- 《多媒体技术基础》辅导
- 2.1 Oracle 服务器
- POI-TL学习--文本样式设置
热门文章
- 可信 AI 突破:移动设备不仅要智能,还要安全
- 神经网络训练 policy gradient 算法时 梯度消失问题
- centos+jenkins+nginx+gitlab前端自动化部署全记录
- airpods Pro空间音频功能介绍
- 计算机毕设之火车票预约系统
- 蓝桥杯 算法提高 色盲的民主
- html +java 图片上传的前后端代码
- git提交错误 Remote reject HEAD - refs/for/master (change htto://gerrit.iot.cn/54 closed)
- Steam更新文件损坏解决方法
- go build ldflags