Примітка.
Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо Microsoft Jet Expression Service працює в режимі ізольованого програмного середовища, що запобігає обчисленню потенційно небезпечних виразів. Щоб отримати докладні відомості про режим ізольованого програмного середовища, у вікні довідки шукайте за запитом "режим ізольованого програмного середовища".
Повертає значення типу Integer, яке позначає наступний номер файлу, доступний для використання оператором Open .
Синтаксис
FreeFile[(номер_діапазону)]
Необов'язковий аргумент rangenumber – це значення Variant, що визначає діапазон, з якого потрібно отримати наступний номер безкоштовного файлу. Укажіть 0 (за замовчуванням), щоб повернути номер файлу в діапазоні від 1 до 255 включно. Укажіть 1, щоб повернути номер файлу в діапазоні від 256 до 511.
Примітки
Використовуйте FreeFile, щоб надати номер файлу, який ще не використовується.
Приклад
Примітка.
У прикладах нижче показано використання цієї функції в модулі Visual Basic for Applications (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