Red de conocimiento informático - Espacio del host - ¿Quiero imprimir todos los archivos de Excel en una carpeta determinada (usando VBA), como los archivos (C:\A\B.*.xlsx)?

¿Quiero imprimir todos los archivos de Excel en una carpeta determinada (usando VBA), como los archivos (C:\A\B.*.xlsx)?

1. Referencia

Cómo extraer por lotes nombres de archivos en una carpeta

2. Utilice el siguiente código (imprima el formulario actual)

Sub impresión()

'2019-12-25 22:00:47

Dim m1$, m2$, m$

m1 = "C: \A"

m2 = "B.*.xlsx"

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

Mientras m <> " " Si a m le gusta m2, entonces

Libros de trabajo.Abra m1 & "\" & m

ActiveWindow.SelectedSheets.PrintOut Copias:=1, Intercalar:=True

ActiveWorkbook.Close SaveChanges:=False End If m = Dir

Wend

End Sub.