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