Schrijf Beschrijving
Schrijft gegevens naar een sequentieel bestand.
Syntaxis schrijven
| 1 | Schrijven #FileNumber, [OutputList] |
De Write-opdracht bevat 2 argumenten:
Bestandsnummer: Elk geldig dossiernummer.
Uitvoerlijst: Optioneel. Een of meer door komma's gescheiden numerieke expressies of tekenreeksexpressies om naar een bestand te schrijven.
Voorbeelden van Excel VBA-schrijffunctie
| Voornaam | Achternaam | Leeftijd | Geslacht |
| Robert | Stepp | 20 | Mannelijk |
| Jennifer | Mariscal | 33 | Vrouwelijk |
| David | Romig | 35 | Mannelijk |
| Carmel | Ingram | 26 | Vrouwelijk |
Om Range ("A2: D5") in een blad zoals de bovenstaande afbeelding naar een bestand uit te voeren, kunt u de volgende code gebruiken.
| 12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile(strFile As String, rng As Range)Dim rij als bereik, cel als bereikDim bestandsnummer als geheel getalBestandsnummer = VrijBestandOpen strFile voor uitvoer als #FileNumberVoor elke rij In rng.RijenVoor elke cel In rij. CellenAls cel.Kolom = rij.Cellen.Aantal DanSchrijf #FileNumber, celAndersSchrijf #FileNumber, cel,Stop alsVolgende celVolgende rij#Bestandsnummer sluitenEinde subSub Write_Example()Dim strFolder As StringDim strFile As StringDim dlgFolder As FileDialogDim rng als bereikStel dlgFolder = Application.FileDialog (msoFileDialogFolderPicker) inAls dlgFolder.Show = True DanstrFolder = dlgFolder.SelectedItems(1)AndersSluit subStop alsStel rng = Bereik ("A1: D5") instrFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngEinde sub |
De uitvoer naar het bestand "Write_Output.txt":
| 12345 | "Voornaam", "Achternaam", "Leeftijd", "Geslacht""Robert","Stepp","20","Man""Jennifer","Mariscal","33","Vrouwelijk""David","Romig","35","Man""Carmel","Ingram","26","Vrouwelijk" |
