Excel宏VBA CopyFromRecordSet检索MicroFocus ALM数据给类不支持自动化(错误430)

Question

我试图通过Excel运行一个SQL，将MicroFocus ALM数据提取到excel电子表格中，但我碰到的错误是“类不支持自动化或不支持预期的接口”错误代码430。

我已在参考资料中启用了"Microsoft ActiveX数据对象记录集2.8Library“库。在搜索完论坛之后，我发现了一个使用以下命令添加msado15.dll的建议。

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

我也试过了，但问题还是一样。下面是我使用的代码，在最后一行中，我尝试将数据加载到“测试”选项卡。当我在RecSet变量上添加watch时，我确实看到在执行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

Answer 1

从您的ALM服务器安装ALM客户端或ALM连接工具：

http://almserver:8080/qcbin/addins.html