V tomto článku vytvoříme makro pro tisk všech souborů aplikace Excel ve složce.
Ve složce, kterou chceme vytisknout, máme několik souborů aplikace Excel. Všechny mají stejnou příponu souboru „.xlsx“
Vysvětlení kódu
Dir (TargetFolder & FileFilter)
Výše uvedený kód se používá k získání názvu souboru prvního souboru v cestě ke složce.
Sešity. Otevřete TargetFolder & FileName
Výše uvedený kód se používá k otevření definovaného sešitu.
ActiveWorkbook.PrintOut
Výše uvedený kód se používá k tisku aktivního sešitu.
Pro kód prosím postupujte níže
Možnost Explicit Sub SubAllWorkbooksInFolder (TargetFolder As String, FileFilter As String) 'Declaring variable Dim FileName As String' Disabling screen updates Application.ScreenUpdating = False 'Adding path separator at the end of target folder name If Right (TargetFolder, 1) "\" Poté TargetFolder = TargetFolder & "\" End If 'Přiřazení výchozí cesty k filtru souborů If FileFilter = "" Then FileFilter = "*.xls"' Získejte název prvního souboru ve složce FileName = Dir (TargetFolder & FileFilter) Zatímco Len (FileName)> 0 If FileName ThisWorkbook.Name Then 'Open workbook workbooks.Open TargetFolder & FileName' Vytiskne všechny listy v sešitu ActiveWorkbook.PrintOut 'Zavřít sešit bez uložení jakýchkoli změn ActiveWorkbook.Close False End If' Získat název souboru další soubor ve složce FileName = Dir Wend End Sub Sub CallingProcedure () 'Declaring variables Dim FolderPath, FileName As String' Získávání hodnot z textového pole na sheet1 FolderPath = Sheet1.TextBox1.Value FileName = Sheet1.TextB ox2.Value 'Volání PrintAllWorkbooksInFolder postup PrintAllWorkbooksInFolder FolderPath, FileName End Sub
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail