Access - Exportar datos de Access a Excel

'   La siguiente linea a veces falla

Const cVersionExcel As Byte = acSpreadsheetTypeExcel12Xml    ' << Excel 2007

Access.Application.DoCmd.TransferSpreadsheet acExport, cVersionExcel, cTablaAccess, strRutaDestinoDatos, cNombresCampos

' Es mejor esta

Access.Application.DoCmd.OutputTo acOutputTable, cTablaAccess, acFormatXLS, strRutaDestinoDatos

Private Sub Command0_Click()

    Access.Application.DoCmd.OutputTo acOutputTable, "PonNombredetuBase", acFormatXLS, "PonTuRutaDestinoExcel"

End Sub

Option Compare Database

Private Sub Comando7_Click()

Access.Application.DoCmd.OutputTo acOutputTable, "Datos", acFormatXLS, "C:\Users\WAraníbar\Documents\Access"

End Sub

Public Function funExportaTablaExcel() As Boolean

    On Error GoTo Err_Local

    Dim strTablaOrigen As String

    Dim strRutaDestinoExcel As String

    Rem Cambia aqui los valores correspondientes

    strTablaOrigen = "Pon aqui el nombre de la tabla"

    strRutaDestinoExcel = "Pon aqui la ruta y el fichero EXCEL"

    Access.Application.DoCmd.OutputTo acOutputTable, strTablaOrigen, acFormatXLS, strRutaDestinoExcel

    funExportaTablaExcel = True

Exit_Local:

    On Error GoTo 0

    Exit Function

Err_Local:

    funExportaTablaExcel = False

    Select Case Err.Number

        Case 2501  ' << Se ha cancelado No hacer nada.

        Case Else

            Rem Capturar todos aquellos errores inesperados.

            MsgBox Err.Description, vbCritical, "Error N°:  " & Err.Number

    End Select

    Resume Exit_Local

End Function

If funExportaTablaExcel = True Then

    MsgBox "Bien", vbInformation

Else

    MsgBox "Mal", vbExclamation

End If