Wie Sie ein Makro in Word zu schreiben, die Daten aus Excel liest

Wissen, wie man ein Word-Makro schreiben, das liest Daten aus Excel stellt Ihnen ein Konzept für die Steuerung einer Office-Anwendung mit einem anderen. Microsoft nennt diese Art der Kontrolle "Automation." Automatisierung ermöglicht die Office-Programme wie Word, Excel, Access und PowerPoint, eine Verbindung zu herstellen, dann verwenden Sie die virtuelle Objekte einer anderen Office-Anwendung. Um ein Word-Makro zu schreiben, die Daten aus Excel liest, verwenden Sie die "CreateObject"-Anweisung von Visual Basic zum Erstellen einer Verknüpfung zu Excel. Dann verwenden Sie diesen Link zum Lesen von Daten aus Excel "Zelle"-Objekt.

Anweisungen

1 Öffnen Sie Excel, und geben Sie einen beliebigen Wert in die erste Zelle der ersten Kalkulationstabelle. Die Office-Schaltfläche, der Befehl "Speichern" klicken und dann "c:\ReadFromExcel.xlsx" für den Dateinamen geben. Auf "Speichern" klicken Sie, die Arbeitsmappe speichern und schließen Sie Excel.

2 Die Office-Schaltfläche in Word, klicken Sie auf die Schaltfläche "Optionen". Aktivieren Sie das Kontrollkästchen "Entwickler" zum Anzeigen der Registerkarte "Entwicklertools" das Word-Makro-Befehle enthält.

3 Klicken Sie auf die Registerkarte "Entwicklertools" "Visual Basic"-Schaltfläche, um den Visual Basic-Entwicklungsumgebung einzugeben.

4 Klicken Sie im Menü "Extras" und anschließend den Befehl "Verweise". Klicken Sie dem "Microsoft Excel Objekte"-Element, das Ihr Makro-App ermöglicht die virtuelle Objekte von Excel.

5 Geben Sie das folgende Programm in das Codefenster. Dieses Programm erstellt eine Verknüpfung mit der Excel-Anwendung, schließen Sie dann den Link. Das Programm tun nicht noch etwas mit dem etablierten Link. Sie werde jetzt den Link verwenden, um die Excel-Arbeitsmappe öffnen, die Sie in Schritt 1 erstellt.

Public Sub ReadExcelData()

Dim PgmExcel als Excel.Application

Set PgmExcel = CreateObject("Excel.Application")

pgmExcel.Quit

EndSub

6 Geben Sie die folgenden neuen Anweisungen nach der Anweisung "Set". Diese Anweisungen öffnen Sie die Excel-Arbeitsmappe, die Sie in Schritt 1 erstellt haben, dann schließen Sie die Arbeitsmappe. Das überarbeitete Programm liest noch keine Informationen aus der Arbeitsmappe. Die next-Anweisung schreiben Sie liest Informationen aus der Arbeitsmappe.

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

7 Geben Sie die folgenden Anweisungen nach der Anweisung "Open". Diese Anweisung verwendet das PgmExcel-Objekt, um den Wert der ersten Zelle in der Arbeitsmappe aus Schritt 1 zu lesen. Die Anweisung "MsgBox" zeigt diesen Wert.

MsgBox pgmExcel.ActiveWorkbook.Sheets(1). Zellen (1 / 1)

8 Aussagen des Programms klicken Sie auf den Befehl "Ausführen" im Menü "Run". Das Programm läuft und zeigt den Wert der Zelle, in die Sie in Schritt 1 eingegeben haben.