Excel 宏 VBA CopyFromRecordSet 以检索 MicroFocus ALM 数据给出类不支持自动化（错误 430）答案

【问题标题】：Excel Macro VBA CopyFromRecordSet to retrieve MicroFocus ALM data gives Class doesn't support Automation (Error 430)Excel 宏 VBA CopyFromRecordSet 以检索 MicroFocus ALM 数据给出类不支持自动化（错误 430）
【发布时间】：2022-06-30 02:17:01
【问题描述】：

我正在尝试通过 Excel VBA 运行 SQL 查询以将 MicroFocus ALM 数据提取到 Excel 电子表格，但我遇到了“类不支持自动化或不支持预期的接口”错误，错误代码 430。

我在参考资料中启用了库“Microsoft ActiveX Data Object Recordset 2.8 Library”。在搜索论坛后，我发现了使用以下命令添加 msado15.dll 的建议。

Regsvr32.exe "C:\Program Files\Common Files\System\ado\msado15.dll"

我也试过了，还是一样的问题。下面是我使用的代码，我在尝试将数据加载到“测试”选项卡的最后一行中遇到了错误。当我在 RecSet 变量上添加监视时，我确实看到在执行 SQL 后 RecSet 加载了 70 ColCount 和 1358 RecordCount，但是在将数据加载到 excel 的最后一步中，我遇到了问题。对此的任何帮助表示赞赏。谢谢

Set QCConnection = CreateObject("TDApiOle80.TDConnection")

QCConnection.InitConnectionEx qcURL
QCConnection.ConnectProjectEx sDomain, sProject, sUser, sPass

Application.StatusBar = "Logged in ALM as " & sUser

Set com = QCConnection.Command

Sql = "select * FROM BUG"

com.CommandText = Sql
Set RecSet = com.Execute

ThisWorkbook.Sheets("test").Range("A1").CopyFromRecordset RecSet 'Error 430

【问题讨论】：

标签： excel vba alm

【解决方案1】：

从 ALM 服务器安装 ALM 客户端或 ALM 连接工具：
http://almserver:8080/qcbin/addins.html

【讨论】：

我确实安装了它，并且能够运行其他宏，例如更新 ALM 中的测试用例。即使使用我发布的代码，记录集也会将数据从 ALM 拉入其中。我在执行 CopyFromRecordset 以将数据加载到电子表格中的部分遇到问题