Visual Basic for Applications ( VBA ) is de programmeertaal voor Microsoft's database- programma Access . VBA kan dezelfde functies beschikbaar zijn in de gebruikelijke Access -interface , inclusief bevragen externe databronnen naar Access uit te voeren . Een soort van externe gegevens is een HTML-tabel . Het raadplegen van een dergelijke tabel van Access VBA gaat verbinden aan de HTML- document met de tabel , dan is het uitvoeren van een query op de tafel . Het belangrijkste voordeel van het opvragen van een HTML tabel Access VBA is de tijdwinst door het vervangen van de gebruiker interventie van een standaard vraag met de automatisering van een VBA gebaseerde query. Wat je nodig hebt Microsoft Access Toon Meer Aanwijzingen Open Kladblok en plak 1 in het volgende voorbeeld van een HTML -document . Dit document bevat een kleine tafel van gegevens met betrekking tot films . U zult deze tabel een query uit een Access VBA -programma : < table Druk op "Control " 2 + " S" en type " c: \\ movies.html " . voor de bestandsnaam 3 Open Access en druk op ' Alt ' + " F11 " om de programmeeromgeving voeren voor VBA . 4 Klik op " Module " commando in het menu ' Insert ' om een nieuw venster te maken aan de HTML- query- subroutine inch invoeren 5 Plak de volgende programmacode in het nieuwe venster . De top subroutine brengt een verbinding , via de " TransferText " commando , de tabel in het HTML bestand van stap 1 . De " queryHTML " subroutine zal een SQL-query op de overgedragen tabelgegevens Public Sub importHTMLData ( ) op Dim tabname als Koord tabname = " Movies " < br draaien . > DoCmd.TransferText acLinkHTML , , tabname , " C : \\ movies.html " , -1 End Sub Public Sub queryHTML ( ) Const qry = " qHTML " Dim dbs als DAO.Database Dim recset Zoals DAO.Recordset Set dbs = CurrentDb Stel recset = dbs.OpenRecordset ( qry ) op Do While Not recset.EOF Debug.Print " Titel : " & recset [ titel ] recset.MoveNext Loop ! recset.Close dbs.Close End Sub 6 Klik enige verklaring in de " importHTMLData " subroutine , druk dan op " F5 "om de subroutine uitgevoerd . Press 7 " Alt " + " F11 " om terug te keren naar Access , klikt u op de pijlen van de navigatievenster 's ( " << " ) twee keer om de gegevens van de ruit 's vernieuwen . Het paneel zal nu een nieuwe tabel, "Movies ", die de importHTMLData subroutine geproduceerd . 8 Klik op het pictogram voor de " Movies" tabel in het navigatievenster en klik vervolgens op het menu "Create " , gevolgd door de "Query " knop op de hoofdwerkbalk . de " * " item uit de kleine 9 Dubbelklik op het "Movie " item in de " Add tafel " dialoogvenster , sleep " Movie " venster naar eerste commando de query raster . Deze actie maakt een query die de tweede VBA subroutine schreef u zult gebruiken om gegevens van de nieuwe tabel Movies halen . Druk op "Control " 10 + " S ", typ dan " qHTML " voor de query 's naam . Druk 11 " Alt " + " F11 " om terug te keren naar de ontwikkelomgeving . Klik op een verklaring in de queryHTML subroutine , druk daarna op " F5 " om de subroutine uitgevoerd . Druk op "Control " 12 + " G " naar " Immediate " venster van de ontwikkelomgeving te openen . Het venster zal de output van Debug.Print verklaring van de queryHTML subroutine weer te geven . Dat uitvoer bevat de resultaten van de uitvoering van de qHTML vraag van de queryHTML subroutine 's ( vanaf stap 10 ) .
|