Indholdsfortegnelse
Udskriv Beskrivelse
Skriver displayformaterede data til en sekventiel fil.
Udskriv syntaks
| 1 | Print #FileNumber, [OutputList] |
Udskriftssætningen indeholder 2 argumenter:
Fil nummer: Ethvert gyldigt filnummer.
OutputListe: Valgfri. Et eller flere kommaafgrænsede numeriske udtryk eller strengudtryk til at skrive til en fil.
Eksempler på Excel VBA -udskrivningsfunktion
| Fornavn | Efternavn | Alder | Køn |
| Robert | Stepp | 20 | Han |
| Jennifer | Mariscal | 33 | Kvinde |
| David | Romig | 35 | Han |
| Carmel | Ingram | 26 | Kvinde |
For at sende område ("A1: D5") i et ark som billedet ovenfor til en fil, kan du bruge følgende kode.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub Print_Example ()Dim strFolder Som strengDim strFile Som strengDim dlgFolder som FileDialogDim rng Som områdeIndstil dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Hvis dlgFolder.Show = True derefterstrFolder = dlgFolder.SelectedItems (1)AndetAfslut SubAfslut HvisIndstil rng = Range ("A1: D5")'PrintstrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngAfslut SubSub PrintRangeToFile (strFile As String, rng As Range)Dim række som område, celle som områdeDim FileNumber som heltalFileNumber = FreeFileÅbn strFile til output som #FileNumberFor hver række i rng.RowsFor hver celle i række. CellerHvis cell.Column = row.Cells.Count SåUdskriv #FileNumber, celleAndetUdskriv #FileNumber, celle,Afslut HvisNæste celleNæste rækkeLuk #FileNumberAfslut Sub |
Output til filen “Print_Output.txt”:
| 12345 | Fornavn Efternavn Alder KønRobert Stepp 20 MandJennifer Mariscal 33 KvindeDavid Romig 35 MandCarmel Ingram 26 Kvinde |
