Перейти к содержимому

VBA Excel. Метод OpenTextFile (синтаксис, параметры)

Открытие текстового файла из кода VBA Excel с помощью метода OpenTextFile объекта FileSystemObject. Синтаксис и параметры метода OpenTextFile.

  1. Синтаксис метода OpenTextFile
  2. Параметры метода OpenTextFile
  3. Пример открытия текстового файла
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:

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 по тематическим разделам со ссылками на все статьи.

Добавить комментарий

Ваш комментарий будет опубликован после прохождения обязательной модерации. Исходящие ссылки не допускаются. Время модерации составит от нескольких минут до нескольких часов в зависимости от времени суток и занятости модератора. При добавлении в комментарий кода VBA Excel, вставьте перед его началом тег [vb] и по окончании кода - [/vb].