Visual Basic for Applications ( VBA ) er det programmeringssprog til Microsofts database program Access. VBA kan udføre de samme funktioner til rådighed i den sædvanlige adgang grænsefladen , herunder forespørge datakilder eksterne til Access . En type af eksterne data er en HTML-tabel . Forespørger sådan tabel fra Access VBA indebærer tilslutning til HTML-dokument , der indeholder tabellen , så kører en forespørgsel på bordet. Den største fordel ved at forespørge en HTML-tabel fra Access VBA er den tid sparet ved at erstatte brugerens indgriben for en standard forespørgsel med automatisering af en VBA -baseret forespørgsel. Ting du skal
Microsoft Access
Vis Flere Instruktioner
1

Åbn Notesblok og indsæt i det følgende prøve HTML-dokument. Dette dokument indeholder en lille tabel med data relateret til film. Du vil søge denne tabel fra en Access VBA -program : Hej

< table
2

Tryk på " Control" + "S" og skrive " c: \\ movies.html " . til filnavnet
3

Open Access og trykke på " Alt" + " F11 " for at indtaste programmeringsmiljø for VBA.
4

Klik på " Indsæt" menuen " Module" kommando til at oprette et nyt vindue for at komme ind i HTML forespørgslen subrutine i.
5

Indsæt følgende program kode i det nye vindue . Den øverste subrutine skaber en forbindelse gennem " TransferText " kommando, med tabellen i HTML-filen fra trin 1. . Den " queryHTML " subrutine vil køre en SQL-forespørgsel på overførte tabeldata .

Public Sub importHTMLData ()

Dim tabnavn As String

tabnavn = "film " < br >

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

End Sub

Public Sub queryHTML ()

Const qry = " qHTML "

Dim dbs Som DAO.Database

Dim recset Som DAO.Recordset

Set dbs = CurrentDb

Set recset = dbs.OpenRecordset ( qry )

Do While Not recset.EOF

Debug.Print " Titel:" & recset [title ]

recset.MoveNext

Loop !

recset.Close

dbs.Close

End Sub
6

Klik enhver erklæring i " importHTMLData " subrutine , tryk derefter på " F5 "for at køre underprogram.
7

Tryk på" Alt " +" F11 " for at vende tilbage til Access , og klik derefter på navigationsruden s pile ( " << "), to gange for at opdatere ruden data. Ruden viser nu en ny tabel , "Movies ", som importHTMLData subrutinen produceret.
8

Klik på ikonet for "Movies "-tabellen i navigationsruden , og klik derefter på "Opret "-menuen , efterfulgt af " Query "-knappen på værktøjslinien .
9

Dobbeltklik på "Film " element i " Add bord" dialogboksen og derefter trække på "*" post fra den lille "Film " vindue til forespørgselsgitteret første kommando. Denne handling opretter en forespørgsel , at den anden VBA subrutine du skrev vil bruge til at hente data fra den nye film bordet.
10

Tryk på " Control" + "S " og derefter skrive " qHTML " til forespørgslen navn.
11

Tryk på " Alt" + " F11 " for at vende tilbage til udviklingsmiljø. Klik enhver erklæring i queryHTML subrutine , derefter trykke på " F5 " for at køre underprogram.
12

Tryk på " Control" + "G " for at åbne udviklingsmiljø er " Immediate " vinduet. Vinduet vil vise produktionen af ​​queryHTML subrutine s Debug.Print erklæring. At produktionen indeholder resultaterne af den queryHTML subrutine henrettelse af qHTML forespørgsel ( fra trin 10).