Export Crystal to excel

Question

I have written the following code for windows application to export crystal report to excel. When I run this code, I get the following error :
Error in File Item_Master {104SW232-6fwe-4ber....}.rpt: Invalid export DLL or export format.
I can export to any other format except excel. I am using VS2005 windows app with Crystal reports 2008.
Following is my code :
            Dim rptExcel As New ReportDocument
            Dim strExportFile As String = "C:\RT_Interface\RT_Interface\test.xls"
            rptExcel.Load("C:\RT_Interface\RT_Interface\Item_Master.rpt")
            rptExcel.ExportOptions.ExportDestinationType = ExportDestinationType.DiskFile
            rptExcel.ExportOptions.ExportFormatType = ExportFormatType.Excel
            Dim objExcelOptions As ExcelFormatOptions = New ExcelFormatOptions
            objExcelOptions.ExcelUseConstantColumnWidth = False
            rptExcel.ExportOptions.FormatOptions = objExcelOptions
            Dim objOptions As DiskFileDestinationOptions = New DiskFileDestinationOptions
            objOptions.DiskFileName = strExportFile
            rptExcel.ExportOptions.DestinationOptions = objOptions
            Dim crLogin As New ApplyCRLogin
            crLogin.c_dbName = rptExcel.DataSourceConnections.Item(0).DatabaseName
            crLogin.c_serverName = rptExcel.DataSourceConnections.Item(0).ServerName
            crLogin.c_userID = "user1"
            crLogin.c_passWord = "pw!2wer"
            crLogin.ApplyInfo(rptExcel)
            rptExcel.Export()
            objOptions = Nothing
            rptExcel = Nothing
Edited by: Don Perera on Feb 15, 2011 5:47 PM
Edited by: Don Perera on Feb 15, 2011 5:48 PM

Answer 1

Yes I can export with CR designer. Following is the login code. If I assign the report to crystal report viewer control, the report get displayed. So nothing wrong with the login code.
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports Microsoft.VisualBasic
Public Class ApplyCRLogin
    Public c_dbName As String
    Public c_serverName As String
    Public c_userID As String
    Public c_passWord As String
    Public c_integratedSecurity As Boolean
    Public c_reportType As Integer
    Public Sub ApplyInfo(ByRef _oRpt As CrystalDecisions.CrystalReports.Engine.ReportDocument)
        Dim oCRDb As CrystalDecisions.CrystalReports.Engine.Database = _oRpt.Database()
        Dim oCRTables As CrystalDecisions.CrystalReports.Engine.Tables = oCRDb.Tables()
        Dim oCRTable As CrystalDecisions.CrystalReports.Engine.Table
        Dim oCRTableLogonInfo As CrystalDecisions.Shared.TableLogOnInfo
        Dim oCRConnectionInfo As New CrystalDecisions.Shared.ConnectionInfo
        oCRConnectionInfo.ServerName = c_serverName
        oCRConnectionInfo.UserID = c_userID
        oCRConnectionInfo.Password = c_passWord
        oCRConnectionInfo.IntegratedSecurity = c_integratedSecurity
        If c_reportType = 2 Then
            '_dbName = _serverName
            SetDBLogonForReport(oCRConnectionInfo, _oRpt)
            SetDBLogonForSubreports(oCRConnectionInfo, _oRpt)
            _oRpt.DataSourceConnections(0).SetConnection(c_serverName, c_dbName, c_userID, c_passWord)
            Return
        End If
        For Each oCRTable In oCRTables
            oCRTableLogonInfo = oCRTable.LogOnInfo()
            oCRTableLogonInfo.ConnectionInfo = oCRConnectionInfo
            oCRTable.ApplyLogOnInfo(oCRTableLogonInfo)
        Next
        oCRTables(0).TestConnectivity()
        If Len(Trim(c_dbName)) = 0 Then
        Else
            _oRpt.DataSourceConnections(0).SetConnection(c_serverName, c_dbName, c_userID, c_passWord)
        End If
    End Sub
    Private Sub SetDBLogonForReport(ByVal myConnectionInfo As ConnectionInfo, ByVal myReportDocument As ReportDocument)
        Dim myTables As Tables = myReportDocument.Database.Tables
        For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables
            Dim myTableLogonInfo As TableLogOnInfo = myTable.LogOnInfo
            myTableLogonInfo.ConnectionInfo.AllowCustomConnection = True
            myTableLogonInfo.ConnectionInfo = myConnectionInfo
            myTable.ApplyLogOnInfo(myTableLogonInfo)
        Next
        myReportDocument.DataSourceConnections(0).SetConnection(c_serverName, c_dbName, c_userID, c_passWord)
    End Sub
    Private Sub SetDBLogonForSubreports(ByVal myConnectionInfo As ConnectionInfo, ByVal myReportDocument As ReportDocument)
        Dim mySections As Sections = myReportDocument.ReportDefinition.Sections
        For Each mySection As Section In mySections
            Dim myReportObjects As ReportObjects = mySection.ReportObjects
            For Each myReportObject As ReportObject In myReportObjects
                If myReportObject.Kind = ReportObjectKind.SubreportObject Then
                    Dim mySubreportObject As SubreportObject = CType(myReportObject, SubreportObject)
                    Dim subReportDocument As ReportDocument = mySubreportObject.OpenSubreport(mySubreportObject.SubreportName)
                    SetDBLogonForReport(myConnectionInfo, subReportDocument)
                End If
            Next
        Next
    End Sub
End Class