Código VBA para Ejecutar Consulta Access (con Imagen)
¿De qué se trata?
Este código VBA le ayuda a ejecutar el Acceda a desde cualquiera de las herramientas compatibles con VBA, como MS Excel, Word, etc.
¿Por qué?
Puedes evitar el proceso de abrir la BD y ejecutar la consulta manualmente; este código se ejecutará incluso desde un Excel hoja sin abrir el Acceso BD manualmente.
Si utiliza la función Importar Acceder a los resultados de la consulta código discutido en el post anterior que incluso obtener los resultados de la consulta a Excel, todo en un solo clic.
Código VBA para importar datos de tabla/consulta de Access a Excel
Cómo utilizar código VBA para ejecutar una consulta de Access
(adsbygoogle = ventana.adsbygoogle || []).push({});
Paso 1: Copie y pegue el siguiente código en su módulo.
Dim myDB As Database
Set myDB = OpenDatabase("C:\MYDATABASE.mdb") Mencione la ruta de la base de datos y sustituya "MYDATABASE" por el nombre de su base de datos Access.
myDB.Execute "myQuery" Sustituye 'miConsulta por el nombre de tu consulta Access
myDB.close Utilice esta opción sólo si desea cerrar DB
Set myDB = OpenDatabase("C:\MYDATABASE.mdb") Mencione la ruta de la base de datos y sustituya "MYDATABASE" por el nombre de su base de datos Access.
myDB.Execute "myQuery" Sustituye 'miConsulta por el nombre de tu consulta Access
myDB.close Utilice esta opción sólo si desea cerrar DB
Paso 2: Pulse el botón Ejecutar o F5 para Ejecutar la consulta de Access.