Come interrogare le tabelle HTML con VBA Accesso

Visual Basic, Applications Edition (VBA) è il linguaggio di programmazione per il programma di database di Access di Microsoft. VBA in grado di eseguire le stesse funzioni disponibili nell'interfaccia di accesso al solito , tra cui l'esecuzione di query origini dati esterne ad Access. Un tipo di dati esterni è una tabella HTML . Esecuzione di query su un tavolo da Access VBA comporta il collegamento al documento HTML contenente la tabella , quindi esegue una query sul tavolo. Il vantaggio principale di interrogare una tabella HTML da Access VBA è il tempo risparmiato sostituendo l' intervento dell'utente di una query standard con l' automazione di una query VBA - based. Cose che ti serviranno
Microsoft Access
Show More Istruzioni
1

Aprire il blocco note e incollare in esso il seguente documento HTML di esempio . Questo documento contiene una piccola tabella dei dati relativi ai filmati. Potrai interrogare questa tabella da un programma VBA di accesso:

< table
2

Premere " Controllo" + " S " e di tipo "c : \\ movies.html ." per il nome del file
3

Open Access e premere il tasto "Alt" + " F11 " per accedere all'ambiente di programmazione per VBA .
4

Clicca comando " Module" del menu "Inserisci" per creare una nuova finestra per entrare nella subroutine di query HTML dentro
5

Incollare il seguente codice di programma nella nuova finestra . La subroutine superiore crea una connessione , tramite il comando " TrasferisciTesto " , con la tabella nel file HTML dal punto 1. Il sottoprogramma " queryHTML " verrà eseguito una query SQL sui dati della tabella trasferiti.

Public Sub importHTMLData ( ) per

Dim tabname As String

tabname = " Movies "

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

End Sub

Public Sub queryHTML ( ) per

Const qry = " qHTML "

Dim dbs Come DAO.Database

Dim recset Come DAO.Recordset

Set dbs = CurrentDb

recset = dbs.OpenRecordset ( qry ) per

Do While Not recset.EOF

Debug.Print " titolo:" & recset [ titolo ]

recset.MoveNext

loop !

recset.Close

dbs.Close

End Sub
6

Clicca dichiarazioni nel sottoprogramma " importHTMLData " , quindi premere " F5 "per eseguire la subroutine .
7

Premere" Alt " + " F11 "per tornare ad Access , quindi fare clic sulle frecce del riquadro di spostamento ( " << " ) due volte per aggiornare i dati del riquadro . Il riquadro visualizza ora una nuova tabella , " Film ", che la subroutine importHTMLData prodotto .
8

Fare clic sull'icona per il " Film " tabella nel riquadro di spostamento , quindi fare clic sul menu "Crea " , vendita, acquisto 9

doppio clic sulla voce " film" nella finestra di dialogo " tavola Aggiungi" , quindi trascinare la voce " * " seguito dal pulsante "Query" nella barra degli strumenti principale. dal piccolo finestra " Movie " sul primo comando della griglia della query . Questa azione crea una query che la seconda subroutine VBA hai scritto userà per andare a prendere i dati dalla nuova tabella Movies .
10

Premere " Controllo" + " S ", quindi digitare " qHTML " per la query di nome.
11

Premi "Alt" + " F11 " per tornare all'ambiente di sviluppo . Fare clic su qualsiasi dichiarazione nella subroutine queryHTML , quindi premere il tasto " F5 " per eseguire la subroutine .
12

Premere " Controllo" + " G" per aprire la finestra " Immediate" dell'ambiente di sviluppo . La finestra visualizza l'output di istruzione Debug.Print della subroutine queryHTML . Quella di output contiene i risultati dell'esecuzione del sottoprogramma queryHTML della query qHTML ( dal punto 10) .

• Come utilizzare un form MDI in VB 
• Come accedere VB Query di selezione