我要打印壹個文件夾下的所有excel文件（用VBA）比如（C:\A\B.*.xlsx）的文件？

1、參考

怎樣批量提取文件夾下文件名

2、使用下面代碼（打印當前表）

Sub 打印()

'2019-12-25 22:00:47

Dim m1$, m2$, m$

m1 = "C:\A"

m2 = "B.*.xlsx"

m = Dir(m1 & "\", vbReadOnly)

While m <> ""

Workbooks.Open m1 & "\" & m

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

ActiveWorkbook.Close SaveChanges:=False

Wend

End Sub