Описание на EOF
Връща стойността, показваща дали е достигнат края на файл (булев).
EOF синтаксис
В редактора на VBA можете да въведете „EOF (“, за да видите синтаксиса за функцията EOF:
Функцията EOF съдържа аргумент:
FileNumber: Всеки валиден номер на файл.
Примери за Excel VBA EOF функция
За да тествате функцията EOF, създайте текстов файл „test.txt“ на устройството D. (D: \ test.txt) Да приемем, че съдържанието на файла е както следва.
| 123 | abc1 2 3xy z |
Моля, изпълнете следния код.
| 1234567891011 | Sub Input_Fx_Example ()Dim strContent As StringDim MyCharОтворете "D: \ test.txt" За въвеждане като #1 'Отворете файла.Do While Not EOF (1) 'Цикъл до края на файла.MyChar = Input (1, #1) 'Вземете един знак.strContent = strContent & MyChar 'ЦикълMsgBox strContentЗатваряне на #1 'Затваряне на файла.End Sub |
Тогава резултатът ще бъде следният.
Тук се използва функцията EOF, за да се определи, че краят на файла е достигнат.
