Šajā rakstā mēs izveidosim makro, lai drukātu visus Excel failus mapē.
Mapē ir daži Excel faili, kurus vēlamies izdrukāt. Visiem tiem ir vienāds faila paplašinājums “.xlsx”
Koda skaidrojums
Rež. (TargetFolder & FileFilter)
Iepriekš minēto kodu izmanto, lai iegūtu pirmā faila nosaukumu mapes ceļā.
Darbgrāmatas. Atveriet TargetFolder & FileName
Iepriekš minēto kodu izmanto, lai atvērtu definēto darbgrāmatu.
ActiveWorkbook.PrintOut
Iepriekš minēto kodu izmanto, lai drukātu aktīvo darbgrāmatu.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Sub PrintAllWorkbooksInFolder (TargetFolder kā virkne, FileFilter kā virkne) 'Mainīgā deklarēšana Dim FileName As String' Ekrāna atjauninājumu atspējošana Application.ScreenUpdating = False 'Ceļa atdalītāja pievienošana mērķa mapes nosaukuma beigās Ja pareizi (TargetFolder, 1) "\" Tad TargetFolder = TargetFolder & "\" End If 'Noklusējuma ceļa piešķiršana failu filtram If FileFilter = "" Tad FileFilter = "*.xls"' Iegūstiet pirmā faila nosaukumu mapē FileName = Dir (TargetFolder & FileFilter) Kamēr Len (faila nosaukums)> 0 Ja faila nosaukums ThisWorkbook.Name Pēc tam 'Atvērt darbgrāmatas darbgrāmatas. Atvērt TargetFolder & FileName' Drukā visas darbgrāmatas lapas ActiveWorkbook.PrintOut 'Aizveriet darbgrāmatu, nesaglabājot izmaiņas ActiveWorkbook. Aizveriet nepatiesas beigas Ja' Get file name nākamais fails mapē FileName = Dir Wend End Sub Sub CallingProcedure () 'Mainīgo mainīšana Dim FolderPath, FileName As String' Vērtību iegūšana no 1. lapas teksta lodziņa FolderPath = Sheet1.TextBox1.Value FileName = Sheet1.TextB ox2.Value 'Zvana PrintAllWorkbooksInFolder procedūra PrintAllWorkbooksInFolder FolderPath, FileName End Sub
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē