Selles artiklis loome makro, et printida kausta kõik Exceli failid.
Kaustas on mõned Exceli failid, mida soovime printida. Kõigil neil on sama faililaiend “.xlsx”
Koodi selgitus
Rež (TargetFolder & FileFilter)
Ülaltoodud koodi kasutatakse kausta tee esimese faili failinime saamiseks.
Töövihikud. Avage TargetFolder & FileName
Ülaltoodud koodi kasutatakse määratletud töövihiku avamiseks.
ActiveWorkbook.PrintOut
Ülaltoodud koodi kasutatakse aktiivse töövihiku printimiseks.
Palun järgige koodi allpool
Valik Explicit Sub PrintAllWorkbooksInFolder (TargetFolder kui string, FileFilter kui string) 'Muutuja deklareerimine Dim FileName kui string' Ekraanivärskenduste keelamine Application.ScreenUpdating = False 'Tee eraldaja lisamine sihtkausta nime lõppu If Right (TargetFolder, 1) "\" Siis TargetFolder = TargetFolder & "\" End If 'Vaikimisi tee määramine failifiltrile If FileFilter = "" Siis FileFilter = "*.xls"' Hangi kausta FileName = Dir (TargetFolder & FileFilter) esimese faili failinimi Len (failinimi)> 0 Kui failinimi ThisWorkbook.Name Seejärel avage töövihiku töövihikud. Avage TargetFolder & FileName 'Prindib kõik töövihiku lehed ActiveWorkbook.PrintOut' Sulgege töövihik ilma muudatusi salvestamata. Sulgege vale lõpp, kui 'Hangi faili nimi järgmine fail kaustas FileName = Dir Wend End Sub Sub CallingProcedure () 'Muutujate deklareerimine Dim FolderPath, FileName as String' Väärtuste hankimine lehe 1 tekstikastist FolderPath = Sheet1.TextBox1.Value FileName = Sheet1.TextB ox2.Value 'Helistamine PrintAllWorkbooksInFolder protseduur PrintAllWorkbooksInFolder FolderPath, FileName End Sub
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile