por Hola a todos:
Aunque esta web está dedicada básicamente a Excel, hoy voy a trabajar un poco con Access. En muchas ocasiones, cuando combinamos ambos programas (Excel y Access) obtenemos grandes resultados. El tema de hoy trata precisamente de cómo podemos realizar un pequeño proceso en ADO para exportar una tabla o consulta que tenemos en Access (desde Access).
Sobre ADO hay bastantes ejemplos en esta web, pero en ninguno de ellos programo directamente en Access, hoy lo voy a hacer.
Utilizaremos un ejemplo simple, para ello tenemos una tabla en Access con los datos de los empleados de unos grandes almacenes (la base de datos que siempre pongo de ejemplo):
Esta tabla se denomina DATOS y nuestra intención es exportarla a Excel. Para ello vamos a utilizar la siguiente macro que pegaremos en el editor de VBA de Access:
Option Compare Database
Sub ExporExcel()
Dim APIExcel As Object
Dim AddLibro As Object
Dim AddHoja As Object
Dim nombreHoja As String
Dim i As Integer
Dim consulta As New ADODB.Recordset
'Creamos conexión y recorset
Set cnn = CurrentProject.Connection
consulta.Open "SELECT * FROM DATOS", cnn, adOpenForwardOnly, adLockReadOnly
'Damos nombre a la hoja con la que vamos a exportar los datos
nombreHoja = "DATOS"
'Creamos objeto excel y nuevo libro y no mostramos el archivo
Set APIExcel = CreateObject("Excel.Application")
Set AddLibro = APIExcel.Workbooks.Add
APIExcel.Visible = False
'Añadimos hoja al libro nuevo y nombramos pestaña
Set AddHoja = AddLibro.Worksheets(1)
If Len(nombreHoja) > 0 Then AddHoja.Name = Left(nombreHoja, 30)
'Traemos los datos de cabecera de la tabla Access y los pegamos en la hoja excel
columnas = consulta.Fields.Count
For i = 0 To columnas - 1
APIExcel.Cells(1, i + 1) = consulta.Fields(i).Name
Next i
'Pegamos los datos de la tabla en la nueva hoja
consulta.MoveFirst
AddHoja.Range("A2").CopyFromRecordset consulta
'Damos formato a las columnas, ajustando contenidos
With APIExcel.ActiveSheet.Cells
.Select
.EntireColumn.AutoFit
.Range("A1").Select
End With
'Mostramos la hoja
APIExcel.Visible = True
'cerramos los objetos de la consulta
consulta.Close
cnn.Close
End Sub
Antes de finalizar, os recuerdo la necesidad de marcar en las referencias la librería de ADO Activex Data Objects 2.8 Library, es importante que lo hagáis, de lo contrario, la macro no va a funcionar.
Y ahora que tenemos la macro lista, podemos ejecutarla y veremos como la macro, crea un archivo Excel y pasa los datos de la consulta a una pestaña que va a renombrar con el nombre de DATOS.
En la propia macro ya os voy comentando qué es lo que hace cada línea de código, así que no quiero ser repetitivo, pero es interensate el uso de "CurrentProject.Connection" dado que nos ahorra todo el trabajo de definir la conexión.
El resultado de la macro es el siguiente:
Y esto ha sido todo, espero que os resulte de interés y de utilidad 🙂
Os dejo el arhcivo en Google Drive (en WordPress no es posible subir archivos de Access).
Descarga el archivo de ejemplo pulsando en: EXPORTAR UNA TABLA O CONSULTA DE ACCESS A EXCEL CON ADO
Excelente muy muy bueno
Excelente!!!!!!
Explicación Magistral
Una pregunta: ¿Cómo guardas el archivo excel?
Hola Luis.
Me alegro que te guste. Para guardar no hay nada programado, lo guarda el usuario manualmente. Pero se podría programar el guardado.
Saludos.
Si Gracias Segundo, lo que hice fue esto:
APIExcel.Application.ActiveWorkbook.SaveAs FileName:=Directorio & Archivo
Hola.
Necesito exportar una consulta que tiene mas de 2 millones de registros, exportar en formato txt pero se me queda muy lento el access y tengo que esperar y esperar....
otra solucion porfis, q no sea sql porque no tengo.
Hola Alicia:
No tengo ninguna macro preparada para exportar una consulta a TXT. Pero es interesante y crearé un post sobre este tema. Qué tipo de TXT necesitas generar, ancho fijo o delimitado?.
Espero tu respuesta. Saludos.
Para eso, es mejor exportar con filtro si trabajas con fechas en especifico, puedes agrupar valores y exportar por meses
Como se puede hacer una exportacion y poner las cabeceras que uno requiera si los datos estan en forma horizontal , ponerlos vertical
Hola Daniel:
Envíame un ejemplo de lo que necesitas. Cómo tienes los datos y cómo te gustaría mostrarlos, así podré ayudarte.
Saludos!
me sale error de compilacion por esto -> Dim consulta As New ADODB.Recordset
Ese error es porque la referencia no existe en la biblioteca o no está marcada. Verifica que la tienes activada en la biblioteca de referencias (como indico en el post) o verifica que no la tienes instalada. Saludos.
Hola, a ver si puede ayudarme, tengo una consulta realizada ha través del diseño de consultas, aún estoy un poco verde para hacerlo en código, donde usted pone
'Creamos conexión y recorset
Set cnn = CurrentProject.Connection
consulta.Open "SELECT * FROM DATOS", cnn, adOpenForwardOnly, adLockReadOnly
Yo he puesto lo siguiente
'Creamos conexión y recorset
Set cnn = CurrentProject.Connection
consulta.Open "SELECT * FROM MiConsulta", cnn, adOpenForwardOnly, adLockReadOnly
Y me da el error '-2147217904(80040e10)' en tiempo de ejecución
No se ha especificado valores para alguno de los parámetros requeridos
Si pongo el nombre de una tabla si me sale correctamente, pero lo quiero a través de la consulta porque filtro un campo entre dos fechas.
Si puede ayudarme se lo agradeceria.
Hola Ricardo:
Tienes la consulta abierta cuando ejecutas el código?, es probable que ese sea el problema. Saludos
Hola
Muchas gracias por el post.
Tengo el mismo problema de Ricardo, y no tengo la consulta abierta. Por qué más puede ser?
Lo he hecho de otra manera y he conseguido exportar los datos que quiero.
Ahora mi problema es que tengo unos datos en formato hora que los exporta en formato fecha. Hay alguna forma de copiar los datos con formato determinado?
Muchas gracias! Un saludo
Tendrías que modificar el formato en la consulta SQL, modificándola y realizando ahí los cambios.
Saludos
Hola, una consulta, para el caso que vengo desarrollando, la consulta que debo exportar depende de un par de filtros. Ambas consultas arrojan los resultados adecuados en un listbox. Sin embargo, cuando ejecuto el código que usted comparte, los resultados de una se exporta sin ningún problema a la hoja de excel, pero en la otra me arroja el siguiente error: "Se ha producido el error '3201' en tiempo de ejecución. El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual." Este error se produce al ejecutarse la instrucción consulta.MoveLast.
La consulta que genera el error es la siguiente:
SELECT * FROM vMovimientosDetalle WHERE NOMBRE LIKE '*bcd*' AND IdOp = 1 AND Fecha BETWEEN #01/01/2020# And #09/28/2020#
Con la siguiente consulta el código funciona bien
SELECT * FROM vMovimientosDetalle WHERE idOp = 1 AND Fecha BETWEEN #01/01/2020# And #09/28/2020#
Alguna idea de qué puede estar saliendo mal?
Muchas gracias por compartir sus conocimientos y por el tiempo que le dedica.
Hola Kike: Tendría que ver el código o un ejemplo del error. Pero podrías probar a borrar la línea:
consulta.MoveFirst
Y ejecutar solo la consulta. Saludos.
Hola me encanto pero una pregunta yo quiero importar desde un excel y no exportar desde un access como podria ser ?
Hola Ernesto,
Tienes varios ejemplos de post en esta web, utilizar el buscador para consultar.
Saludos.