Innholdsfortegnelse
Skriv Beskrivelse
Skriver data til en sekvensiell fil.
Skriv syntaks
1 | Skrive #FileNumber, [OutputList] |
Skriv -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 skrivefunksjon
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 ("A2: D5") i et ark som bildet ovenfor til en fil, kan du bruke følgende kode.
12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile (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 #FileNumber, celleEllersSkriv #FileNumber, celle,Slutt omNeste celleNeste radLukk #FileNumberSlutt SubSub Write_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")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngSlutt Sub |
Utdata til filen “Write_Output.txt”:
12345 | "Fornavn", "Etternavn", "Alder", "Kjønn""Robert", "Stepp", "20", "Mann""Jennifer", "Mariscal", "33", "Female""David", "Romig", "35", "Mann""Carmel", "Ingram", "26", "Female" |