Hvis du trenger å skrive ut fra flere Excel-arbeidsbøker i en katalog, kan du bruke makroen som presenteres her for å skrive ut alle samtidig.
Hvordan makroen fungerer
I denne makroen bruker du Dir-funksjonen til å returnere en streng som representerer navnet på filen som samsvarer med det du sender til den.
Du bruker Dir-funksjonen til å telle gjennom alle .xlsx-filer i en gitt katalog, og fange opp hver fils navn. Deretter åpner du hver fil, skriver den ut og lukker den.
Sub Makro1()
'Trinn 1: Deklarer variablene dine
Dim MyFiles som streng
'Trinn 2: Spesifiser en målkatalog
MyFiles = Dir("C:Temp*.xlsx")
Gjør mens MyFiles <> "
'Trinn 3: Åpne arbeidsbøker én etter én
Arbeidsbøker. Åpne "C:Temp" og MyFiles