Wie man ein Makro in Word , die Daten aus Excel Liest schreiben . Microsoft nennt diese Art der Steuerung "Automation ". Automation ermöglicht einem der Office-Programme wie Word, Excel, Access und PowerPoint , stellen Sie eine Verbindung zu , dann verwenden Sie die virtuellen Objekte einer anderen Office-Anwendung. Um ein Word- Makro, das Daten aus Excel liest schreiben , verwenden Sie die " CreateObject "-Anweisung von Visual Basic einen Link zu Excel erstellen. Dann nutzen Sie diesen Link , um Daten aus Excel "Cell "-Objekt zu lesen. Anleitung 
 1 
 Excel öffnen , und geben Sie einen beliebigen Wert in die erste Zelle der ersten Tabelle. Klicken Sie auf die Office- Schaltfläche Befehl "Speichern" , geben Sie dann "c: \\ ReadFromExcel.xlsx " für den Dateinamen . Klicken Sie auf " Speichern", um die Arbeitsmappe zu speichern , und schließen Sie Excel. 
 2 
 Klicken Sie auf die Office-Schaltfläche in Word , dann klicken Sie auf die Schaltfläche "Optionen" . Klicken Sie auf die "Entwickler " Kontrollkästchen, um die Registerkarte "Entwicklertools" , das Word- Makro- Befehle hält anzuzeigen. 
 3 
 Klicken Sie auf die Registerkarte "Entwicklertools" der " Visual Basic " -Taste, um den Visual Basic- Entwicklung geben Umwelt. 
 4 
 Klicken Sie auf das Menü "Extras" , dann auf die " Referenzen "-Befehl. Klicken Sie auf die "Microsoft Excel Objekte " Artikel , die Ihr Makro Zugriff auf die virtuellen Objekte von Excel. 
 5 
 Typ das folgende Programm im Code-Fenster ermöglicht . Dieses Programm erzeugt einen Link auf die Excel-Anwendung , schließen Sie dann den Link . Das Programm ist noch nicht alles tun, mit dem etablierten Link . Sie sehen nun den Link , um die Excel-Arbeitsmappe Sie in Schritt 1 erstellt wurden. 
 
 Public Sub ReadExcelData () Dim 
 
 pgmExcel Wie Excel.Application 
 
 Set pgmExcel = CreateObject (" Excel.Application " ) 
 
 pgmExcel.Quit 
 
 End Sub 
 6 
 Geben Sie die folgenden neuen Aussagen nach dem "Set "-Anweisung. Diese Aussagen öffnen Sie die Excel-Arbeitsmappe Sie in Schritt 1 erstellt haben , dann schließen Sie die Arbeitsmappe . Das überarbeitete Programm noch nicht lesen keine Informationen aus der Arbeitsmappe . Die nächste Anweisung schreiben Sie liest Informationen aus der Arbeitsmappe 
 
 PgmExcel.Workbooks.Open "c: \\ ReadFromExcel.xlsx " . 
 7 
 Geben Sie die folgenden Aussagen nach dem " Öffnen "-Anweisung. Diese Anweisung verwendet die pgmExcel Objekt, um den Wert der ersten Zelle in der Arbeitsmappe aus Schritt 1 gelesen. Die " MsgBox" Anweisung zeigt diesen Wert . 
 
 MsgBox pgmExcel.ActiveWorkbook.Sheets (1). Cells (1, 1 ) auf Twitter 8 
 Klicken Sie auf der Programm- Aussagen , klicken Sie dann auf die " Run "-Befehl des " Run "-Menü. Ihr Programm wird ausgeführt und zeigt den Wert der Zelle, in die Sie in Schritt 1 eingegeben .