Access - exportar desde Access a Excel

Sub ExportarConsultaExcel()

    Dim xlApp As Object

    Dim xlBook As Object

    Dim xlSheet As Object

    Dim rs As DAO.Recordset

    Dim consulta As String

    Dim nombreRango As String

    Dim fila As Integer

    ' Crea una instancia de Excel

    Set xlApp = CreateObject("Excel.Application")

    xlApp.Visible = True

    ' Crea un nuevo libro de Excel

    Set xlBook = xlApp.Workbooks.Add

    ' Abre la consulta en un recordset

    consulta = "SELECT * FROM NombreDeTuConsulta"

    Set rs = CurrentDb.OpenRecordset(consulta)

    ' Agrega una nueva hoja de Excel

    Set xlSheet = xlBook.Sheets.Add

    ' Exporta los datos de la consulta a Excel

    xlSheet.Range("A1").CopyFromRecordset rs

    ' Definir nombres de rango en Excel

    fila = 2 ' Fila de inicio de datos

    Do Until rs.EOF

        nombreRango = "Rango" & rs.Fields("Campo1").Value ' Cambia "Campo1" por el campo que corresponda

        xlBook.Names.Add Name:=nombreRango, RefersToR1C1:="=" & xlSheet.Name & "!R" & fila

        rs.MoveNext

        fila = fila + 1

    Loop

    ' Cierra el recordset

    rs.Close

    ' Libera memoria

    Set rs = Nothing

    ' Guarda el libro de Excel

    xlBook.SaveAs "Ruta\Archivo.xlsx" ' Cambia "Ruta\Archivo.xlsx" por la ruta y nombre de archivo que desees

    ' Cierra el libro de Excel

    xlBook.Close

    ' Cierra la aplicación de Excel

    xlApp.Quit

    ' Libera memoria

    Set xlSheet = Nothing

    Set xlBook = Nothing

    Set xlApp = Nothing

End Sub