Опис FreeFile
Повертає наступний дійсний номер безкоштовного файлу (Ціле число).
Синтаксис FreeFile
У редакторі VBA ви можете набрати "FreeFile (", щоб побачити синтаксис функції FreeFile:
Функція FreeFile містить аргумент:
Діапазон Номер: [Необов’язково] 0 (за замовчуванням) для повернення номера файлу в діапазоні 1-255. 1, щоб повернути номер файлу в діапазоні 256-511.
Приклади функцій Excel VBA FreeFile
Будь ласка, запустіть наступний код.
| 1234567891011121314151617 | Sub FreeFile_Example ()Затемнити nIndex як ціле числоDim nFileNumber як ціле числоDim arrFileNumber (1 до 3) як ціле числоДля nIndex = 1 до 3nFileNumber = FreeFile 'Отримайте номер невикористаного файлуarrFileNumber (nIndex) = nFileNumber'номер.Відкрийте "D: \ test" & nIndex & ".txt" For Output As nFileNumber 'Створіть ім'я файлу.Напишіть #nFileNumber, "Номер файлу цього файлу" & nFileNumber 'Вихідний текст. "Далі nIndexДля nIndex = 1 до 3Закрити arrFileNumber (nIndex) 'Закрити файл.Далі nIndexEnd Sub |
Це створить 3 файли на диску D.
test1.txt: "Номер файлу цього файлу 1"
test2.txt: "Номер файлу цього файлу 2"
test3.txt: "Номер файлу цього файлу - 3"
Це показує, що повертає 1, 2, 3 за допомогою функції FreeFile.
