Основы VBA. Часть 11

Инструкция Close.

Завершает операции ввода/вывода с файлом, открытым с помощью инструкции Open.
Синтаксис:
Close [списокНомеровФайлов]
Необязательный аргумент списокНомеровФайлов может представлять один или несколько номеров файлов. При этом используется следующий синтаксис, где номерФайла представляет любой допустимый номер файла:
[[#]номерФайла] [, [#]номерФайла] . . .
Если аргумент списокНомеровФайлов опущен, закрываются все активные файлы, открытые с помощью инструкции Open. При закрытии файла, открытого в режиме Output или Append, в него добавляется содержимое последнего буфера вывода. Все буферы, связанные с закрытым файлом, освобождаются.
Инструкция Close разрывает связь между файлом и соответствовавшим ему номером файла.
Чтобы получить возможность выполнить любую операцию ввода/вывода, файл необходимо открыть. Инструкция Open резервирует буфер ввода/вывода для файла и определяет режим использования этого буфера.
Инструкция Open позволяет напрямую создать файл и получить к нему доступ. Инструкция Open обеспечивает три типа доступа к файлам:
· Последовательный доступ (режимы Input, Output и Append режимы), обычно используемый для записи текстовых файлов, например протоколов ошибок или отчетов.
· Произвольный доступ (режим Random), используемый при необходимости считать и записать данные в файл без его закрытия. Файлы произвольного доступа содержат данные в виде записей, которые упрощают и ускоряют поиск нужных сведений.
· Двоичный доступ (режим Binary), используется, когда требуется считать или записать байт в любую позицию в файле, например при сохранении или отображении точечных изображений.
Инструкцию Open не следует использовать для доступа к собственным типам файлов приложений. Например, не следует использовать Open для доступа к документу Word, к электронной таблице Microsoft Excel или к базе данных Microsoft Access, поскольку это вызовет потерю целостности и порчу файла.
В следующей таблице показываются инструкции, обычно используемые для записи данных в файлы и для чтения данных из файлов.

Тип доступа Запись данных Чтение данных

Последовательный Print #, Write # Input #
Произвольный Put Get
Двоичный Put Get
Если аргумент путь описывает несуществующий файл, такой файл будет создан при открытии в режиме Append, Binary, Output или Random. Если файл уже открыт другим процессом и указанный режим доступа не разрешен, инструкция Open не будет выполнена и возникнет ошибка. Если аргумент режим имеет значение Binary, предложение Len игнорируется. В режимах Binary, Input и Random можно еще раз открыть уже открытый файл под другим номером, не закрывая его. В режиме Append и Output необходимо закрыть файл, чтобы получить возможность открыть его еще раз под другим номером.
В данном примере показаны различные способы использования инструкции Open, чтобы разрешить выполнение операций ввода/вывода с файлом.
Следующие инструкции открывают файл TESTFILE для последовательного чтения.
Open «TESTFILE» For Input As #1
′ Закрывает файл перед повторным открытием в другом режиме.
Close #1
Следующие инструкции открывают файл в режиме Binary только для записи.
Open «TESTFILE» For Binary Access Write As #1
′ Закрывает файл перед повторным открытием в другом режиме.
Close #1
Следующие инструкции открывают файл в режиме Random. Файл содержит записи определенного пользователем типа Record.
Type Record ’ Тип, определенный пользователем.
ID As Integer
Name As String * 20
End Type
Dim MyRecord As Record ’ Объявляет переменную.
Open «TESTFILE» For Random As #1 Len = Len(MyRecord)
’ Закрывает файл перед повторным открытием в другом режиме.
Close #1
Следующие инструкции открывают файл для последовательного вывода; любой процесс может читать из этого файла или записывать в него.
Open «TESTFILE» For Output Shared As #1
′ Закрывает файл перед повторным открытием в другом режиме.
Close #1
Следующие инструкции открывают файл в режиме Binary для чтения; другие процессы не могут читать этот файл.
Open «TESTFILE» For Binary Access Read Lock Read As #1