水晶报表是否支持导出EXCEL文件？

Question

本人以前是将报表内容显示在Listview中，然后调用打印程序，将内容打印出来，现要求将将表格的内容导出到excel文件中，问vb如何实现，水晶报表是否支持，还有其它的解决办法没有？

Answer 1

支持，代码如下：
如下，测试环境为VB6.0+Crystal Report 9Private Sub Command1_Click()
Dim ex As CRAXDRT.ExportOptions
Set ex = CrystalReport1.ExportOptions
ex.DestinationType = crEDTDiskFile
ex.DiskFileName = "c:\text.xls"
ex.FormatType = crEFTExcel97 'Excel97格式
ex.ExcelExportAllPages = True '导出所有页码
CrystalReport1.Export (False)End Sub