Примечание: Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".
Возвращает целое число, представляющее следующий номер файла, доступный для использования инструкцией Open .
Синтаксис
FreeFile[(rangenumber)]
Необязательный аргумент rangenumber — это тип Variant, указывающий диапазон, из которого должен быть возвращен следующий бесплатный номер файла. Укажите значение 0 (по умолчанию), чтобы вернуть номер файла в диапазоне от 1 до 255 включительно. Укажите значение 1, чтобы вернуть номер файла в диапазоне от 256 до 511.
Замечания
Используйте FreeFile , чтобы указать номер файла, который еще не используется.
Пример
Примечание: В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.
В этом примере функция FreeFile возвращает следующий доступный номер файла. Пять файлов открываются для вывода в цикле, и некоторые примеры данных записываются в каждый из них.
Dim MyIndex, FileNumberFor 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 #FileNumberNext MyIndex
