Visual Basic for Applications ( VBA ) er programmeringsspråket for Microsofts database program Access. VBA kan utføre de samme funksjonene som er tilgjengelige i den vanlige Access- grensesnittet , inkludert spørring datakilder eksterne til Access . En type av eksterne data er en HTML-tabell . Spørring slik tabell fra Access VBA innebærer at man kobler til HTML- dokumentet som inneholder tabellen , deretter kjører en spørring på bordet . Den største fordelen med å spørre en HTML-tabell fra Access VBA er spart tid ved å erstatte brukermedvirkning på en standard spørring med automatisering av en VBA -basert spørring . Du trenger
Microsoft Access
Vis flere instruksjoner
en

Åpne Notisblokk og lim inn i den følgende eksempel HTML-dokumentet. Dette dokumentet inneholder et lite bord av data relatert til filmer . Du vil spørre dette bordet fra en Access VBA-programmet : en

< table
2

Trykk "Ctrl " + "S " og skriv "c : \\ movies.html " . for filnavnet
3

Open Access og trykk på "Alt" + "F11 " for å gå inn i programmering miljø for VBA.
4

Klikk på " Insert " -menyen er " Module" kommandoen for å opprette et nytt vindu for å gå inn i HTML søket subrutine i.
5

Lim inn følgende programkode inn i det nye vinduet. Den øverste subrutine skaper en forbindelse , gjennom " TransferText "-kommandoen , med tabellen i HTML-filen fra trinn en . Den " queryHTML " subrutinen vil kjøre en SQL-spørring på de overførte tabelldata .

Public Sub importHTMLData ( )

Dim tabname As String

tabname = " Movies"

DoCmd.TransferText acLinkHTML , , tabname , "C : \\ movies.html " , -1

End Sub

Public Sub queryHTML ( )

Konst QRY = " qHTML "

Dim dBS Som DAO.Database

Dim RECSET Som DAO.Recordset

Set dBS = CurrentDb

Sett RECSET = dbs.OpenRecordset ( QRY )

Mens Ikke recset.EOF

Debug.Print " Tittel :" & RECSET [title ]

recset.MoveNext

Loop !

recset.Close

dbs.Close

End Sub
6

Klikk noen uttalelse i " importHTMLData " subrutine , og trykk "F5 "for å kjøre subrutine .
7

Trykk" Alt " + " F11 "for å returnere til Access , og klikk deretter navigasjon i panelet piler ( " << " ) to ganger for å oppdatere den i panelet data . Ruten vil nå vise en ny tabell , " Movies ", som den importHTMLData subrutine produsert.
8

Klikk på ikonet for " Movies " tabellen i navigasjonsruten , og klikk deretter på "Create "-menyen , etterfulgt av " Query "-knappen på hovedverktøylinjen .
9

Dobbeltklikk på " Movie " element i "Add table " i dialogboksen , og dra "* " element fra den lille " Movie " vindu mot spørringen første kommando. Denne handlingen skaper en spørring som den andre VBA subrutine du skrev vil bruke til å hente data fra den nye filmer tabellen .
10

Trykk "Ctrl " + "S , " skriv " qHTML " for spørring navn.
11

Trykk " Alt" + "F11 " for å returnere til utviklingsmiljøet . Klikk noen uttalelse i queryHTML subrutine , trykk " F5 " for å kjøre subrutine .
12

Trykk "Ctrl " + "G " for å åpne utviklingsmiljø er " Immediate "-vinduet. Vinduet vil vise resultatet av den queryHTML subrutinen er debug.print uttalelse. At produksjonen inneholder resultatene av queryHTML subrutine henrettelse av qHTML spørringen ( fra trinn 10).