求助解决水晶报表8。5导出固定格式的方法！

Question

如何解决水晶报表8。5导出固定格式的方法！
水晶报表8。5的导出是Export方法；可是导出的时候有很多种格式选择，
如何导出的时候，跳过选择，直接导出EXEL!

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