有没有解决方法可以让Active Reports在Win10操作系统下运行？

Question

我支持旧版 VB6 桌面程序，该程序使用 Active Reports 创建大量报告，其中许多报告导出到 Excel。

还有很多用户仍在使用Windows XP。越来越多的用户转向 Windows 10

我已经在 Windows 10 机器上成功安装了 VB6 程序。活动报告适用于所有情况，除了当 Win10 用户尝试从 ARViewer 控件将报告导出到 Excel 时。它给出错误 9 并退出。您知道解决方法吗？或者您自己遇到过这个问题吗？

Answer 1

如果你的arv.Pages.Count=0，你会得到 9 Subscript out of range 错误。这就是示例代码包含页数检查的原因。请参阅ActiveReports 2 导出

Private Sub mEExpt_Click()
    Dim xls As New ActiveReportsExcelExport.ARExportExcel
    Dim sFile As String

    sFile = "c:\activereports\vbexport\test1.xls"
    xls.FileName = sFile
    If arv.Pages.Count > 0 Then
        xls.Export arv.Pages
    End If
End Sub