Exportar Consulta o Tabla Access a Excel con VBA

Exportar Consulta o Tabla Access a Excel VBA

Exportar Consulta o Tabla Access a Excel VBA, nos permitirá analizar mejor los datos.

Exportar consulta o tabla Access a Excel VBA nos puede ayudar a obtener con Excel grandes reportes utilizando nuevas herrmaientas como Power BI, Power Query y Power Pivot

    1. Con este código puedes exportar consulta de Access a Excel  VBA.
    2. Crea la consulta que desees exportar a Excel en Access.
    3. Copia el siguiente código.
    4. Pega a un botón en su código VBA y te debe exportar el resultado de tu consulta a un nuevo libro de Excel.
Option Compare Database

Public Sub Exportar_Query()
'Declaramos la variable ruta
Dim Ruta As String

'Asignamos la ruta de Access a la variable Ruta
Ruta = Application.CurrentProject.Path

'Aplicamos el método Output de Access:
'1- ObjectType: Se asigna acOutputQuery para exportar la consulta
'2- ObjectName: Cambiar "qry_clientes" por el nombre de la consulta
'3- OutputFormat: acFormatXLSX para archivos con más de un millón de filas, si se agrega este formato se debe colocar la extensión XLSX
'4- Outputfile:  Al archivo de salida, se agrega la variable + el nombre + extensión XLSX para archivos de más de un millón de filas.
DoCmd.OutputTo ObjectType:=acOutputQuery, ObjectName:="qry_clientes", OutputFormat:=acFormatXLSX, Outputfile:=Ruta & "\Exportar_Consulta.xlsx"
  
  MsgBox "El archivo se ha creado.", vbInformation, "Exportar Consulta"
End Sub

Enlaces de intrés

Método Output Access: OutputTo

Tipo de Objeto Access a exportar: ObjectType

Tipos de Hojas de Excel VBA Access: SpreadSheetType

Conexión a MySQL con Excel o Access mediante ADO

Exportar Consulta o Tabla Access a Excel VBA
Exportar Consulta o Tabla Access a Excel VBA

Descargar…

[wpdm_package id=’5055′]

Posts Relacionados