EOF Beschrijving:
Retourneert de waarde die aangeeft of het einde van een bestand is bereikt (Boolean).
EOF-syntaxis
In de VBA-editor kunt u "EOF(" typen om de syntaxis voor de EOF-functie te zien:
De EOF-functie bevat een argument:
Bestandsnummer: Elk geldig dossiernummer.
Voorbeelden van Excel VBA EOF-functie
Om de EOF-functie te testen, maakt u een tekstbestand "test.txt" op de D-schijf. (D:\test.txt) Neem aan dat de inhoud van het bestand als volgt is.
123 | abc1 2 3xy z |
Voer de volgende code uit.
1234567891011 | Sub Input_Fx_Example()Dim strContent As StringDim MyCharOpen "D:\test.txt" voor invoer als #1 ' Bestand openen.Do While Not EOF(1) ' Loop tot het einde van het bestand.MyChar = Input(1, #1) ' Krijg één teken.strContent = strContent & MijnChar 'LusMsgBox strContentSluiten #1 ' Sluit bestand.Einde sub |
Het resultaat zal dan als volgt zijn.
Hier wordt de EOF-functie gebruikt om te bepalen of het einde van een bestand is bereikt.