Ak sa od vás požaduje skopírovanie a prilepenie údajov z viacerých pracovných hárkov programu Excel do programu MS Word, mali by ste si prečítať tento článok. V programe Excel neexistuje žiadna taká funkcia, ktorá by vám umožnila previesť údaje zo zošita programu Excel do súboru programu Word. Aplikácia Word nemôže priamo otvárať súbory programu Excel. Dáta programu Excel je však možné skopírovať a vložiť do programu Word a potom uložiť ako dokument programu Word.
Všetci prenášame údaje z Excelu do programu Word ručne, čo je niekedy únavné, pokiaľ ide o vykonávanie rovnakých krokov príliš často za deň; aby sme sa vyhli manuálnym krokom, napíšeme kód VBA, aby sme urobili všetky kroky.
V tomto článku sa zameriame na presun údajov z Excelu do dokumentu Word. Celý postup zautomatizujeme prostredníctvom kódu VBA. S kódom makra môžete jednoducho skopírovať údaje do jedného pracovného hárka naraz a potom sa automaticky spustí aplikácia Word a kód VBA použije príkaz na vloženie údajov do súboru doc.
Ak chcete získať kód; na spustenie editora VB musíme vykonať nasledujúce kroky:
- Kliknite na kartu Vývojár
- V skupine Kód vyberte položku Visual Basic
- Je tu dôležitý krok, ktorý nesmiete nechať ujsť
- Kliknutím na Nástroje vyberte Referencie
- Posuňte sa nadol, kým nenájdete „Objektovú knižnicu Microsoft Word 15.0“
- Začiarknite políčko; pozri obrázok nižšie
- Skopírujte nižšie uvedený kód do štandardného modulu
Sub CopyWorksheetsToWord () Dim wdApp As Word.Application, wdDoc As Word.Document, ws As Worksheet Application.ScreenUpdating = False Application.StatusBar = "Creating new document…" Set wdApp = New Word.Application Set wdDoc = wdApp.Documents.Add Za každé ws v ActiveWorkbook.Worksheets Application.StatusBar = "Kopírovanie údajov z" & ws.Name & "…" ws.UsedRange.Copy wdDoc.Paragraphs (wdDoc.Paragraphs.Count) .Range.InsertParagraphAfter wdDoc.Paragraphs (wdDoc.Paragraph .Počet. Count) .Range .InsertParagraphBefore .Collapse Direction: = wdCollapseEnd .InsertBreak Typ: = wdPageBreak Koniec s koncom, ak bude ďalší ws Nastaviť ws = Nič Application.StatusBar = "Čistenie …" S wdApp.ActiveWindow Ak .View.SplitSpecial = wdPaneNone Potom. ActivePane.View.Type = wdNormalView Else .View.Type = wdNormalView End If End with Set wdDoc = Nothing wdApp.Visible = True Set wdApp = Nothing Application.StatusBar = False End Sub
Na otestovanie kódu vložíme 2 listy a pridáme náhodné čísla. Nasleduje prehľad oboch pracovných listov:
1. list:-
2. list:-
- Po nastavení údajov v pracovných listoch; môžeme spustiť makro
- Aplikácia Word sa spustí okamžite a údaje sa skopírujú zo všetkých pracovných hárkov do programu Word; pozrite sa na nižšie uvedenú snímku
Ak si myslíte, že kopírovanie údajov je jedna úloha, ale medzi údajmi každého pracovného hárka by malo dôjsť k prerušeniu stránky, aby ktokoľvek mohol ľahko urobiť rozdiel medzi údajmi z každého pracovného hárka.
Vyššie uvedené údaje budú skopírované z jedného listu a potom kód VBA zabezpečí, aby medzi stránky bol pridaný zlom strany.
Záver: Týmto spôsobom môžeme pomôcť mnohým používateľom balíka Microsoft Office, ktorí si myslia, že prevádzanie údajov zo súboru programu Excel do programu Word je trochu komplikované alebo nemožné. Vyššie uvedený kód ukázal, ako ľahko je možné kopírovať a vkladať údaje do súboru Word bez problémov z viacerých hárkov programu Excel do súboru word doc.
Ak sa vám páčili naše blogy, zdieľajte ich so svojimi priateľmi na Facebooku. A tiež nás môžete sledovať na Twitteri a Facebooku.
Radi by sme vás počuli, dajte nám vedieť, ako môžeme zlepšiť, doplniť alebo inovovať našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku