Spisie treści
Opis EOF
Zwraca wartość wskazującą, czy osiągnięto koniec pliku (wartość logiczna).
Składnia EOF
W edytorze VBA możesz wpisać „EOF (”, aby zobaczyć składnię funkcji EOF:
Funkcja EOF zawiera argument:
Numer pliku: Dowolny prawidłowy numer pliku.
Przykłady funkcji Excel VBA EOF
Aby przetestować funkcję EOF, utwórz plik tekstowy „test.txt” na dysku D. (D:\test.txt) Załóżmy, że zawartość pliku jest następująca.
123 | ABC1 2 3xy z |
Uruchom następujący kod.
1234567891011 | Sub Input_Fx_Example()Dim strContent As StringPrzyciemnij MyCharOtwórz „D:\test.txt” dla danych wejściowych jako nr 1 ' Otwórz plik.Do While Not EOF(1) ' Pętla do końca pliku.MyChar = Input(1, #1) ' Pobierz jeden znak.strContent = strContent & MyChar 'PętlaMsgBox strContentZamknij #1 ' Zamknij plik.Napis końcowy |
Wtedy wynik będzie następujący.
Tutaj użyto funkcji EOF do określenia, że osiągnięto koniec pliku.