Share on facebook
Share on twitter
Share on linkedin
Share on whatsapp
Share on email
Share on print
Exportar Tabla de Access a Excel con VBA, Aplicaciones Excel

Exportar una consulta o una tabla de Access a Excel con VBA

    1. Con este código puedes exportar una consulta de Access a Excel con 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

Descargar…

Share on facebook
Share on google
Share on twitter
Share on linkedin
Share on whatsapp

Posts Relacionados

0 Comments

No Comment.