如何在vb6中导出水晶报表为excel

Dim crApp As New CRAXDRT.Application
Dim crReport As CRAXDRT.Report
Dim crExportOptions As CRAXDRT.ExportOptions
Dim crDiskFileDestinationOptions As CRAXDRT.DiskFileDestinationOptions

' 加载报表文件
Set crReport = crApp.OpenReport("报表文件路径")

' 设置导出选项
Set crExportOptions = crReport.ExportOptions
crExportOptions.DestinationType = crEDTDiskFile
crExportOptions.FormatType = crEFTExcel97

' 设置导出文件路径
Set crDiskFileDestinationOptions = crExportOptions.DiskFileDestinationOptions
crDiskFileDestinationOptions.DiskFileName = "导出文件路径"

' 导出报表为Excel文件
crReport.Export False

' 释放资源
Set crDiskFileDestinationOptions = Nothing
Set crExportOptions = Nothing
Set crReport = Nothing
Set crApp = Nothing