Visual Basic für Applikationen ( VBA) ist die Programmiersprache für Microsofts Datenbank-Programm Access. VBA können die gleichen Funktionen zur Verfügung in der üblichen Access-Schnittstelle , einschließlich Abfragen von Daten externen Quellen zu Access. Eine Art von externen Daten ist eine HTML-Tabelle . Abfragen wie eine Tabelle aus Access VBA beinhaltet den Anschluss an das HTML-Dokument mit der Tabelle , dann läuft eine Abfrage auf den Tisch. Der wichtigste Vorteil der Abfrage eine HTML-Tabelle aus Access VBA ist die Zeit durch Austausch der Eingriff des Benutzers eines Standard Abfrage mit der Automatisierung einer VBA - Abfrage gespeichert. Things You
Öffnen Sie den Editor und fügen Sie ihn in es die folgende Beispiel-HTML- Dokument . Dieses Dokument enthält einen kleinen Tisch von Daten im Zusammenhang mit Filmen.
Presse "Control" + "S" und geben Sie " c : \\ movies.html " . für den Dateinamen
3 Open Access und drücken Sie " Alt" + " F11 ", um die Programmierumgebung für VBA eingeben .
4
Klicken Sie auf das Menü "Einfügen" den "Modul "-Befehl um ein neues Fenster zu erstellen , um die HTML -Abfrage Unterprogramm in.
geben 5
Fügen Sie den folgenden Programmcode in das neue Fenster . Die obere Unterprogramm schafft eine Verbindung , durch die " TransferText "-Befehl, mit dem Tisch in der HTML-Datei aus Schritt 1 . Die " queryHTML " Unterprogramm läuft eine SQL- Abfrage auf die Tabelle übertragen Daten .
Public Sub importHTMLData () Dim
TABNAME As String
TABNAME = "Movies "
DoCmd.TransferText acLinkHTML , TABNAME , "C: \\ movies.html " , -1
End Sub Public Sub
queryHTML ()
Const qry = " qHTML "
Dim dbs Wie DAO.Database
Dim recset Wie DAO.Recordset
Set dbs = CurrentDb
Set recset = dbs.OpenRecordset ( qry )
Do While Not recset.EOF
Debug.Print " Titel :" & recset [title ]
recset.MoveNext
Schleife !
recset.Close
dbs.Close
End Sub
6
Klicken Sie auf eine Aussage in der " importHTMLData " Unterprogramm , und drücken Sie "F5 " laufen die Subroutine.
7
Presse " Alt " +" F11 ", um zurück zu Access , und klicken Sie im Navigationsbereich die Pfeile ( " << " ) zweimal an der Scheibe die Daten zu aktualisieren. Die Scheibe wird nun eine neue Tabelle , " Filme ", die die importHTMLData Subroutine erzeugt .
8
Klicken Sie auf das Symbol für den "Movies "-Tabelle im Navigationsbereich , klicken Sie dann auf die Schaltfläche "Create "-Menü , gefolgt von der "Query "-Taste auf der Haupt-Symbolleiste .
9
Doppelklicken Sie auf das "Movie " Artikel in der " Tabelle hinzufügen "-Dialog , und ziehen Sie die " * " aus dem kleinen "Movie "-Fenster auf der Abfrage der erste Befehl . Diese Aktion erstellt eine Abfrage , dass die zweite VBA Unterprogramm Sie schrieb verwenden, um Daten aus der neuen Filme Tisch zu holen.
10
Presse "Control" + " S ", dann " qHTML " für die Abfrage Namen.
11
Presse "Alt" + " F11 ", um die Entwicklungsumgebung zurück. Klicken Sie auf eine Aussage in der queryHTML Unterprogramm , und drücken Sie "F5 ", um die Unterroutine ausführen .
12
Presse "Control" + "G" , öffnen Sie die Entwicklungsumgebung des "Sofort" -Fenster. Das Fenster zeigt den Ausgang des queryHTML Subroutine debug.print Aussage. Das Ausgabe enthält die Ergebnisse der queryHTML Subroutine Ausführung der Abfrage qHTML (aus Schritt 10) .
