Ako vyhľadávať HTML tabuľky s VBA Access

Visual Basic for Applications ( VBA ) je programovací jazyk pre databázový program Access Microsoft . VBA môžete vykonávať rovnaké funkcie sú k dispozícii v obvyklých rozhraní Access , vrátane dotazovanie dát zdroja externý prístup . Jeden typ externých dát je tabuľka HTML . Dotazovanie takú tabuľku z programu Access VBA vyžaduje pripojenie k HTML dokumentu , ktorý obsahuje tabuľku , potom sa spustenie dotazu na stole . Hlavnou výhodou dotazovanie tabuľku HTML z aplikácie Access VBA je ušetrený čas nahradením užívateľa zásah štandardného dotazu s automatizáciou dotazu VBA - založené . Veci , ktoré budete potrebovať v Microsoft Access
Zobraziť ďalšie inštrukcie Cestuj 1

Otvoriť Poznámkový blok a vložte do neho nasledujúce ukážkový dokument HTML . Tento dokument obsahuje malú tabuľku údajov týkajúcich sa filmov . Budete dotaz túto tabuľku z programu Access VBA :

< stola
2

Stlačte tlačidlo " Control " + " S " a zadajte "c : \\ movies.html " . k súboru
3

Open Access a stlačte tlačidlo " Alt " + " F11 " pre vstup do programovacieho prostredia VBA .
4

Kliknite na príkaz " Vložiť " menu v " modul " pre vytvorenie novej okno pre zadanie podprogram HTML dotazu palcov
5

Vložte nasledujúci kód programu do nového okna . Horná podprogram vytvára spojenie , pomocou príkazu " PřevéstText " , s tabuľkou v súbore HTML od 1. kroku . " QueryHTML " podprogram spustiť dotaz SQL na prenesených dátach tabuľky .

Public Sub importHTMLData ( )

Dim TABBNAME ako reťazec

TABBNAME = " Filmy "

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

End Sub

Public Sub queryHTML ( )

Const QRY = " qHTML "

Dim dbs Ako DAO.Database

Dim recset Ako DAO.Recordset

Set DBS = CurrentDb

Set recset = dbs.OpenRecordset ( QRY )

robiť , keď nie je recset.EOF

Debug.Print " Názov : " & recset [ title ]

recset.MoveNext

Loop !

recset.Close

dbs.Close

End Sub
6

Kliknite na ľubovoľný príkaz v " importHTMLData " podprogram , potom stlačte " F5 " spustiť podprogram .
7

Stlačte tlačidlo " Alt " + " F11 " sa vrátite do programu Access , kliknite na tlačidlo šípky na navigačnej table v ( " << " ) , dvakrát na aktualizáciu dát v table je . Panel sa teraz zobrazí novú tabuľku , " Filmy " , ktoré podprogram importHTMLData vyrobené .
8

Kliknite na ikonu " Filmy " tabuľky v navigačnej table , kliknite na ponuku " Vytvoriť " , nasleduje tlačidlo " Query " na hlavnom paneli .
9

Double - kliknite na " film " položku v dialógovom okne " Pridať tabuľku " , potom pretiahnite " * " položky z malej okno " Movie " na prvý príkaz mriežky dotazu je . Táto akcia vytvorí dotaz , ktorý druhý VBA podprogram ste napísal bude používať načítavať dáta z novej tabuľky filmy .
10

Stlačením tlačidla " Control " + " S " , zadajte " qHTML " pre dotaz je názov .
11

Stlačte tlačidlo " Alt " + " F11 " sa vrátite do vývojového prostredia . Kliknite na ľubovoľný príkaz v podprograme queryHTML , potom stlačte " F5 " spustiť podprogram .
12

Stlačte tlačidlo " Control " + " G " sa otvorí okno vývojového prostredia je " bezprostredná " . V okne sa zobrazí výstup Debug.Print vyhlásenie queryHTML podprogramu je . Že výstup obsahuje výsledky plnenia na queryHTML podprogramu v dotaze qHTML ( z kroku 10 ) .

• Predchádzajúca strana: Ako používať formulár MDI VB 
• Ďalšia strana: Ako získať prístup VB výberový dotaz