Visual Basic para Aplicaciones ( VBA ) es el lenguaje de programación de base de datos de programa de acceso de Microsoft . VBA puede realizar las mismas funciones disponibles en la interfaz de acceso habitual , incluyendo la consulta de fuentes externas de acceso a datos. Un tipo de datos externos es una tabla HTML. Consultando una tabla de Access VBA consiste en conectar al documento HTML que contiene la tabla , a continuación, ejecutar una consulta en la tabla . La principal ventaja de consultar una tabla HTML desde Access VBA es el tiempo ahorrado 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 . Cosas que necesitará
Bloc de notas abierto y pegar en ella el siguiente documento HTML muestra. Este documento contiene una pequeña tabla de datos relacionados con las películas . Vas a consultar esta tabla desde un programa VBA acceso:
Press "Control" + " S " y escriba " c: \\ movies.html ." para el nombre de archivo
3 Open Access y pulsa "Alt " + "F11 " para entrar en el entorno de programación de VBA.
4
clic comando " Módulo " del menú " Insertar" para crear una nueva ventana para entrar en la rutina de consulta HTML pulg
5
Pega 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 . El subprograma " queryHTML " se ejecutará una consulta SQL en la tabla de datos transferidos.
Public Sub importHTMLData ()
tabName dévil como secuencia
tabName = "Películas " < br >
DoCmd.TransferText acLinkHTML , tabName , "C : \\ movies.html " , -1
End Sub
Public Sub queryHTML ()
Const qry = " qHTML "
Dim dbs Como DAO.Database
recset As DAO.Recordset
Set dbs = CurrentDb
Set recset = dbs.OpenRecordset ( qry )
Do While Not recset.EOF
Debug.Print " título" y recset [ título ]
recset.MoveNext
Loop !
recset.Close
dbs.Close
End Sub
6
Haga clic en cualquier declaración en el subprograma " importHTMLData ", luego presione "F5 "para ejecutar la subrutina.
7
Pulse" Alt "+ " F11 "para volver a Access , a continuación, 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 la subrutina importHTMLData producido .
8
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 "Buscar " en la barra de herramientas principal.
9
doble clic en el tema "Cine" en el cuadro de diálogo "Agregar tabla" , a continuación, arrastre el elemento "* " de la pequeña ventana " Movie " en primer comando de la cuadrícula de la consulta . Esta acción crea una consulta que la segunda subrutina VBA que escribiste utilizará para obtener los datos de la nueva tabla de Películas .
10
Press "Control" + " S ", a continuación, escriba " qHTML " para la consulta de nombre.
11
Pulse " Alt " + "F11 " para volver al entorno de desarrollo . Haga clic en cualquier declaración en el subprograma queryHTML , a continuación, pulse la tecla "F5 " para ejecutar la subrutina.
12
Press "Control" + " G" para abrir la ventana " inmediata " del entorno de desarrollo. La ventana mostrará la salida de la instrucción Debug.Print del subprograma queryHTML . Esa salida contiene los resultados de la ejecución del subprograma queryHTML de la consulta qHTML (del paso 10 ) .
