Открытие текстового файла из кода VBA Excel с помощью метода OpenTextFile объекта FileSystemObject. Синтаксис и параметры метода OpenTextFile.
OpenTextFile – это метод объекта FileSystemObject, который открывает указанный текстовый файл и создает объект TextStream, обеспечивающий последовательный доступ к файлу для чтения, записи или добавления данных.
Синтаксис метода OpenTextFile
object.OpenTextFile (filename, [iomode], [create], [format])
object – экземпляр объекта FileSystemObject.
Параметры метода OpenTextFile
| Параметр | Описание |
|---|---|
| filename | Имя открываемого файла, включая путь к нему. Строковое выражение. Обязательный параметр. |
| iomode | Параметр, задающий режим ввода-вывода для открытого файла. ForReading (1) – только для чтения, ForWriting (2) – только для записи, ForAppending (8) – для добавления данных в конец файла. Необязательный параметр. По умолчанию – только для чтения. |
| create | Параметр, задающий, можно ли создать новый файл, если файл, указанный параметром filename, не существует. Значение типа Boolean. True – новый файл будет создан, False – нет. Необязательный параметр. По умолчанию – False. |
| format | Параметр, задающий в каком формате будет открыт файл. TristateUseDefault (-2) – в формате настроек системы по умолчанию, TristateTrue (-1) – в формате Юникод, TristateFalse (0) – в формате ASCII. Необязательный параметр. По умолчанию – в формате ASCII. |
Пример открытия текстового файла
Создайте на диске «C» текстовый файл с именем testfile.txt, запишите в него что-нибудь, сохраните и закройте. Следующая процедура откроет файл testfile.txt, считает весь текст и отобразит его в информационном окне MsgBox:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Sub Primer() Dim fso, fl 'Создаем новый экземпляр объекта FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") 'Присваиваем переменной fl новый объект TextStream, 'связанный с открытым для чтения файлом Set fl = fso.OpenTextFile("C:\testfile.txt") 'Считываем весь текст из файла и 'отображаем в информационном окне MsgBox fl.ReadAll 'Закрываем файл fl.Close End Sub |
Используемые переменные:
- fso – экземпляр объекта FileSystemObject;
- fl – экземпляр объекта TextStream, связанный с открытым для чтения файлом.
Возможно у вас на диске «C» уже есть текстовый файл с именем testfile.txt, если вы его создавали с помощью процедуры из примера в статье VBA Excel. Метод CreateTextFile.
Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.
Добрый день!
Поясните, пожалуйста, для чего нужна 12-ая строка кода из примера? Без этой строки testfile.txt не остается открытым.
Здравствуйте, Евгений!
Метод OpenTextFile открывает доступ к текстовому файлу в фоновом режиме, файл на экране не отображается. 12-я строка закрывает доступ к этому файлу. Если вы хотите открыть файл из кода VBA Excel для просмотра, используйте следующую строку:
Обсуждение закрыто.