Spausdinimo aprašymas
Įrašo ekrano formato duomenis į nuoseklų failą.
Spausdinimo sintaksė
| 1 | Spausdinti #FileNumber, [OutputList] |
Spausdinimo teiginyje yra 2 argumentai:
Failo numeris: Bet koks galiojantis failo numeris.
Išvesties sąrašas: Neprivaloma. Viena ar kelios kableliais atskirtos skaitinės išraiškos arba eilutės išraiškos, skirtos įrašyti į failą.
„Excel VBA“ spausdinimo funkcijos pavyzdžiai
| Pirmas vardas | Pavardė | Amžius | Lytis |
| Robertas | Stepas | 20 | Patinas |
| Jennifer | Mariscal | 33 | Moteris |
| Deividas | Romig | 35 | Patinas |
| Karmelis | Ingramas | 26 | Moteris |
Norėdami į failą išvesti diapazoną („A1: D5“) lape, kaip parodyta aukščiau, galite naudoti šį kodą.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Spausdinimo antrinis pavyzdys ()„Dim strFolder“ kaip eilutėDim strFile As StringDim dlgFolder kaip FileDialogDim rng As RangeNustatykite dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Jei dlgFolder.Show = Tiesa tadastrFolder = dlgFolder.SelectedItems (1)KitasIšeiti iš SubPabaiga JeiNustatyti rng = Diapazonas („A1: D5“)'SpausdintistrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngPabaiga SubSub PrintRangeToFile (strFile kaip eilutė, rng kaip diapazonas)Pritemdyti eilutę kaip diapazonas, langelį kaip diapazonasDim FileNumber As IntegerFileNumber = FreeFileAtidarykite strFile išvestį kaip #FileNumberKiekvienai eilutei Rng. EilutėsKiekvienai langeliui eilutėje. LąstelėsJei langelis. Stulpelis = eilutė. Ląstelės. Skaičiuokite TadaSpausdinti #Failo numeris, langelisKitasSpausdinti #FileNumber, langelis,Pabaiga JeiKitas langelisKita eilutėUždaryti #FileNumberPabaiga Sub |
Išvestis į failą „Print_Output.txt“:
| 12345 | Vardas Pavardė Amžius LytisRobertas Stepas, 20 metųJennifer Mariscal 33 MoterisDavid Romig 35 VyrasCarmel Ingram 26 Moteris |
