-
Cómo consultar tablas HTML con acceso VBA
-
Visual Basic para Aplicaciones (VBA) es el lenguaje de programación para el programa Access base de datos de Microsoft. VBA puede realizar las mismas funciones disponibles en la interfaz de acceso habitual, incluyendo los datos de consulta de fuentes externas a Access. Un tipo de datos externa es una tabla HTML. Consultar una tabla de este tipo de Access VBA es necesario conectar el documento HTML que contiene la tabla, a continuación, ejecutar una consulta en la tabla. La principal ventaja de la consulta de una tabla HTML desde Access VBA es el tiempo que se ahorra mediante la sustitución de la intervención del usuario de una consulta estándar con la automatización de una consulta basada en VBA.Instrucciones
1 Abrir Bloc de notas y pegar en el siguiente documento en versión HTML. Este documento contiene una pequeña tabla de datos relacionados con las películas. Vas a consultar esta tabla a partir de un programa de VBA de Access:
<HTML>
<Table border = 1>
<Tbody>
<tr>& Lt; th> Título & lt; / th>
& Lt; th> Directora & lt; / th>
& Lt; / tr>
& Lt; tr>
& Lt; td> Excalibur & lt; / td>
& Lt; td> Boorman & lt; / td>
& Lt; / tr>
& Lt; tr>
& Lt; td> Star Wars & lt; / td>
& Lt; td> Lucas & lt; / td>
& Lt; / tr>
</ Tbody>
</ Table>
</ HTML>
2 Pulse la tecla "Control" + "S" y tipo "c: \ movies.html" para el nombre de archivo.
3 El acceso abierto y pulse "Alt" + "F11" para entrar en el entorno de programación para VBA.
4 Haga clic en el comando "Módulo" del menú "Insertar" para crear una nueva ventana para entrar en la consulta subrutina HTML en.
5 Pegue el siguiente código de programa en la nueva ventana. La subrutina superior crea una conexión, a través del comando "TransferirTexto", con la tabla en el archivo HTML desde el paso 1. La subrutina "queryHTML" va a ejecutar una consulta SQL en la tabla de datos transferidos.
Public Sub importHTMLData ()
Dim como secuencia tabName
TABNAME = "Películas"
DoCmd.TransferText acLinkHTML,, tabName, "C: \ movies.html", -1
End Sub
Public Sub queryHTML ()
Const qry = "qHTML"
DBS dévil como DAO.Database
Dim RecSet Como DAO.Recordset
Set dbs = CurrentDb
Establecer RecSet = dbs.OpenRecordset (qry)
Aunque no hacer recset.EOF
Debug.Print "Title: " & recset![title]recset.MoveNext
Lazo
recset.Close
dbs.Close
End Sub
6 Haga clic en cualquier declaración en la subrutina "importHTMLData", a continuación, pulse la tecla "F5" para ejecutar la subrutina.
7 Pulse la tecla "Alt" + "F11" para volver a Access, haga clic en las flechas del panel de navegación ( "<<") dos veces para actualizar los datos del panel. El panel mostrará ahora una nueva tabla, "Películas", que produce la subrutina importHTMLData.
8 Haga clic en el icono de la mesa "Películas" en el panel de navegación, haga clic en el menú "Crear", seguido por el botón "Consulta" en la barra de herramientas principal.
9 Haga doble clic en el elemento "Cine" en el cuadro de diálogo "Agregar tabla", a continuación, arrastre el elemento "*" de la pequeña ventana de "Cine" en primer comando de la cuadrícula de la consulta. Esta acción crea una consulta que la segunda subrutina VBA que escribió utilizará para obtener los datos de la nueva tabla de Películas.
10 Pulse la tecla "Control" + "S", a continuación, escriba "qHTML" para el nombre de la consulta.
11 Pulse la tecla "Alt" + "F11" para volver al entorno de desarrollo. Haga clic en cualquier declaración en la subrutina queryHTML, a continuación, pulse la tecla "F5" para ejecutar la subrutina.
12 Pulse la tecla "Control" + "G" para abrir la ventana "inmediata" del entorno de desarrollo. La ventana mostrará la salida de la instrucción Debug.Print de la subrutina queryHTML. Esa salida contiene los resultados de la ejecución de la subrutina queryHTML de la consulta qHTML (del paso 10).
