Jak napsat makro v aplikaci Word pro čtení dat aplikace Excel

Společnost Microsoft volá tento typ kontroly

Krok 1

Otevřete aplikaci Excel a zadejte hodnotu do první buňky prvního listu. Klepněte na příkazové tlačítko "Uložit" a zadejte název souboru "c: \ ReadFromExcel.xlsx". Klepnutím na tlačítko Uložit uložte knihu a zavřete aplikaci Excel.

Krok 2

Klepněte na tlačítko Office v aplikaci Word a poté na tlačítko "Možnosti". Klepnutím na zaškrtávací políčko Vývojář zobrazíte tuto kartu, která obsahuje příkazy maker aplikace Word.

Krok 3

Klepnutím na kartu "Vývojář" jazyka "Visual Basic" vstoupíte do vývojového prostředí.

Krok 4

Klikněte na nabídku "Nástroje" a pak na příkaz "Odkazy". Klepněte na položku "Objekty aplikace Microsoft Excel", která umožňuje maker přístup k virtuálním objektům aplikace Excel.

Krok 5

V okně s kódem napište následující program. Tento program vytvoří odkaz na aplikaci aplikace Excel a zavře jej. Program stále nedělá nic se zavedeným odkazem. Nyní použijeme tento odkaz k otevření sešitu aplikace Excel, který jste vytvořili v kroku 1.

Public Sub ReadExcelData () Dim pgmExcel Jako Excel.Application Nastavit pgmExcel = CreateObject ("Excel.Application") pgmExcel.Quit End Sub

Krok 6

Po zadání "Nastavit" napište následující nové příkazy. Tyto příkazy otevře sešit aplikace Excel, který jste vytvořili v kroku 1 a zavřete jej. Upravený program dosud nečetl žádné informace z knihy. Následující příkaz, který píšete, si přečte informace v knize.

PgmExcel.Workbooks.Open "c: \ ReadFromExcel.xlsx"

Krok 7

Zadejte následující příkazy po "Otevřít". Tato instrukce používá objekt pgmExcel k čtení hodnoty první buňky v sešitu kroku 1. Příkaz "MsgBox" zobrazuje tuto hodnotu.

MsgBox pgmExcel.ActiveWorkbook.Sheets (1) .Cells (1, 1)