Access - Exportar informe

Private Sub btnExportarAExcel_Click()

    On Error GoTo ErrorHandler

    ' Nombre del informe que deseas exportar

    Dim nombreInforme As String

    nombreInforme = "NombreDelInforme"

    ' Ruta de destino para el archivo Excel

    Dim rutaDestino As String

    rutaDestino = "C:\Ruta\Archivo.xlsx"

    ' Exportar el informe a Excel

    DoCmd.OutputTo acOutputReport, nombreInforme, acFormatXLSX, rutaDestino

    ' Mensaje de éxito

    MsgBox "Informe exportado exitosamente a Excel.", vbInformation

    Exit Sub

ErrorHandler:

    MsgBox "Error al exportar el informe a Excel: " & Err.Description, vbExclamation

End Sub