Opis EOF
Vrne vrednost, ki označuje, ali je bil dosežen konec datoteke (Boolean).
Sintaksa EOF
V urejevalniku VBA lahko vnesete »EOF («, če si želite ogledati skladnjo funkcije EOF:
Funkcija EOF vsebuje argument:
Število datotek: Vsaka veljavna številka datoteke.
Primeri funkcije Excel VBA EOF
Če želite preizkusiti funkcijo EOF, ustvarite besedilno datoteko »test.txt« na pogonu D. (D: \ test.txt) Predpostavimo, da je vsebina datoteke naslednja.
123 | abc1 2 3xy z |
Prosimo, zaženite naslednjo kodo.
1234567891011 | Sub Input_Fx_Example ()Zatemni strContent As StringDim MyCharOdprite "D: \ test.txt" Za vnos kot #1 'Odprite datoteko.Do While Not EOF (1) 'Zveži do konca datoteke.MyChar = Vnos (1, #1) 'Pridobite en znak.strContent = strContent & MyChar 'ZankaMsgBox strContentZapri #1 'Zapri datoteko.End Sub |
Potem bo rezultat naslednji.
Tu smo uporabili funkcijo EOF za določitev, da je bil dosežen konec datoteke.