Преглед садржаја
Опис бесплатне датотеке
Враћа следећи важећи бесплатни број датотеке (Интегер).
Синтакса ФрееФиле
У ВБА Едитор -у можете откуцати „ФрееФиле (“ да бисте видели синтаксу функције ФрееФиле:
Функција ФрееФиле садржи аргумент:
РангеНумбер: [Опционално] 0 (подразумевано) за враћање броја датотеке у опсегу 1-255. 1 за враћање броја датотеке у опсегу 256-511.
Примери функције Екцел ВБА ФрееФиле
Молимо покрените следећи код.
| 1234567891011121314151617 | Суб ФрееФиле_Екампле ()Дим нИндек Ас ИнтегерДим нФилеНумбер Ас ИнтегерДим аррФилеНумбер (1 до 3) Као цео бројЗа нИндек = 1 до 3нФилеНумбер = ФрееФиле 'Преузмите неискоришћени број датотекеаррФилеНумбер (нИндек) = нФилеНумбер' број.Отворите "Д: \ тест" & нИндек & ".ткт" За излаз као нФилеНумбер 'Креирајте име датотеке.Напишите #нФилеНумбер, "Број датотеке ове датотеке је" & нФилеНумбер "Излазни текст."Нект нИндекЗа нИндек = 1 до 3Затвори аррФилеНумбер (нИндек) 'Затвори датотеку.Следећи нИндекЕнд Суб |
Ово ће створити 3 датотеке на Д погону.
тест1.ткт: „Број датотеке ове датотеке је 1“
тест2.ткт: „Број датотеке ове датотеке је 2“
тест3.ткт: „Број датотеке ове датотеке је 3“
Ово показује да враћа 1, 2, 3 помоћу функције ФрееФиле.
