VBA 批量打印多工作簿的指定工作表

要解决的问题：

同一个文件夹有多个工作簿，工作簿中有相同格式的多个sheet表，其中有两个固定的SHEET需要打印（所有EXCEL工作簿表格中两个固定SHEET的名字相同）。每次打开这么多文档，再将表格一个个打印很繁琐，有什么快捷的方法可以直接打印这个文件夹下所有EXCEL表中这两个固定的SHEET表内容？

解决思路：

1、将要打印的工作簿放在同一个文件夹内，如：D:\mywbooks\

2、使用dir在文件夹中遍历文件，然后打开工作簿，再打印指定的工作表，然后关闭文件。

EXCEL VBA代码如下：

Sub myprint()
Dim file$, folder$, wb As Workbook
folder = "D:\mywbooks\"
file = Dir(folder & "*.xlsx") ’如有其他后辍，可以使用Dir(folder & "*.xls*")
Do While file <> ""
Set wb = GetObject(folder & file)
wb.Worksheets("sheet1name").PrintOut
wb.Worksheets("sheet2name").PrintOut
wb.Close
set wb=nothing
file = Dir
Loop
End Sub

或者使用如下方法：

Sub myprint()
Dim file$, folder$, wb As Workbook, sht As Worksheet
folder = "D:\mywbooks\"
file = Dir(folder & "*.xlsx") '如有其他后辍，可以使用Dir(folder & "*.xls*")
Do While file <> ""
With Workbooks.Open(folder & file)
For Each sht In .Sheets
If sht.Name = "sheet1name" Or sht.Name = "sheet2name" Then sht.PrintOut
Next sht
.Close
End With
file = Dir
Loop
End Sub

VBA 批量打印多工作簿的指定工作表相关推荐

Python+Excel系列：案例七：将一个工作薄的所有工作表批量复制到其他工作簿、将某个工作表的数据批量复制到其他工作簿的指定工作表中
文章目录将一个工作薄的所有工作表批量复制到其他工作簿将某个工作表的数据批量复制到其他工作簿的指定工作表中将一个工作薄的所有工作表批量复制到其他工作簿 import os #导入os模块 impo ...
xlwings跨工作簿复制粘贴工作表——小白文章
import xlwings as xw import time from time import sleep #以上为调用xlwings模块和时间模块 app = xw.App ( visible= ...
Python+Excel系列：批量处理Excel文件的模块—xlwings：创建、保存、打开工作簿，操控工作表和单元格
文章目录认识xlwings模块 1.创建工作簿 2.保存工作簿 3.打开工作簿 4.操控工作表和单元格综合实例认识xlwings模块可以用来处理Excel文件的python模块很多,如Xlsx ...
Excel 2010 VBA 入门 067 导入多个工作簿中的工作表
目录示例实现代码导入多个工作簿中的工作表 Application. ScreenUpdating属性示例如图所示,在同一个目录下有多个工作表名称相同的工资汇总月报.现希望通过VBA建立该多个 ...
VBA小程序_清除工作簿所有Sheet工作表的条件格式
Sub VBA小程序_清除工作簿所有Sheet工作表的条件格式()Dim sht As WorksheetFor Each sht In Worksheetssht.Activatesht.Cells ...
excel中使用VBA进行多工作簿或多工作表一键汇总
1. 同一目录下的多工作簿,每个工作簿中有一张或多张工作表,一键全部汇总 Sub 合并目录所有工作簿全部工作表()Dim MP, MN, AW, Wbn, wnDim Wb As WorkbookDi ...
关于Excel下通过VBA实现工作簿文件下工作表的合并
对于普通使用者而言,Excel是一个比较强大的数据处理工具.一般公司的普通职员常使用它来完成数据的录入分析,但是当面对处理经由多人按统一模板统计完成的录入数据分析时,数据将分散存放在多个.xlsx文件 ...
Excel·VBA工作簿拆分所有工作表单独保存
对Excel活动工作簿进行拆分,每个工作表单独保存为工作簿文件,文件保存在该工作簿同一文件夹下单独文件夹内 Sub 工作簿拆分所有工作表单独保存文件()'将活动工作簿wb拆分,每个ws单独保存为文件, ...
Excel VBA 将不同工作簿中的工作表，按照工作表名里相同的关键词汇总
命令从下面第一个Sub开始: Sub Collectwks() Dim Sht As Worksheet, rng As Range, Sh As Worksheet Dim Trow&, k ...

VBA 批量打印多工作簿的指定工作表

VBA 批量打印多工作簿的指定工作表相关推荐

最新文章

热门文章