Exportar a Excel un formulario continuo filtrado de Access

Escrito por Administrador

16 de agosto de 2023

A raíz de la pregunta de un usuario sobre cómo exportar a Excel un formulario continuo filtrado, he creado el siguiente ejemplo a partir del archivo del post donde enseñaba a filtrar un formulario usando múltiples campos.

Simplemente he añadido el botón "Excel" para realizar la exportación, tal y como os muestro en la figura.

saber-usuarios-conectados-base-datos
El código asociado es el siguiente,
Sub Exportar_Click()

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim rsDatos As DAO.Recordset

'Abrimos Excel

Set xlApp = New Excel.Application

'Creamos un libro

Set xlBook = xlApp.Workbooks.Add

'Creamos una hoja

Set xlSheet = xlBook.Worksheets("Hoja1")

'Si hemos filtrado, obtenemos los datos del recordset

If FilterOn = True Then

Set rsDatos = CurrentDb.OpenRecordset("SELECT * FROM Tabla WHERE " & Form_Formulario.Filter)

'En caso contrario, la tabla entera

Else

Set rsDatos = CurrentDb.OpenRecordset("SELECT * FROM Tabla")

End If

'Exportamos los datos a Excel

xlSheet.Range("A1").CopyFromRecordset rsDatos

'Cerramos el recordset

rsDatos.Close

'Cerramos el libro y la aplicación

xlBook.Close savechanges:=True
xlApp.Quit

'Reseteamos los objetos

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

End Sub

Si no filtramos por ninguno de los campos y pulsamos el botón "Excel", se abrirá un archivo con todos los registros de la tabla,
saber-usuarios-conectados-base-datos
En cambio, si ahora filtramos por productos de "China", al exportar solo tendremos los registros filtrados en nuestra hoja Excel.
saber-usuarios-conectados-base-datos
saber-usuarios-conectados-base-datos
Espero que con este ejemplo hayas aprendido a exportar a Excel un formulario continuo filtrado usando VBA. Descárgate el archivo de ejemplo y practica.

Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.

Hasta la próxima.

Si te ha servido y quieres donar

Descarga el archivo del ejemplo

0 comentarios

Enviar un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Últimas publicaciones

Categorías

febrero 2024
LMXJVSD
 1234
567891011
12131415161718
19202122232425
26272829 

Debates en el foro

Avatar
Access en una sola ventana
Avatar
Versiones frontend

Contacto