Опис EOF
Повертає значення, яке вказує, чи досягнуто кінця файлу (логічне значення).
Синтаксис EOF
У редакторі VBA ви можете ввести "EOF (", щоб побачити синтаксис функції EOF:
Функція EOF містить аргумент:
Номер файлу: Будь -який дійсний номер файлу.
Приклади функцій 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 для визначення того, що кінець файлу досягнутий.
