Indholdsfortegnelse
Skriv Beskrivelse
Skriver data til en sekventiel fil.
Skriv syntaks
| 1 | Skrive #FileNumber, [OutputList] |
Skriv -sæ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 -skrivefunktion
| 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 ("A2: D5") i et ark som ovenstående billede til en fil, kan du bruge følgende kode.
| 12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile (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åSkriv #FileNumber, celleAndetSkriv #FileNumber, celle,Afslut HvisNæste celleNæste rækkeLuk #FileNumberAfslut SubSub Skriv_eksempel ()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")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngAfslut Sub |
Output til filen “Write_Output.txt”:
| 12345 | "Fornavn", "Efternavn", "Alder", "Køn""Robert", "Stepp", "20", "Male""Jennifer", "Mariscal", "33", "Female""David", "Romig", "35", "Mand""Carmel", "Ingram", "26", "Female" |
