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