Vytlačiť popis
Zapisuje údaje vo formáte zobrazenom do sekvenčného súboru.
Syntax tlače
1 | Vytlačiť #FileNumber, [OutputList] |
Príkaz Print obsahuje 2 argumenty:
Číslo zložky: Akékoľvek platné číslo súboru.
OutputList: Voliteľné. Jeden alebo viac numerických výrazov alebo reťazcových výrazov oddelených čiarkou na zápis do súboru.
Príklady funkcie tlače Excel VBA
Krstné meno | Priezvisko | Vek | rod |
Robert | Stepp | 20 | Muž |
Jennifer | Mariscal | 33 | Žena |
Dávid | Romig | 35 | Muž |
Karmel | Ingram | 26 | Žena |
Na výstup rozsahu („A1: D5“) v hárku, ako je obrázok vyššie, do súboru môžete použiť nasledujúci kód.
1234567891011121314151617181920212223242526272829303132333435363738 | Podtlač_príklad ()Dim strFolder ako reťazecDim strFile ako reťazecDim dlgFolder as FileDialogDim rng As RangeNastaviť dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Ak dlgFolder.Show = True PotomstrFolder = dlgFolder.SelectedItems (1)InakUkončiť subKoniec AkNastaviť rng = rozsah ("A1: D5")'VytlačiťstrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngKoniec podSub PrintRangeToFile (strFile As String, rng As Range)Stmaviť riadok ako rozsah, bunka ako rozsahDim FileNumber As IntegerČíslo súboru = Voľný súborOtvorte strFile pre výstup ako #FileNumberPre každý riadok v rng.RowsPre každú bunku v riadku. BunkyAk cell.Column = row.Cells.Count ThenVytlačte #FileNumber, bunkaInakVytlačiť #FileNumber, bunka,Koniec AkĎalšia bunkaĎalší riadokZatvorte #FileNumberKoniec pod |
Výstup do súboru „Print_Output.txt“:
12345 | Meno Priezvisko Vek PohlavieRobert Stepp 20 MužJennifer Mariscal 33 ženaDavid Romig 35 MužCarmel Ingram 26 Žena |