FreeFile Описание
Возвращает следующий допустимый свободный номер файла (целое число).
Синтаксис FreeFile
В редакторе VBA вы можете ввести «FreeFile (», чтобы увидеть синтаксис функции FreeFile:
Функция FreeFile содержит аргумент:
RangeNumber: [Необязательно] 0 (по умолчанию), чтобы вернуть номер файла в диапазоне 1-255. 1, чтобы вернуть номер файла в диапазоне 256-511.
Примеры функции Excel VBA FreeFile
Пожалуйста, запустите следующий код.
| 1234567891011121314151617 | Sub FreeFile_Example ()Dim nIndex как целое числоDim nFileNumber как целое числоDim arrFileNumber (от 1 до 3) как целое числоДля nIndex = от 1 до 3nFileNumber = FreeFile 'Получить неиспользуемый номер файлаarrFileNumber (nIndex) = nFileNumber' количество.Откройте "D: \ test" & nIndex & ".txt" для вывода как nFileNumber 'Создайте имя файла.Напишите #nFileNumber, "Номер файла этого файла -" & nFileNumber 'Выходной текст. "Следующий nIndexДля nIndex = от 1 до 3Close arrFileNumber (nIndex) 'Закрыть файл.Следующий nIndexКонец подписки |
Это создаст 3 файла на диске D.
test1.txt: «Номер этого файла - 1»
test2.txt: «Номер этого файла - 2»
test3.txt: «Номер этого файла - 3»
Это показывает, что функция FreeFile возвращает 1, 2, 3.
