У овом водичу ћете научити како да добијете имена свих датотека у фасцикли и ставите их на радни лист.
Уместо тога, ако желите да научите како да проверите да ли датотека постоји, можете да кликнете на ову везу: ВБА датотека постоји
Коришћење ФилеСистемОбјецт за добијање листе датотека у фасцикли
ВБА вам омогућава да наведете све датотеке из фасцикле помоћу ФилеСистемОбјецт.
Показаћемо како да дођете до листе датотека у фасцикли Ц: \ ВБА фасцикла и ставите га у прву колону радног листа. Ова фасцикла се састоји од 5 датотека, као што је приказано на слици 1:
Слика 1. Датотеке у фасцикли Ц: \ ВБА фасцикла
Ево кода:
| 1234567891011121314151617181920 | Суб ЛоопТхроугхФилес ()Дим оФСО Ас ОбјецтЗатамни фасциклу као објекатДим оФиле Ас ОбјецтДим и Ас ИнтегерПостави оФСО = ЦреатеОбјецт ("Сцриптинг.ФилеСистемОбјецт")Постави оФолдер = оФСО.ГетФолдер ("Ц: \ ВБА фасцикла")За сваки оФиле Ин оФолдер.ФилесЋелије (и + 1, 1) = оФиле.Намеи = и + 1Следећа оФилеЕнд Суб |
У примеру, прво креирајте објекат класе Сцриптинг.ФилеСистемОбјецт:
| 1 | Постави оФСО = ЦреатеОбјецт ("Сцриптинг.ФилеСистемОбјецт") |
Затим поставите фасциклу помоћу методе ГетФолдер:
| 1 | Постави оФолдер = оФСО.ГетФолдер ("Ц: \ ВБА фасцикла") |
Следећа петља кроз сваку датотеку оМапа, Користећи оФиле.Име то добити име сваке датотеке у фасцикли и уписати је у следећи празан ред:
| 123456 | За сваки оФиле Ин оФолдер.ФилесЋелије (и + 1, 1) = оФиле.Намеи = и + 1Следећа оФиле |
Слика 2. Радни лист са листом датотека у фасцикли
Као што можете видети на слици 2, свих 5 датотека из фасцикле Ц: \ ВБА наведене су у првој колони.
