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