Ak potrebujete tlačiť z viacerých excelových zošitov v adresári, môžete použiť tu uvedené makro na tlač všetkých naraz.
Ako funguje makro
V tomto makre použijete funkciu Dir na vrátenie reťazca, ktorý predstavuje názov súboru, ktorý sa zhoduje s tým, čo mu odovzdáte.
Pomocou funkcie Dir môžete prepočítať všetky súbory .xlsx v danom adresári, pričom zaznamenáte názov každého súboru. Potom každý súbor otvoríte, vytlačíte a potom zatvoríte.
Pod makro1()
'Krok 1: Deklarujte svoje premenné
Dim MyFiles As String
'Krok 2: Zadajte cieľový adresár
MyFiles = Dir("C:Temp*.xlsx")
Robiť počas MyFiles <> "
„Krok 3: Otvorte zošity jeden po druhom
Workbooks.Open "C:Temp" & MyFiles