Opis EOF -a
Vraća vrijednost koja označava je li dosegnut kraj datoteke (Boolean).
EOF sintaksa
U VBA Editor -u možete upisati "EOF (" da vidite sintaksu za EOF funkciju:
Funkcija EOF sadrži argument:
Broj datoteke: Bilo koji valjani broj datoteke.
Primjeri Excel VBA EOF funkcije
Da biste testirali EOF funkciju, stvorite tekstualnu datoteku "test.txt" na pogonu D. (D: \ test.txt) Pretpostavimo da je sadržaj datoteke sljedeći.
123 | abc1 2 3xy z |
Pokrenite sljedeći kôd.
1234567891011 | Sub Input_Fx_Example ()Dim strContent As StringDim MyCharOtvorite "D: \ test.txt" Za unos kao #1 'Otvorite datoteku.Učiniti Dok Nije EOF (1) 'Petlja do kraja datoteke.MyChar = Unos (1, #1) 'Dobijte jedan znak.strContent = strContent & MyChar 'PetljaMsgBox strContentZatvori #1 'Zatvori datoteku.Kraj podm |
Tada će rezultat biti sljedeći.
Ovdje se koristi funkcija EOF za utvrđivanje da je dosegnut kraj datoteke.