Access - Boton para exportar a Excel

Consulta = "" & Me.TXTCampo & " Like '*" & Me.TXTBusqueda & "*' "

Me.SubformRechazos.Form.Filter = Consulta

Me.SubformRechazos.Form.FilterOn = True

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