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

Question

我正试图通过Excel VBA运行SQL查询以提取MicroFocus ALM数据到Excel电子表格，但我正在打"类不支持自动化或不支持预期的接口";错误码430.

我已经启用了库"Microsoft ActiveX Data Object Recordset 2.8 library"参考资料。在搜索了论坛之后，我发现了一个使用以下命令添加msado15.dll的建议。

Regsvr32.exe "C:Program FilesCommon FilesSystemadomsado15.dll"

我也试过了，但仍然是同样的问题。下面是我使用的代码，我在最后一行遇到了错误，我试图将数据加载到"test"选项卡。当我在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

Answer 1

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