Надстройка HP ALM Excel — вход в систему сопоставление с помощью макроса VBA?

#excel #vba #alm

Вопрос:

я пытаюсь автоматизировать процесс входа в систему HP ALM Excel Addin mapping.

до сих пор у меня был этот код для входа в систему:

 Dim qcURL As String
Dim qcID As String
Dim qcPWD As String
Dim qcDomain As String
Dim qcProject As String
Dim tdConnection As Object

   qcURL = "url" 'Example : https://<server url>/qcbin
   qcID = "user"
   qcPWD = "pw"
   qcDomain = "domain"
   qcProject = "project"
'Display a message in Status bar
   application.StatusBar = "Connecting to Quality Center.. Wait..."
' Create a Connection object to connect to Quality Center
   Set tdConnection = CreateObject("TDApiOle80.TDConnection")
'Initialise the Quality center connection
   tdConnection.InitConnectionEx qcURL
'Authenticating with username and password
   tdConnection.Login qcID, qcPWD
'connecting to the domain and project
   tdConnection.Connect qcDomain, qcProject
'On successfull login display message in Status bar
   application.StatusBar = "........QC Connection is done Successfully"
 

но я получаю эту ошибку:
ошибка во время выполнения: компонент ActiveX не может создать объект: ‘TDApiOle80.TDConnection’

Ответ №1:

Вам необходимо установить средство подключения ALM, которое вы можете загрузить с вашего сервера ALM: http(ы):///qcbin/PlugIns/TDConnectivity/TDConnect.exe