- Макро ће копирати део првог радног листа сваке датотеке која се налази у фасцикли Ц: \ Дата на први радни лист ваше радне свеске.
- Први макро ради нормалну копију, а други макро копира вредности.
Суб ЦопиРов () Затамни основну књигу као радну свеску Затамни моју књигу као радну свеску Затамни изворРанге као опсег Дим дестранге Ас Ранге Дим рнум Ас Лонг Дим и Ас Лонг Дим а Ас Лонг Апплицатион.СцреенУпдатинг = Фалсе Витх Апплицатион.ФилеСеарцх .НевСеарцх .ЛоокИн = "Ц: \ Подаци ".СеарцхСубФолдерс = Фалсе .ФилеТипе = мсоФилеТипеЕкцелВоркбоокс Иф .Екецуте ()> 0 Затим поставите басебоок = ТхисВоркбоок рнум = 1 За и = 1 То. мибоок.Ворксхеетс (1) .Ровс ("3: 5") а = соурцеРанге.Ровс.Цоунт Сет дестранге = басебоок.Ворксхеетс (1). Ћелије (рнум, 1) соурцеРанге.Цопи дестранге мибоок.Цлосе рнум = и * а + 1 Следећи и Заврши ако заврши са Апплицатион.СцреенУпдатинг = Труе Енд Суб Суб ЦопиРовВалуес () Затамни основну књигу Као радну свеску Затамни моју књигу као радну свеску Пригуши изворРанге Ас Ранге Дим дестранге Ас Ранге Дим рнум Ас Лонг Дим и Ас Лонг Дим а Ас Лонг Апплицатион.СцреенУпдатинг = Нетачно са Апплицатион.ФилеСеарцх .НевСеарцх .ЛоокИн = "Ц: \ Дата" .СеарцхСубФолдерс = Фалсе .ФилеТипе = мсоФи леТипеЕкцелВоркбоокс Иф .Екецуте ()> 0 Затим подесите басебоок = ТхисВоркбоок рнум = 1 Фор и = 1 То ТосФилес.Цоунт Сет мибоок = Воркбоокс. "3: 5") а = соурцеРанге.Ровс.Цоунт Витх соурцеРанге Сет дестранге = басебоок.Ворксхеетс (1) .Целлс (рнум, 1). _ Промени величину (.Ровс.Цоунт, .Цолумнс.Цоунт) Енд Витх дестранге.Валуе = соурцеРанге.Валуе мибоок.Цлосе рнум = и * а + 1 Нект и Енд Иф Енд Витх Апплицатион.СцреенУпдатинг = Труе Енд Суб