Om du behöver skriva ut från flera Excel-arbetsböcker i en katalog kan du använda makrot som presenteras här för att skriva ut alla på en gång.
Hur makrot fungerar
I det här makrot använder du Dir-funktionen för att returnera en sträng som representerar namnet på filen som matchar det du skickar till den.
Du använder Dir-funktionen för att räkna upp alla .xlsx-filer i en given katalog, och fånga varje fils namn. Sedan öppnar du varje fil, skriver ut den och stänger den sedan.
Sub Macro1()
'Steg 1: Deklarera dina variabler
Dimma MyFiles As String
'Steg 2: Ange en målkatalog
MyFiles = Dir("C:Temp*.xlsx")
Gör medan MyFiles <> "
'Steg 3: Öppna arbetsböcker en efter en
Arbetsböcker. Öppna "C:Temp" & MyFiles