Chcete -li kopírovat data z aplikace Excel do souboru aplikace Word pomocí jazyka VBA, musíme k aplikaci Word přistupovat pomocí aplikace Excel VBA. V tomto kurzu se naučíme, jak otevřít aplikaci Word, přidat dokument a zkopírovat do ní data z aplikace Excel.
V tomto článku použijeme metodu Early Binding k vytvoření objektu aplikace Word namísto použití pozdní vazby. Zde si o tom můžete podrobně přečíst.
Proces kopírování dat aplikace Excel do souboru aplikace Word pomocí aplikace Excel VBA
Chcete -li kopírovat data z Excelu do souboru Word pomocí VBA, musíme nejprve samozřejmě otevřít aplikaci Word. Poté do něj přidejte dokument (pokud chcete nový dokument). Zkopírujte data ze souboru aplikace Excel. Vyberte odstavec na dokumentu a vložte jej. Nakonec dokument uložte a zavřete. Každý z těchto kroků lze snadno provést z aplikace Excel. Nebudete muset komunikovat s dokumentem aplikace Word.
Začněme příkladem, aniž bychom se dostali dále k teorii. Protože Iron Man řekl: „Někdy musíš běžet, než můžeš chodit“.
Příklad: Vložte data aplikace Excel do aplikace Word pomocí VBA
Níže uvedený kód je příkladem toho, jak můžete zkopírovat některý rozsah aplikace Excel a vložit jej do nového dokumentu aplikace Word a uložit jej na disk pro pozdější použití.
'Kód VBA pro zápis a kopírování dat z Excelu do dokumentu Sub ExcelToWord ()' s použitím Early Binding Dim wordApp jako Word.Application Dim mydoc As Word.Document 'Vytvoření nové instance slova pouze v případě, že neexistují žádné další instance Set wordApp = New Word.Application 'Making word App Visible wordApp.Visible = True' Vytvoření nového dokumentu Set mydoc = wordApp.Documents.Add () 'kopírování obsahu z excelového listu ThisWorkbook.Worksheets ("sheet1"). Rozsah ("A1: g20 "). Kopírovat 'Vkládání do dokumentu mydoc.Paragraphs (1) .Range.PasteExcelTable _ LinkedToExcel: = False, _ WordFormatting: = False, RTF: = False' uložení dokumentu mydoc.SaveAs2" MyDoc "'zavření dokumentu mydoc .Zavřete 'Vyprázdnění schránky CutCopyMode = False End Sub
Vysvětlení kódu:
No, vysvětlil jsem každý krok v samotném kódu pomocí komentářů, ale pojďme si říct něco o řádcích, které jsme použili v tomto sub.
'Vytvořené proměnné aplikace Word a typu dokumentu
Dim wordApp As Word.Application
Dim mydoc As Word.Document
Zde jsme deklarovali dvě proměnné požadovaných typů. Můžeme to udělat, protože jsme již přidali odkaz na slovo aplikace. To lze provést v nabídce Nástroje. Najděte možnost reference a poté vyhledejte slovo odkaz.
"Vytvoření nové instance slova pouze v případě, že neexistují žádné další instance."
Nastavit wordApp = New Word.Application
„Viditelnost aplikace Word
wordApp.Visible = True
„Vytvoření nového dokumentu
Nastavit mydoc = wordApp.Documents.Add ()
V prvním řádku výše zamýšlíme proměnnou wordApp s objektem typu Word.App pomocí klíčového slova New. Tím se otevře aplikace Word.
V druhém řádku zviditelňujeme slovo aplikace, abychom s ním mohli pracovat.
V dalším řádku přidáme do aplikace Word nový dokument pomocí funkce Word.Documents.Add (). To je uloženo v proměnné mydoc.
„kopírování obsahu z listu Excelu
ThisWorkbook.Worksheets ("sheet1"). Range ("A1: G20"). Copy
Zde jednoduše kopírujeme rozsah z Excelu. Určitě jste to už udělali. Je uložen ve schránce.
"Vkládání do dokumentu."
mydoc.Paragraphs (1) .Range.PasteExcelTable _
LinkedToExcel: = False, _
WordFormatting: = False,
RTF: = Nepravda
K vkládání dat ze schránky používáme metodu PasteExcelTable z třídy odstavce.Range mydoc.
„uložení dokumentu
mydoc.SaveAs2 "MyDoc"
“zavření dokumentu
mydoc.Zavřít
"Vyprazdňování schránky."
CutCopyMode = False
Ukládáme dokument s názvem MyDoc. Poté dokument zavřeme pomocí funkce Zavřít. Nakonec uvolníme schránku, kterou budou používat ostatní.
Takže ano, lidi, takto můžete vytvořit nový dokument aplikace Word a zkopírovat do něj data aplikace Excel pomocí jazyka VBA. Nezacházel jsem do podrobností, protože by to článek vyčerpaně vyčerpalo. To bylo jen proto, abyste se dozvěděli, jak můžete vložit do dokumentu aplikace Word prostřednictvím aplikace Excel. Doufám, že vám to pomohlo pochopit postup. Máte -li jakékoli dotazy týkající se tohoto článku, můžete mě kontaktovat prostřednictvím níže uvedené sekce komentářů.
Začínáme s UserForms aplikace Excel VBA| Vysvětlím, jak vytvořit formulář v Excelu, jak používat sadu nástrojů VBA, jak zacházet s uživatelskými vstupy a nakonec jak ukládat uživatelské vstupy. Tato témata si projdeme pomocí jednoho příkladu a průvodce krok za krokem.
Proměnné VBA v Excelu| VBA znamená Visual Basic for Applications. Jedná se o programovací jazyk od společnosti Microsoft. Používá se s aplikacemi Microsoft Office, jako jsou MSExcel, MS-Word a MS-Access, zatímco proměnné VBA jsou specifická klíčová slova.
Proměnný rozsah Excel VBA| Ve všech programovacích jazycích máme specifikátory přístupu k proměnným, které definují, odkud lze k definované proměnné přistupovat. Excel VBA není výjimkou. VBA má také specifikátory rozsahu.
Argumenty ByRef a ByVal | Když je argument předán jako ByRef argument jinému sub nebo funkci, je odeslán odkaz na skutečnou proměnnou. Jakékoli změny provedené v kopii proměnné se projeví v původním argumentu.
Odstraňte listy bez výzev k potvrzení pomocí VBA v aplikaci Microsoft Excel | Protože odstraňujete listy pomocí VBA, víte, co děláte. Chtěli byste říct Excelu, aby toto varování nezobrazoval a ten zatracený list smazal.
Přidat a uložit nový sešit pomocí jazyka VBA v aplikaci Microsoft Excel 2016| V tomto kódu jsme nejprve vytvořili odkaz na objekt sešitu. A pak jsme to inicializovali novým objektem sešitu. Výhodou tohoto přístupu je, že na tomto novém sešitu můžete snadno provádět operace. Stejně jako ukládání, zavírání, mazání atd
Zobrazit zprávu na stavovém řádku aplikace Excel VBA| Stavový řádek v Excelu lze použít jako monitor kódu. Když je váš kód VBA dlouhý a provádíte několik úkolů pomocí VBA, často deaktivujete aktualizaci obrazovky, abyste neviděli, že tato obrazovka bliká.
Vypněte varovné zprávy pomocí VBA v aplikaci Microsoft Excel 2016| Tento kód nejenže zakáže výstrahy VBA, ale také zvyšuje časovou účinnost kódu. Uvidíme jak.
Oblíbené články:
50 zkratek aplikace Excel pro zvýšení produktivity | Získejte rychleji svůj úkol. Těchto 50 klávesových zkratek vám umožní pracovat v Excelu ještě rychleji.
Funkce VLOOKUP v Excelu | Toto je jedna z nejpoužívanějších a nejoblíbenějších funkcí Excelu, která slouží k vyhledávání hodnot z různých rozsahů a listů.
COUNTIF v aplikaci Excel 2016 | Pomocí této úžasné funkce spočítejte hodnoty s podmínkami. K počítání konkrétních hodnot nemusíte data filtrovat. Funkce Countif je nezbytná pro přípravu řídicího panelu.
Jak používat funkci SUMIF v aplikaci Excel | Toto je další základní funkce řídicího panelu. To vám pomůže shrnout hodnoty za konkrétních podmínek.