13问答网 > 遍历一个文件夹内的所有EXCEL工作簿，找出同名的例如每个工作簿中Sheet2这张工作表全部打印出来的VBA。

遍历一个文件夹内的所有EXCEL工作簿，找出同名的例如每个工作簿中Sheet2这张工作表全部打印出来的VBA。

2025-03-15 04:05:42

推荐回答（2个）

回答1：

Sub prt()
Dim ws As Workbook, path$, d$
Application.ScreenUpdating = False
path = ThisWorkbook.path & "\"
d = Dir(path & "*.xls")
Do While d <> "'"
If d <> ThisWorkbook.Name Then
Set ws = Workbooks.Open(path & d)
ws.Worksheets("sheet2").select
Activesheet.PrintOut
ws.Close False
End If
d = Dir
Loop
Application.ScreenUpdating = True
End Sub

回答2：

除了Do While d <> "'"多一个单引号程序没什么问题