none
Exportar reporte crystal reports a excel RRS feed

  • Pregunta

  • Estoy intentando exportar un reporte de crystal reports a excel, logre hacerlo con pdf y doc, pero al querer exportar a excel me dice manda el error  "No se puede crear el reporte" estoy utilizando este codigo

    Call SetParametros(ReporteCrystal)   

    Select Case UCase(cmbTipo.Text)       

    Case "PDF"       

    ReporteCrystal.ExportOptions.FormatType = crEFTPortableDocFormat       

    auxExtension = ".pdf"   

    Case "MSWORD"       

    ReporteCrystal.ExportOptions.FormatType = crEFTWordForWindows       

    auxExtension = ".doc"   

    Case "MSEXCEL"       

    ReporteCrystal.ExportOptions.FormatType = crEFTExcel97       

    auxExtension = ".xls"   

    Case "TEXT"       

    ReporteCrystal.ExportOptions.FormatType = crEFTTabSeparatedText       

    auxExtension = ".txt"    Case "MSEXCEL(SIN FORMATO)"       

    ReporteCrystal.ExportOptions.FormatType = crEFTExcelDataOnly       

    auxExtension = ".xls"   

    End Select       

    If Trim(StrNombreRealDelArchivo) <> "" Then      strNombreDelReporte = StrNombreRealDelArchivo 

     End If             auxResult = Dir$(crEDTDiskFile & "\", vbDirectory)    

     '******************************************************************************   

    'SE COMENTO PORQUE NO PERMITIA ELEGIR EL FORMATO DE EXCEL CORRECTO   'Y NOS ARROJABA UN ERROR CUANDO LO EXPORTABAS   

    If UCase(cmbDestino.Text) = "DISCO" Then     

    cd1.DialogTitle = "Seleccione la ubicacion del archivo"     

    cd1.CancelError = True     

    cd1.Filter = Replace(auxExtension, ".", "") & "|*" & auxExtension     

    'CD1.Filter = strNombreDelReporte     

    cd1.filename = strNombreDelReporte     

    cd1.InitDir = crEDTDiskFile    

    cd1.ShowSave     

    auxDestino = cd1.filename   

       Else   

    auxDestino = crEDTDiskFile & "\" & strNombreDelReporte & auxExtension   

     End If   

    '******************************************************************************'   

    auxDestino = strMAILFolderContenedorDeDocumentos & "\" & strNombreDelReporte & auxExtension      

    If auxDestino = "" Then

    Exit Sub   

    ReporteCrystal.ExportOptions.DiskFileName = auxDestino   

    ReporteCrystal.ExportOptions.DestinationType = crEDTDiskFile      

    '******************************************************************************   

    'SE COMENTO PORQUE NO PERMITIA ELEGIR EL FORMATO DE EXCEL CORRECTO   'Y NOS ARROJABA UN ERROR CUANDO LO EXPORTABAS   

    ReporteCrystal.Export False   '******************************************************************************      

    '--con este codigo se permite exportar el reporte de crystal a excel con el formato del reporte   

    'ReporteCrystal.Export True      If UCase(cmbDestino.Text) = "CORREO" Then       

    If strMAILDirigidoA = "" Then MsgBox "No existe correo destino", vbInformation, strSist: Exit Sub       

    'Call EnviarAOutlookExpress(strMAILFolderContenedorDeDocumentos & "\" & strNombreDelReporte & auxExtension, strMAILDirigidoA, strMAILCuerpo, strMAILTema)       

    ReDim arrMAILadjuntos(0)  '= strMAILFolderContenedorDeDocumentos & "\" & strNombreDelReporte & auxExtension       

    arrMAILadjuntos(0) = strMAILFolderContenedorDeDocumentos & "\" & strNombreDelReporte & auxExtension       

    frmEnviarCorreo.Show 1   End If            MsgBox "El reporte fue enviado", vbInformation, strSist      

    Unload Me      On Error GoTo 0   Exit SubcmdExportar_Click_Error:    MsgBox "Ocurrio un error no se envio el reporte", vbInformation, strSist    End Sub


    lunes, 16 de diciembre de 2019 19:54

Todas las respuestas

  • Hola:

    EL propio Crystal Reports te permite exportar a Excel sin ningún problema, el lo hace automáticamente.

    Cuando ves el informe por pantalla, hay al lado de la impresora un sobre que te permite la exportación a diversos formatos, entre ellos Excel.

    Un saludo.

    Gemma

    martes, 17 de diciembre de 2019 8:13
  • Primero que nada muchas gracias por responder tan rapido :)

    Asi es, ese es el que utilizo pero al intentar exportarlo a excel me dice que no se pudo generar el reporte... es algo raro.

    miércoles, 18 de diciembre de 2019 1:02