Erstellen einer Microsoft Access-Makro , das die Ergebnisse einer Abfrage in Excel fügt kann durch die Verknüpfung von Excel oder durch Aufbringen Makro-Code direkt zu steuern Excel aus Access erfolgen Zugriff

Hinweis: . alle, aber die letzten drei Schritte gelten für Benutzer von Access ( und Excel) Jahr 2007. Wenn Sie eine frühere Version von Access haben , in die dritte zum letzten Schritt. Things You
Microsoft Excel und Access
brauchen anzeigen Weitere Anweisungen
1

In Access , erstellen Sie eine Tabelle mit Beispieldaten : Geben Sie die folgenden Daten in eine neue Tabelle :

die Accidental Tourist , 12/1/2009 , $ 6,01
die Accidental Tourist , 12/3/2009 , $ 7,98
Eisen john, 12 /5 /2009, 4,98 $
Eisen john, 12/6/2009 , $ 5,98
2

Doppelklicken Sie auf die Spaltenüberschriften (zB \\ " Feld1 \\ " ), und ersetzen jeweils mit diesen Headern , in dieser Reihenfolge:

Buch , Verkaufsdatum , netsale

Speichern Sie die Tabelle ( \\ "control - s \\" ) mit dem Namen \\ " Bücher. \\ "
3

erstellen Sie eine Abfrage aus der Tabelle , und drücken Sie die \\ "Esc \\ "-Taste in der \\ " Tabelle anzeigen \\ " Dialogfeld . Rechts-Klick auf die Abfrage- Registerkarte , und wählen Sie \\ " SQL-Ansicht \\ ". Geben Sie in das Codefenster : .

SELECT * INTO Bücher queryresults
FROM Bücher
WHERE ( ( ( books.book ) Like ' * nach * '))
GO

Speichern Sie die Abfrage ( \\ "control -s \\ " ) und nennen Sie es \\ " vbaquery . \\ "
4

öffnen Sie Excel , und drücken Sie in der Symbolleiste \\ " Data > Von Access \\ "-Symbol. Wählen Sie die \\ " queryresults \\ " -Tabelle in der \\ "Select Table \\ " Dialogfeld . Klicken Sie auf \\ " OK \\ " auf der \\ "Import Data \\ " Dialog und beachten Sie das Ergebnis der Abfrage : nur die \\ " Eisen john \\ " Bücher gezeigt. Speichern Sie die Excel-Datei mit einem beliebigen Namen , und schließen Sie es.
5

Öffnen Sie den \\ " Bücher \\ "-Datenbank in Access. Öffnen Sie den \\ " vbaquery \\ " und überarbeiten ihre \\ "Kriterien : \\ "-Feld zu lesen \\ " Like ' * nach * ' \\ " ( Geben Sie nicht die doppelte Anführungszeichen geben Sie den inneren , ledig. Anführungszeichen. ) speichern Sie die Abfrage.
6

erstellen Sie eine neue Abfrage. Geben Sie die folgende SQL -Anweisung in der \\ " SQL-Ansicht \\ "-Fenster , und speichern Sie die Abfrage als \\ " dropqueryresults \\ ":

DROP TABLE queryresults ;

7

Geben Sie den Visual Basic integrierten Entwicklungsumgebung ( IDE ), indem Sie \\ "alt - f11 \\", und wählen Sie dann \\ "Einfügen> Modul . \\ " den folgenden Code in das neue Modul die Leercode Einfügen Fenster :

Public Sub RunQuery ()
' löschen der Ergebnistabelle ersten
On Error GoTo do_query
RunQueryForExcel ( \\ " dropqueryresults \\ " )

do_query :
RunQueryForExcel ( \\ " vbaquery \\ " )

End Sub < br /> Public Sub RunQueryForExcel ( qName As String)

DoCmd.SetWarnings Falsch CurrentDb.Execute qName

DoCmd.SetWarnings Echte End Sub