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

要解决的问题：

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

解决思路：

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

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

---

EXCEL VBA代码如下：

 

1. Sub myprint()
2.     Dim file$, folder$, wb As Workbook
3.     folder = "D:\mywbooks\"
4.     file = Dir(folder & "*.xlsx") ’如有其他后辍，可以使用Dir(folder & "*.xls*")
5.     Do While file <> ""
6.         Set wb = GetObject(folder & file)
7.         wb.Worksheets("sheet1name").PrintOut
8.         wb.Worksheets("sheet2name").PrintOut
9.         wb.Close
10.         set wb=nothing
11.         file = Dir
12.     Loop
13. End Sub

---

或者使用如下方法：

 

 

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