Описание на FreeFile
Връща следващия валиден безплатен номер на файл (Integer).
Синтаксис на FreeFile
В редактора на VBA можете да въведете „FreeFile (“, за да видите синтаксиса за функцията FreeFile:
Функцията FreeFile съдържа аргумент:
RangeNumber: [Незадължително] 0 (по подразбиране) за връщане на номер на файл в диапазон 1-255. 1 за връщане на номер на файл в диапазон 256-511.
Примери за Excel VBA FreeFile функция
Моля, изпълнете следния код.
| 1234567891011121314151617 | Sub FreeFile_Example ()Затъмнете nIndex като цяло числоDim nFileNumber As IntegerDim arrFileNumber (1 до 3) Като цяло числоЗа nIndex = 1 до 3nFileNumber = FreeFile 'Вземете неизползван номер на файлarrFileNumber (nIndex) = nFileNumber'номер.Отворете "D: \ test" & nIndex & ".txt" За извеждане като 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.
