У овом чланку ћемо створити макро за штампање свих Екцел датотека у фасцикли.
У фасцикли имамо неке Екцел датотеке које желимо да одштампамо. Сви они имају исту екстензију датотеке, „.клск“
Објашњење кода
Дир (ТаргетФолдер & ФилеФилтер)
Горњи код се користи за добијање имена прве датотеке унутар путање до фасцикле.
Воркбоокс.Опен ТаргетФолдер & ФилеНаме
Горњи код се користи за отварање дефинисане радне свеске.
АцтивеВоркбоок.ПринтОут
Горњи код се користи за штампање активне радне свеске.
Молимо следите доле за код
Опција Експлицитно Суб ПринтАллВоркбооксИнФолдер (ТаргетФолдер Ас Стринг, ФилеФилтер Ас Стринг) 'Декларисање променљиве Дим ФилеНаме Ас Стринг' Онемогућавање ажурирања екрана Апплицатион.СцреенУпдатинг = Фалсе 'Додавање сепаратора пута на крај назива циљног фолдера Ако је десно (ТаргетФолдер, 1) "\" Затим ТаргетФолдер = ТаргетФолдер & "\" Енд Иф 'Додељивање подразумеване путање филтер датотеци Иф ФилеФилтер = "" Тхен ФилеФилтер = "*.клс"' Добијте назив прве датотеке у фасцикли ФилеНаме = Дир (ТаргетФолдер & ФилеФилтер) Вхиле Лен (ФилеНаме)> 0 Иф ФилеНаме ТхисВоркбоок.Наме Затим 'Отвори радне свеске радне свеске.Отвори ТаргетФолдер & ФилеНаме' Штампа све листове у радној свесци АцтивеВоркбоок.ПринтОут 'Затворите радну свеску без чувања промена АцтивеВоркбоок.Цлосе Фалсе Енд Иф' Добијте назив датотеке од следећа датотека у фасцикли ФилеНаме = Дир Венд Енд Суб Суб ЦаллингПроцедуре () 'Декларисање променљивих Дим ФолдерПатх, ФилеНаме Ас Стринг' Добијање вредности из оквира за текст на листу1 ФолдерПатх = Схеет1.ТектБок1.Валуе ФилеНаме = Схеет1.ТектБ ок2.Валуе 'Позивање ПринтАллВоркбооксИнФолдер процедуре ПринтАллВоркбооксИнФолдер ФолдерПатх, ФилеНаме Енд Суб
Ако вам се допао овај блог, поделите га са пријатељима на Фацебооку. Такође, можете нас пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, јавите нам како можемо побољшати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште