Tisk popisu
Zapisuje data ve formátu zobrazení do sekvenčního souboru.
Syntaxe tisku
1 | Tisk #FileNumber, [OutputList] |
Příkaz Print obsahuje 2 argumenty:
Číslo souboru: Libovolné platné číslo souboru.
Výstupní seznam: Volitelný. Jeden nebo více číselných výrazů oddělených čárkami nebo řetězcových výrazů pro zápis do souboru.
Příklady tiskové funkce Excel VBA
Jméno | Příjmení | Stáří | Rod |
Robert | Stepp | 20 | mužský |
Jennifer | Mariscal | 33 | ženský |
David | Romig | 35 | mužský |
Karmel | Ingram | 26 | ženský |
K výstupu rozsahu („A1: D5“) v listu, jako je výše uvedený obrázek, do souboru můžete použít následující kód.
1234567891011121314151617181920212223242526272829303132333435363738 | Dílčí tisk_Příklad ()Dim strFolder jako řetězecDim strFile jako řetězecDim dlgFolder As FileDialogDim rng As RangeNastavit dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)If dlgFolder.Show = True ThenstrFolder = dlgFolder.SelectedItems (1)JinýUkončit dílčíKonec IfNastavit rng = rozsah ("A1: D5")'TiskstrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngEnd SubDílčí PrintRangeToFile (strFile jako řetězec, rng jako rozsah)Dim řádek jako rozsah, buňka jako rozsahDim FileNumber As IntegerFileNumber = FreeFileOtevřete strFile pro výstup jako #FileNumberPro každý řádek v rng.RowsPro každou buňku v řádku.BunkyPokud cell.Column = row.Cells.Count ThenVytiskněte #FileNumber, buňkaJinýVytisknout #FileNumber, buňka,Konec IfDalší buňkaDalší řadaZavřít #FileNumberEnd Sub |
Výstup do souboru „Print_Output.txt“:
12345 | Jméno Příjmení Věk PohlavíRobert Stepp 20 MužJennifer Mariscal 33 ŽenaDavid Romig 35 MužCarmel Ingram 26 Žena |