Šiame straipsnyje mes sukursime makrokomandą, kad išspausdintume visus „Excel“ failus aplanke.
Aplanke, kurį norime spausdinti, turime keletą „Excel“ failų. Visi jie turi tą patį failo plėtinį „.xlsx“
Kodo paaiškinimas
Rež. („TargetFolder“ ir „FileFilter“)
Aukščiau pateiktas kodas naudojamas norint gauti pirmojo failo pavadinimą aplanko kelyje.
Darbaknygės. Atidarykite „TargetFolder & FileName“
Aukščiau pateiktas kodas naudojamas atidaryti apibrėžtą darbaknygę.
ActiveWorkbook.PrintOut
Aukščiau pateiktas kodas naudojamas aktyviai darbo knygai spausdinti.
Sekite toliau pateiktą kodą
Parinktis „Explicit Sub PrintAllWorkbooksInFolder“ („TargetFolder“ kaip eilutė, „FileFilter“ kaip eilutė) „Kintamojo deklaravimas Dim FileName As String“ Ekrano atnaujinimų išjungimas Application.ScreenUpdating = False Tada TargetFolder = TargetFolder & "\" End If 'Numatytojo kelio priskyrimas failų filtrui If FileFilter = "" Tada FileFilter = "*.xls"' Gaukite pirmojo failo pavadinimą aplanke FileName = Dir (TargetFolder & FileFilter) Len (failo pavadinimas)> 0 Jei failo pavadinimas ThisWorkbook.Name, tada „Atidaryti darbaknygės darbaknyges. Atidaryti TargetFolder & FileName“ Spausdina visus darbaknygės „ActiveWorkbook“ lapus. „PrintOut“ Uždarykite darbaknygę, neišsaugodami jokių pakeitimų „ActiveWorkbook“. Uždarykite klaidingą pabaigą, jei „Gauti failo pavadinimą kitas failas aplanke FileName = Dir Wend End Sub Sub CallingProcedure () 'Declaring kintamieji Dim FolderPath, FileName As String' Gauti reikšmes iš teksto laukelio 1 lape FolderPath = Sheet1.TextBox1.Value FileName = Sheet1.TextB ox2.Value 'Skambinimas PrintAllWorkbooksInFolder procedūra PrintAllWorkbooksInFolder FolderPath, FileName End Sub
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el