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 .