Я использую приведенный ниже код для подключения к ALM 12.53, но не могу, получаю сообщение об ошибке:
Active X не может создать объект
Private Sub BtnAuthenticate_Click()
errmsg = "No Error"
On Error GoTo ErrorHandling
Set tdc = CreateObject("tdapiole80.TDconnection")
MsgBox ("Connect to QC Server")
Set WSConfig = ThisWorkbook.Worksheets("ALM Express")
If tdc.Connected Then
Set tdc = Nothing
End If
tdc.InitConnectionEx (Trim(WSConfig.Cells(3, 6).Value))
Strusrnme = WorksheetFunction.Trim(TxtUserID.Text)
strpwd = TxtPWD.Text
errmsg = "Authentication failed. verify your UserID and Password"
tdc.Login Strusrnme, strpwd
'...
End Sub
Хотя я успешно установил надстройку HP ALM Connectivity Tool и вижу, что папка создала «Mercury Interactive» на моем c-диске.
C: \ Program Files (x86) \ Common Files\ Mercury Interactive