Innholdsfortegnelse
Skriv ut beskrivelse
Skriver visningsformaterte data til en sekvensiell fil.
Skriv ut syntaks
| 1 | Skrive ut #FileNumber, [OutputList] |
Print -setningen inneholder 2 argumenter:
Filnummeret: Ethvert gyldig filnummer.
OutputList: Valgfri. Ett eller flere kommaavgrensede numeriske uttrykk eller strenguttrykk for å skrive til en fil.
Eksempler på Excel VBA -utskriftsfunksjon
| Fornavn | Etternavn | Alder | Kjønn |
| Robert | Stepp | 20 | Hann |
| Jennifer | Mariskal | 33 | Hunn |
| David | Romig | 35 | Hann |
| Carmel | Ingram | 26 | Hunn |
For å sende ut område ("A1: D5") i et ark som bildet ovenfor til en fil, kan du bruke følgende kode.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub Print_Example ()Dim strFolder As StringDim strFile As StringDim dlgFolder As FileDialogDim rng As RangeSett dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Hvis dlgFolder.Show = True ThenstrFolder = dlgFolder.SelectedItems (1)EllersAvslutt SubSlutt omSett rng = Range ("A1: D5")'Skrive utstrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngSlutt SubSub PrintRangeToFile (strFile As String, rng As Range)Dim rad Som Range, cell As RangeDim FileNumber som heltallFileNumber = FreeFileÅpne strFile For Output som #FileNumberFor hver rad i rng.RowsFor hver celle på rad. CellerHvis cell.Column = row.Cells.Count DaSkriv ut #FileNumber, cellEllersSkriv ut #FileNumber, celle,Slutt omNeste celleNeste radLukk #FileNumberSlutt Sub |
Utdata til filen “Print_Output.txt”:
| 12345 | Fornavn Etternavn Alder KjønnRobert Stepp 20 MannJennifer Mariscal 33 KvinneDavid Romig 35 MannCarmel Ingram 26 Kvinne |
