Примечание
Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений 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