Visual Basic for Applications ( VBA ) är det programmeringsspråk för Microsofts databasprogram Access. VBA kan utföra samma funktioner som finns i den vanliga Access- gränssnittet , inklusive fråge datakällor utanför Access. En typ av externa data är en HTML-tabell . Ställa frågor till en sådan tabell från Access VBA måste man ansluta till HTML-dokumentet som innehåller tabellen , sedan kör en fråga på bordet . Den största fördelen med att fråga en HTML-tabell från Access VBA är den tid som sparas genom att ersätta användaren för en vanlig sökning med automatisering av ett VBA - baserade query . Saker du behöver
Microsoft Access
Visa fler instruktioner
1
Öppna Anteckningar och klistra in den följande exempel på HTML -dokument. Detta dokument innehåller en liten tabell med uppgifter om filmer . Du ska söka denna tabell från en Access VBA -program :
< table Sida 2
Tryck "Control " + " S " och typ " c : \\ movies.html " . efter filnamnet
3
Open Access och tryck på " Alt " + " F11 " för att komma in i programmeringsmiljö för VBA .
4
Klicka på " Infoga " -menyn är " Module " -kommandot för att skapa ett nytt fönster för att komma in i HTML- query subrutinen i.
5
Klistra in följande programkod i det nya fönstret . Den översta subrutin skapar en förbindelse , genom " TransferText " kommandot , med tabellen i HTML-filen från steg 1 . Den " queryHTML " subrutin körs en SQL-fråga på de överförda tabelldata .
Public Sub importHTMLData ( ) katalog
Dim tabName As String
tabName = "Filmer "
DoCmd.TransferText acLinkHTML , , tabName , "C: \\ movies.html " , -1
End Sub
Public Sub queryHTML ( ) katalog
Const qry = " qHTML "
Dim dbs Som DAO.Database
Dim recset Som DAO.Recordset
Set dbs = CurrentDb
Set recset = dbs.OpenRecordset ( qry ) katalog
Do While Not recset.EOF
Debug.Print " Titel : " & recset [ titel ]
recset.MoveNext
Loop !
recset.Close
dbs.Close
End Sub
6
Klicka något uttalande i " importHTMLData " subrutin , tryck " F5 " att köra subrutinen .
7
Tryck " Alt " + " F11 " för att återvända till Access , klicka navigeringsfönstret pilar ( " << " ) två gånger för att uppdatera rutan data . Rutan nu kommer att visa en ny tabell , " Filmer ", vilket importHTMLData subrutinen produceras .
8
Klicka på ikonen för " Movies " tabellen i navigeringsfönstret , klicka på " Skapa " -menyn , följt av " Query " -knappen på verktygsfältet .
9
Dubbelklicka på " Movie " post i " Lägg till tabell " dialogrutan , dra sedan " * " posten från den lilla " Film " fönster mot frågerutnätet första kommandot . Denna åtgärd skapar en fråga som den andra VBA subrutinen du skrev kommer att använda för att hämta data från den nya filmer tabellen .
10
Tryck "Control " + " S ", skriv sedan " qHTML " för frågans namn .
11
Tryck "Alt " + " F11 " för att återgå till utvecklingsmiljö. Klicka på något uttalande i queryHTML subrutinen , tryck " F5 " för att köra subrutinen .
12
Tryck "Control " + " G " för att öppna utvecklingsmiljön s " Omedelbar " fönstret . Fönstret visar utsignalen från queryHTML subrutin s Debug.Print uttalande . Denna utgång innehåller resultaten av queryHTML subrutinen avrättning av qHTML förfrågan ( från steg 10 ) .
