Inhaltsverzeichnis
EOF-Beschreibung
Gibt den Wert zurück, der angibt, ob das Ende einer Datei erreicht wurde (Boolean).
EOF-Syntax
Im VBA-Editor können Sie „EOF(“ eingeben, um die Syntax für die EOF-Funktion anzuzeigen:
Die EOF-Funktion enthält ein Argument:
Dateinummer: Jede gültige Dateinummer.
Beispiele für Excel VBA EOF-Funktion
Um die EOF-Funktion zu testen, erstellen Sie eine Textdatei „test.txt“ auf Laufwerk D. (D:\test.txt) Angenommen, der Inhalt der Datei lautet wie folgt.
123 | ABC1 2 3xy z |
Bitte führen Sie den folgenden Code aus.
1234567891011 | Sub Input_Fx_Example()Dim strContent As StringDim MyCharÖffnen Sie "D:\test.txt" für Eingabe als #1 ' Datei öffnen.Do While Not EOF(1) ' Schleife bis zum Ende der Datei.MyChar = Input(1, #1) ' Hole ein Zeichen.strContent = strContent & MyChar 'SchleifeMsgBox strContentSchließen #1 ' Datei schließen.End Sub |
Dann sieht das Ergebnis wie folgt aus.
Hier wird die EOF-Funktion verwendet, um festzustellen, dass das Ende einer Datei erreicht wurde.