Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Private Sub generateCryatalReport(ByVal strReportName As String)
Dim strReportPath As String = Application.StartupPath & "\" & strReportName & ".rpt"
'Dim strReportPath As String = strReportName & ".rpt"
Try
If Not IO.File.Exists(strReportPath) Then
Throw (New Exception("Unable to locate report file:" & vbCrLf & strReportPath))
End If

Dim strSQL As String = "Select * From WLCM_PKG"
Dim DA As New System.Data.OleDb.OleDbDataAdapter(strSQL, dBConPaps)
Dim DS As New DataSet()
DA.Fill(DS)
Dim rptWKIT As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
rptWKIT.Load(strReportPath)
rptWKIT.SetDataSource(DS.Tables(0))
Dim DiskOpts As CrystalDecisions.Shared.DiskFileDestinationOptions = New CrystalDecisions.Shared.DiskFileDestinationOptions()
rptWKIT.ExportOptions.ExportDestinationType = CrystalDecisions.[Shared].ExportDestinationType.DiskFile
rptWKIT.ExportOptions.ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.Excel
DiskOpts.DiskFileName = "c:\" & strReportName & "_Report.xls"
rptWKIT.ExportOptions.DestinationOptions = DiskOpts

rptWKIT.Export()

Catch x As Exception
MessageBox.Show(x.Message + x.Source + x.StackTrace, "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Imports Microsoft.Office.Core
......
......
Sub generateCryatalReport(ByVal strReportName As String)
        Dim datatable As System.Data.DataTable = dsWKIT.Tables(0)

        Dim Application As New Excel.Application()
        Application.SheetsInNewWorkbook = 1
        Dim wb As Excel.Workbook = Application.Workbooks.Add()
        Dim ws As Excel.Worksheet = wb.Worksheets("Sheet1")
        ws.Name = strReportName

        Dim rowIndex As Integer
        Dim colIndex As Integer
        Try
            ' Create the headers on the sheet.
            For colIndex = 1 To datatable.Columns.Count
                ws.Cells(1, colIndex) = datatable.Columns(colIndex - 1).ColumnName
            Next
            ' Add each row of data to the sheet.
            ' The sheet cell row is incremented by one because the first row was used for the header.
            For rowIndex = 1 To datatable.Rows.Count
                For colIndex = 1 To datatable.Columns.Count
                    ws.Cells(rowIndex + 1, colIndex) = datatable.Rows(rowIndex - 1)(colIndex - 1).ToString()
                Next
            Next
        Catch ex As System.Runtime.InteropServices.COMException
        End Try

        wb.SaveAs("C:\" & strReportName & ".xls")
        wb.Close()
        Application.Quit()
End Sub

Marshal.ReleaseComObject去de-reference 然后再GC

Sub generateCryatalReport(ByVal strReportName As String)
        Dim datatable As System.Data.DataTable = dsWKIT.Tables(0)

        Dim Application As New Excel.Application()
        Application.SheetsInNewWorkbook = 1
        Dim wb As Excel.Workbook = Application.Workbooks.Add()
        Dim ws As Excel.Worksheet = wb.Worksheets("Sheet1")
        ws.Name = strReportName

        Dim rowIndex As Integer
        Dim colIndex As Integer
        Try
         ...
        

        Catch ex As System.Runtime.InteropServices.COMException
        
        finally
           wb.SaveAs("C:\" & strReportName & ".xls")
           wb.Close()
           Application.Quit()
           if not wb is nothing then marshal.releasecomobject(wb)
           if not ws is nothing then marshal.releasecomobject(ws)
           if not application is nothing then marshal.releasecomobject(application)

            wb=nothing:ws=nothing:application=nothing
            gc.collect()
        
        End Try

        End Sub

rptWKIT.Export()

1）　或许是某个CR的DLL漏了

2）　dBConPaps　数据库的连接可能有误，指向错误的数据库，错误的登录等等

3）　还可以查看一下用户机器上MDAC的版本，可能太老了。