Dim Report As New ReportDocument()
Report.Load("c:\a.rpt")
Dim ExportPath As String = "C:\\"
Dim crDiskFileDestinationOptions = New DiskFileDestinationOptions()
crDiskFileDestinationOptions.DiskFileName= "a.xls"
Dim crExportOptions = Report.ExportOptions
crExportOptions.ExportDestinationType = ExportDestinationType.DiskFile
crExportOptions.ExportFormatType = ExportFormatType.Excel
crExportOptions.DestinationOptions = crDiskFileDestinationOptions
Report.Export()
正常导出,可以看到数据,就是没有表格线和边框。