Ispis opisa
Zapisuje podatke u formatu prikaza u sekvencijalnu datoteku.
Ispis Sintaksa
| 1 | Ispis #FileNumber, [OutputList] |
Iskaz Print sadrži 2 argumenta:
Broj datoteke: Bilo koji valjani broj datoteke.
OutputList: Izborno. Jedan ili više numeričkih izraza razgraničenih zarezima ili nizova za ispis u datoteku.
Primjeri Excel VBA funkcije ispisa
| Ime | Prezime | Dob | Spol |
| Robert | Stepp | 20 | Muški |
| Jennifer | Mariscal | 33 | Žena |
| David | Romig | 35 | Muški |
| Karmel | Ingram | 26 | Žena |
Za ispis raspona (“A1: D5”) na listu poput gornje slike u datoteku, možete koristiti sljedeći kod.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Podispis_primjer ()Zatamni mapu kao nizDim strFile As StringDim dlgFolder kao FileDialogDim rng As RangePostavi dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Ako je dlgFolder.Show = Tačno tadastrFolder = dlgFolder.SelectedItems (1)DrugoIzlaz iz podvZavrši akoPostavi rng = raspon ("A1: D5")'IspisstrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngKraj podmSub PrintRangeToFile (strFile kao niz, rng kao raspon)Zatamnite red kao raspon, ćeliju kao rasponZatamni broj datoteke kao cijeli brojFileNumber = FreeFileOtvorite strFile za izlaz kao #FileNumberZa svaki red U rng.RowsZa svaku ćeliju u redu.ćelijeAko je cell.Column = row.Cells.Count ZatimIspis #Broj datoteke, ćelijaDrugoIspis #Broj datoteke, ćelija,Završi akoSljedeća ćelijaSljedeći redZatvorite #Broj datotekeKraj podm |
Izlaz u datoteku “Print_Output.txt”:
| 12345 | Ime Prezime Dob SpolRobert Stepp 20 MuškiJennifer Mariscal 33 ŽenskiDavid Romig 35 muškoCarmel Ingram 26 žena |
