Ja vienā direktorijā jādrukā no vairākām Excel darbgrāmatām, varat izmantot šeit parādīto makro, lai tās visas drukātu vienlaikus.
Kā darbojas makro
Šajā makro izmantojat funkciju Dir, lai atgrieztu virkni, kas apzīmē faila nosaukumu, kas atbilst tam, ko tam nosūtāt.
Jūs izmantojat funkciju Dir, lai uzskaitītu visus .xlsx failus noteiktā direktorijā, tverot katra faila nosaukumu. Pēc tam atverat katru failu, izdrukājat to un pēc tam aizverat.
Apakšmakro1()
1. darbība: deklarējiet savus mainīgos
Dim MyFiles kā virkni
'2. darbība: norādiet mērķa direktoriju
MyFiles = Dir("C:Temp*.xlsx")
Dariet, kamēr MyFiles <> "
3. darbība. Atveriet darbgrāmatas pa vienai
Darbgrāmatas. Atveriet "C:Temp" un MyFiles