Descriere EOF
Returnează valoarea care indică dacă a fost atins sfârșitul unui fișier (Boolean).
Sintaxa EOF
În Editorul VBA, puteți tasta „EOF (” pentru a vedea sintaxa funcției EOF:
Funcția EOF conține un argument:
Numărul fișierului: Orice număr de fișier valid.
Exemple de funcții Excel VBA EOF
Pentru a testa funcția EOF, creați un fișier text „test.txt” pe unitatea D. (D: \ test.txt) Să presupunem că conținutul fișierului este după cum urmează.
123 | abc1 2 3xy z |
Vă rugăm să rulați următorul cod.
1234567891011 | Sub Input_Fx_Example ()Dim strContent As StringDim MyCharDeschideți „D: \ test.txt” pentru intrare ca numărul 1 'Deschideți fișierul.Faceți în timp ce nu EOF (1) 'Buclați până la sfârșitul fișierului.MyChar = Intrare (1, # 1) „Obțineți un caracter.strContent = strContent & MyChar 'BuclăMsgBox strContentÎnchideți numărul 1 'Închideți fișierul.Sfârșitul Sub |
Apoi, rezultatul va fi după cum urmează.
Aici, s-a folosit funcția EOF pentru a determina dacă a fost atins sfârșitul unui fișier.