VBA-Programmierung in Microsoft Excel

VBA-Begriff: EOF-Funktion (Beispiel)

In diesem Beispiel wird die EOF-Funktion verwendet, um das Ende einer Datei zu erkennen. In diesem Beispiel wird angenommen, daß DATEI1 eine Textdatei mit einigen Textzeilen ist.

Dim Dateidaten
Open "DATEI1" For Input As #1    ' Datei zum Einlesen öffnen.
Do While Not EOF(1)    ' Auf Dateiende abfragen.
    Line Input #1, Dateidaten    ' Datenzeilen lesen.
    Debug.Print Dateidaten    ' Daten im Direktfenster ausgeben.
Loop
Close #1    ' Datei schließen.