I denne artikel vil vi oprette en makro til at udskrive alle Excel -filer i en mappe.
Vi har nogle Excel -filer i en mappe, som vi vil udskrive. Alle har den samme filtypenavn, ".xlsx"
Kode forklaring
Dir (TargetFolder & FileFilter)
Ovenstående kode bruges til at hente filnavnet på den første fil i mappestien.
Workbooks.Open TargetFolder & FileName
Ovenstående kode bruges til at åbne den definerede projektmappe.
ActiveWorkbook.PrintOut
Ovenstående kode bruges til at udskrive den aktive projektmappe.
Følg venligst nedenstående for koden
Option Explicit Sub PrintAllWorkbooksInFolder (TargetFolder As String, FileFilter As String) 'Declaring variable Dim FileName As String' Deaktivering af skærmopdateringer Application.ScreenUpdating = False 'Tilføjelse af stiudskiller i slutningen af målmappens navn Hvis højre (TargetFolder, 1) "\" Derefter slutter TargetFolder = TargetFolder & "\" Hvis "Tildeling af standardsti til filfilter Hvis FileFilter =" "Så FileFilter ="*.xls "'Hent filnavnet på den første fil i mappen FileName = Dir (TargetFolder & FileFilter) Mens Len (Filnavn)> 0 Hvis Filnavn ThisWorkbook.Name Derefter 'Åbn projektmappe Arbejdsbøger. Åbn TargetFolder & Filnavn' Udskriver alle ark i projektmappen ActiveWorkbook.PrintOut 'Luk projektmappen uden at gemme nogen ændringer ActiveWorkbook.Close False End If' Hent filnavn på næste fil i mappen FileName = Dir Wend End Sub Sub CallingProcedure () 'Deklarerende variabler Dim FolderPath, FileName As String' Henter værdier fra tekstboks på ark1 FolderPath = Sheet1.TextBox1.Value FileName = Sheet1.TextB ox2.Value 'Calling PrintAllWorkbooksInFolder procedure PrintAllWorkbooksInFolder FolderPath, FileName End Sub
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet