Verstehen, wie man Programm Excel-VBA aus Access können Sie Programme schreiben , dass der Austausch von Daten zwischen den beiden Anwendungen . Jede Anwendung verfügt über Funktionen die andere nicht , aber mit was Microsoft nennt "Automation " Sie können jedem Programm die VBA -Tools und virtuelle Objekte des anderen . Wesentliche Elemente der Automatisierungstechnik sind die virtuellen VBA Objekte einer Anwendung , wie die Excel " Arbeitsmappen "-Kollektion und der " ActiveCell " Eigenschaft . Die VBA -Anweisung, die die Excel- Objekte zur Verfügung , um Zugriff macht, ist " CreateObject ". Anleitung
Senden von Daten an Excel
1
Open Access , klicken Sie dann auf die Registerkarte "Entwicklertools" der " Visual Basic "-Taste , um den Visual Basic-Entwicklungsumgebung geben .
2
Klicken Sie auf das Menü "Einfügen" die "Module" Befehl, um ein neues Fenster, um das Programm , um die Kontrolle zu halten Excel zu erstellen , klicken Sie auf das Menü "Extras" . Klicken Sie auf die "Reference "-Befehl, dann klicken Sie auf die "Microsoft Excel " aktivieren , damit Ihr Programm Excel virtuelle Objekte zugreifen können.
3
Fügen Sie das folgende Programm in das Fenster . Dieses Programm erzeugt eine Excel-Arbeitsmappe , dann fügt Text zu einem der Arbeitsmappe Zellen .
Public Sub MadeByAccess () Dim
aplExcel Wie Excel.Application
aplExcel = CreateObject Set ( " Excel.Application " )
aplExcel.Workbooks.Add
aplExcel.ActiveCell = " . hallo aus Access"
aplExcel.ActiveWorkbook.SaveAs ( "c: \\ MadeByAccess.xlsx " )
aplExcel.Quit
End Sub
4
Klicken Sie auf den " Run "-Menü den Befehl" Ausführen " , um das Programm zu starten , dann mit Windows Explorer zu dem Ordner navigieren "C: \\".
5
Doppelklicken Sie auf die Datei " MadeByAccess.xlsx ", um die Datei in Excel laden. Beachten Sie die erste Zelle in dem ersten Arbeitsblatt zeigt den Text von "Hallo aus Access ", das erschien in Ihrem Programm.
Lesen eines Werts aus Excel
6
Excel öffnen , geben Sie dann einen beliebigen Text in Zelle "A1" der erste Arbeitsblatt . Drücken Sie auf " Control" und "S" gleichzeitig , dann geben Sie "C: \\ ForAccess.xlsx " im Feld "Name " Textfeld . Klicken Sie auf " Speichern " und drücken Sie "Control" und "F4" gleichzeitig zu Excel.
7
Open Access zu schließen , klicken Sie dann auf die Registerkarte "Entwicklertools" der " Visual Basic "-Taste , um den Visual Basic-Programmierung geben Umwelt.
8
Klicken Sie auf das Menü "Extras" die " Referenz "-Befehl, klicken Sie dann auf das Kontrollkästchen des "Microsoft Excel" Artikel , damit Ihr Programm Excel zu steuern.
9 < p> Klicken Sie auf das Menü "Einfügen" den "Modul "-Befehl, dann fügen Sie das folgende Programm in das neue Fenster , das erscheint. Das Programm öffnet die Excel Arbeitsmappe, die Sie in Schritt 1 erstellt haben , und liest Zelle "A1" aus dieser Arbeitsmappe.
Public Sub ForAccess () Dim
aplExcel Wie Excel.Application
< p > Set aplExcel = CreateObject (" Excel.Application " )
aplExcel.Workbooks.Open ( "c: \\ ForAccess.xlsx " )
MsgBox aplExcel.ActiveCell
aplExcel . ActiveWorkbook.Close
aplExcel.Quit
End Sub
10
Klicken Sie auf den " Run "-Menü den Befehl "Ausführen" , um das Programm auszuführen. Access wird eine Meldung angezeigt , die den Text, den Sie im Excel-Arbeitsblatt Zelle in Schritt eins getippt.