Lang L: none (table-of-contents)
Prindi kirjeldus
Kirjutab kuvas vormindatud andmed järjestikku faili.
Prindi süntaks
| 1 | Prindi #FileNumber, [OutputList] |
Prindi avaldus sisaldab kahte argumenti:
Faili number: Iga kehtiv failinumber.
Väljundloend: Valikuline. Üks või mitu komaga eraldatud numbrilist avaldist või stringiväljendit faili kirjutamiseks.
Excel VBA printimisfunktsiooni näited
| Eesnimi | Perekonnanimi | Vanus | Sugu |
| Robert | Stepp | 20 | Mees |
| Jennifer | Mariscal | 33 | Naine |
| David | Romig | 35 | Mees |
| Karmel | Ingram | 26 | Naine |
Vahemiku („A1: D5”) väljastamiseks sellisele lehele nagu ülaltoodud pilt failile saate kasutada järgmist koodi.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub Print_Example ()Dim strFolder stringinaDim strFile kui stringDim dlgFolder kui FileDialogDim rng As RangeMäära dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Kui dlgFolder.Show = True SiisstrFolder = dlgFolder.SelectedItems (1)MuiduVälju subLõpp KuiMäära rng = vahemik ("A1: D5")'PrindistrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngEnd SubSub PrintRangeToFile (strFile kui string, rng kui vahemik)Dim rida kui vahemik, lahter kui vahemikHämarda failinumber täisarvunaFileNumber = FreeFileAvage strFile väljundiks #FileNumberIga rea jaoks rng. RidadIga lahtri jaoks reas. LahtridKui lahter. Veerg = rida. Lahtrid. Loendage seejärelPrindi #FailiNumber, lahterMuiduPrindi #FailiNumber, lahter,Lõpp KuiJärgmine lahterJärgmine ridaSulgege #FileNumberEnd Sub |
Väljund failile „Print_Output.txt”:
| 12345 | Eesnimi Perekonnanimi Vanus SuguRobert Stepp 20 MeesJennifer Mariscal 33 NaineDavid Romig 35 MeesCarmel Ingram 26 naine |
