Понекад ћете можда желети или требати да креирате Екцел радну свеску на аутоматизован начин. На пример, можда ћете морати да копирате податке из табеле и налепите их у новостворену радну свеску. Следећи макро копира опсег ћелија са активног листа и лепи податке у нову радну свеску.
Како функционише макро
Као што ћете видети када прочитате редове кода, овај макро је релативно интуитиван:
Подмакро1()
„Корак 1 Копирајте податке
Листови("Пример 1").Распон("Б4:Ц15").Копија
„Корак 2 Креирајте нову радну свеску
Радне свеске.Додај
„Корак 3 Налепите податке
АцтивеСхеет.Пасте Дестинатион:=Ранге("А1")
„Корак 4 Искључите упозорења апликација
Апплицатион.ДисплаиАлертс = Фалсе
„Корак 5 Сачувајте новокреирану радну свеску
АцтивеВоркбоок.СавеАс _
Име датотеке:="Ц:ТемпМиНевБоок.клск"
„Корак 6 Поново укључите упозорења апликације
Апплицатион.ДисплаиАлертс = Тачно
Енд Суб
У кораку 1 једноставно копирате податке који се крећу од ћелија Б4 до Ц15. Имајте на уму да наводите и лист и опсег по имену. Овај приступ је најбоља пракса када радите са више отворених радних свеска.
У 2. кораку користите метод Адд објекта Радна свеска да бисте креирали радну свеску. Празна радна свеска је еквивалентна ручном избору Датотека→ Ново→ Празан документ на траци програма Екцел.
У кораку 3 користите метод Пасте да бисте послали копиране податке у ћелију А1 нове радне свеске.
Обратите пажњу на чињеницу да се код односи на објекат АцтивеСхеет. Када додате радну свеску, нова радна свеска одмах добија фокус и постаје активна радна свеска. (Екцел ради исто када ручно додате радну свеску.)
У 4. кораку кода, метод ДисплаиАлертс постављате на Фалсе, ефективно искључујући упозорења програма Екцел. Ово радите зато што у следећем кораку кода чувате новокреирану радну свеску. Овај макро можете покренути више пута, у ком случају Екцел покушава да сачува датотеку више пута.
Шта се дешава када покушате да сачувате радну свеску више пута? Тако је — Екцел вас упозорава да већ постоји датотека са тим именом, а затим вас пита да ли желите да замените претходно постојећу датотеку. Пошто је ваш циљ да аутоматизујете креирање радне свеске, желите да потиснете то упозорење.
У кораку 5, сачувате датотеку помоћу методе СавеАс. Имајте на уму да уносите пуну путању локације за чување, укључујући коначно име датотеке.
Пошто сте искључили измене апликација у кораку 4, потребно је да их поново укључите (погледајте 6. корак). Ако то не учините, Екцел наставља да потискује сва упозорења током тренутне сесије.
Како користити макро
Да бисте имплементирали овај макро, можете га копирати и налепити у стандардни модул:
Активирајте Висуал Басиц Едитор притиском на Алт+Ф11.
Кликните десним тастером миша на име пројекта/радне свеске у прозору пројекта.
Изаберите Инсерт→Модуле.
Откуцајте или налепите код у новокреирани модул.
Вероватно ћете морати да промените назив листа, адресу опсега и локацију за чување.