U ovom ćemo članku stvoriti makronaredbu za ispis svih Excel datoteka unutar mape.
U mapi imamo neke Excel datoteke koje želimo ispisati. Svi oni imaju isti nastavak datoteke, ".xlsx"
Objašnjenje koda
Dir (TargetFolder & FileFilter)
Gornji kôd koristi se za dobivanje naziva prve datoteke unutar putanje do mape.
Radne knjige.Otvorite TargetFolder & FileName
Gornji kôd koristi se za otvaranje definirane radne knjige.
ActiveWorkbook.PrintOut
Gornji kôd koristi se za ispis aktivne radne knjige.
Molimo slijedite dolje za kôd
Opcija Eksplicitno Sub PrintAllWorkbooksInFolder (TargetFolder As String, FileFilter As String) 'Deklariranje varijable Dim FileName As String' Onemogućavanje ažuriranja zaslona Application.ScreenUpdating = False 'Dodavanje separatora puta na kraj naziva ciljne mape Ako je desno (TargetFolder, 1) "\" Zatim TargetFolder = TargetFolder & "\" End If 'Dodjeljivanje zadane staze filtru datoteke If FileFilter = "" Then FileFilter = "*.xls"' Dobijte naziv datoteke prve datoteke u mapi FileName = Dir (TargetFolder & FileFilter) While Len (FileName)> 0 If FileName ThisWorkbook.Name Zatim 'Otvori radne knjige radne knjige.Otvori TargetFolder & FileName' Ispisuje sve listove u radnoj knjizi ActiveWorkbook.PrintOut 'Zatvorite radnu knjigu bez spremanja promjena ActiveWorkbook.Close False End If' Dobijte naziv datoteke od sljedeća datoteka u mapi FileName = Dir Wend End Sub Sub CallingProcedure () 'Deklariranje varijabli Dim FolderPath, FileName As String' Dobivanje vrijednosti iz okvira za tekst na listu1 FolderPath = Sheet1.TextBox1.Value FileName = Sheet1.TextB ox2.Value 'Pozivanje PrintAllWorkbooksInFolder postupak PrintAllWorkbooksInFolder FolderPath, FileName End Sub
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte