Sisällysluettelo
Tulosta kuvaus
Kirjoittaa näytön muotoillut tiedot peräkkäiseen tiedostoon.
Tulosta syntaksi
| 1 | Tulosta #FileNumber, [OutputList] |
Print -lause sisältää kaksi argumenttia:
Tiedoston numero: Mikä tahansa kelvollinen tiedostonumero.
Lähtölista: Valinnainen. Yksi tai useampi pilkuilla erotettu numeerinen lauseke tai merkkijonolauseke tiedostoon kirjoittamista varten.
Esimerkkejä Excel VBA -tulostustoiminnosta
| Etunimi | Sukunimi | Ikä | Sukupuoli |
| Robert | Stepp | 20 | Uros |
| Jennifer | Mariscal | 33 | Nainen |
| David | Romig | 35 | Uros |
| Carmel | Ingram | 26 | Nainen |
Jos haluat tulostaa alueen (“A1: D5”) yllä olevan kuvan kaltaisesta taulukosta tiedostoon, voit käyttää seuraavaa koodia.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub Print_Example ()Himmennä strFolder merkkijononaDim strFile merkkijononaDim dlgFolder FileDialoginaDim rng as RangeAseta dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Jos dlgFolder.Show = Tosi sittenstrFolder = dlgFolder.SelectedItems (1)MuuLopeta SubLoppu JosAseta rng = alue ("A1: D5")'TulostastrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngEnd SubSub PrintRangeToFile (strFile As String, rng As Range)Himmennä rivi alueena, solu alueenaDim FileNumber kokonaislukunaFileNumber = FreeFileAvaa strFile tulostusta varten #FileNumberJokaiselle riville rng.RowsJokaiselle riville solulleJos solu.sarake = rivi.Solut.lasketaan sittenTulosta #Tiedostonumero, soluMuuTulosta #Tiedostonumero, solu,Loppu JosSeuraava soluSeuraava riviSulje #FileNumberEnd Sub |
Tulos tiedostoon "Print_Output.txt":
| 12345 | Etunimi Sukunimi Ikä SukupuoliRobert Stepp 20 MiesJennifer Mariscal 33 NainenDavid Romig 35 MiesCarmel Ingram 26 Nainen |
