为什么我会得到一个“；无法导出报告"；尝试将Crystal报表导出到HTML文件时出错？

我正在尝试将Crystal报表导出到HTML文件，但当我调用export方法时，立即出现以下错误：

来源：Crystal Reports ActiveX设计器

说明：无法导出报告

我尝试将crEFTHTML40和CreftHtml32标准作为导出格式类型，但都会导致相同的错误

以下是我所做工作的高度简化版本：

Dim objCRReport As CRAXDRT.Report
[...]
objCRReport.ExportOptions.FormatType = 32 'crEFTHTML40
objCRReport.ExportOptions.DestinationType = 1 'crEDTDiskFile
objCRReport.ExportOptions.DiskFileName = "C:\reportInHtmlFormat.html"
objCRReport.Export False '<--- "Failed to export the report" error here

Dim对象报告为CRAXDRT.Report
[...]
objCRReport.ExportOptions.FormatType=32'crEFTHTML40
OBJCRRReport.ExportOptions.DestinationType=1'CredDiskFile
objCRReport.ExportOptions.DiskFileName=“C:\reportInHtmlFormat.html”
objCRReport.Export False'我不确定您在
[…]
部分中有什么内容，但是您的代码应该包含一个调用，用于打开带有CRAXDRT应用程序实例的报告

Dim objCRReport As CRAXDRT.Report

'***********************************
Dim objCRApp As New CRAXDRT.Application

objCRReport = objCRApp.OpenReport("<YOUR REPORT FILENAME>", 1)
'***********************************

[...]
objCRReport.ExportOptions.FormatType = 32 'crEFTHTML40
objCRReport.ExportOptions.DestinationType = 1 'crEDTDiskFile
objCRReport.ExportOptions.DiskFileName = "C:\reportInHtmlFormat.html"
objCRReport.Export False '<--- "Failed to export the report" error here

Dim对象报告为CRAXDRT.Report
'***********************************
Dim objCRApp作为新的CRAXDRT.应用程序
objCRReport=objCRApp.OpenReport（“，1）
'***********************************
[...]
objCRReport.ExportOptions.FormatType=32'crEFTHTML40
OBJCRRReport.ExportOptions.DestinationType=1'CredDiskFile
objCRReport.ExportOptions.DiskFileName=“C:\reportInHtmlFormat.html”
objCRReport.Export False'尝试设置
HTMLFileName
选项：

objCRReport.ExportOptions.HTMLFileName = "C:\reportInHtmlFormat.html"

谢谢不幸的是，我不再处理这段代码（我们不再使用Crystal）。我最终会回到旧代码，尝试您描述的内容，但目前您的答案是+1。届时，如果我确定它是解决方案，我会将其标记为答案。