In dit artikel zullen we een macro maken om alle Excel-bestanden in een map af te drukken.
We hebben enkele Excel-bestanden in een map die we willen afdrukken. Ze hebben allemaal dezelfde bestandsextensie, ".xlsx"
Code uitleg
Dir (doelmap en bestandsfilter)
De bovenstaande code wordt gebruikt om de bestandsnaam van het eerste bestand in het mappad te krijgen.
Werkmappen.Open doelmap en bestandsnaam
De bovenstaande code wordt gebruikt om de gedefinieerde werkmap te openen.
ActiveWorkbook.PrintOut
De bovenstaande code wordt gebruikt om de actieve werkmap af te drukken.
Volg hieronder voor de code:
Optie Explicit Sub PrintAllWorkbooksInFolder(TargetFolder As String, FileFilter As String) 'Variabele Dim FileName As String declareren 'Schermupdates uitschakelen Application.ScreenUpdating = False 'Padscheidingsteken toevoegen aan het einde van de doelmapnaam If Right (TargetFolder, 1) "\" Dan TargetFolder = TargetFolder & "\" End If 'Standaardpad toewijzen aan bestandsfilter If FileFilter = "" Then FileFilter = "*.xls" 'Verkrijg de bestandsnaam van het eerste bestand in de map FileName = Dir(TargetFolder & FileFilter) While Len(FileName) > 0 If FileName ThisWorkbook.Name Then 'Open workbook Workbooks.Open TargetFolder & FileName 'Print alle bladen in de werkmap ActiveWorkbook.PrintOut 'Sluit de werkmap zonder wijzigingen op te slaan ActiveWorkbook.Close False End If 'Get bestandsnaam van volgend bestand in de map FileName = Dir Wend End Sub Sub CallingProcedure() 'Variabelen declareren Dim FolderPath, FileName As String 'Waarden ophalen uit tekstvak op blad1 FolderPath = Blad1.TextBox1.Value Bestandsnaam = Blad1.TextB ox2.Value 'Calling PrintAllWorkbooksInFolder procedure PrintAllWorkbooksInFolder FolderPath, FileName End Sub
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite