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