EOF Описание
Возвращает значение, указывающее, достигнут ли конец файла (логическое значение).
Синтаксис EOF
В редакторе VBA вы можете ввести «EOF (», чтобы увидеть синтаксис функции EOF:
Функция EOF содержит аргумент:
Номер дела: Любой допустимый номер файла.
Примеры функции Excel VBA EOF
Чтобы проверить функцию EOF, создайте текстовый файл «test.txt» на диске D. (D: \ test.txt) Предположим, что содержимое файла выглядит следующим образом.
123 | abc1 2 3ху z |
Пожалуйста, запустите следующий код.
1234567891011 | Sub Input_Fx_Example ()Dim strContent As StringДим MyCharОткройте "D: \ test.txt" для ввода как # 1 'Открыть файл.Do While Not EOF (1) 'Цикл до конца файла.MyChar = Input (1, # 1) 'Получить один символ.strContent = strContent & MyChar 'ПетляMsgBox strContentClose # 1 'Закрыть файл.Конец подписки |
Тогда результат будет следующим.
Здесь используется функция EOF, чтобы определить, что конец файла достигнут.