Примечание: Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".
Возвращает целое число, представляющее следующий номер файла, доступный для использования инструкцией Open .
Синтаксис
FreeFile[(rangenumber)]
Необязательный аргумент rangenumber — это тип Variant, указывающий диапазон, из которого должен быть возвращен следующий бесплатный номер файла. Укажите значение 0 (по умолчанию), чтобы вернуть номер файла в диапазоне от 1 до 255 включительно. Укажите значение 1, чтобы вернуть номер файла в диапазоне от 256 до 511.
Замечания
Используйте FreeFile , чтобы указать номер файла, который еще не используется.
Пример
Примечание: В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.
В этом примере функция FreeFile возвращает следующий доступный номер файла. Пять файлов открываются для вывода в цикле, и некоторые примеры данных записываются в каждый из них.
Dim MyIndex, FileNumber
For MyIndex = 1 To 5 ' Loop 5 times.
' Get unused file number.
FileNumber = FreeFile
' Create file name.
Open "TEST" & MyIndex For Output As #FileNumber
' Output text.
Write #FileNumber, "This is a sample."
' Close file.
Close #FileNumber
Next MyIndex