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