2016-07-10 1 views
0

J'essaie de connecter Excel à ALM 12.21 en utilisant le code macro ci-dessous. Mais chaque fois que le code échoue à l'étape de connexion et affiche un message d'erreur indiquant «Échec de la connexion», indépendamment de fournir le nom d'utilisateur et mot de passe correct. Quelqu'un peut-il me aider s'il vous plaît passer à travers et je suis en train de se connecter à HP ALM 12.2xmacro pour se connecter à ALM 12

Sub ConnectToQC() 

Dim sUserName = <Username> 
Dim sPassword = <pwd> 
Dim QCConnection 
Set QCConnection = CreateObject("TDEApiOle80.TDConnection") 
QCConnection.InitConnectionEx "http://hp-alm.123.com/qcbin" 
QCConnection.Login sUserName, sPassword 

**If(QCConnection.LoggedIn <> True) Then** 
    **MsgBox Err.Description** 
    End 
End If 

'<Rest of the Code...> 
End Sub 

Répondre

0

Cela peut être dû à la connectivité ALM Addin est pas installé/version incorrecte.

  1. Accédez à http://hp-alm.123.com/qcbin
  2. Cliquez sur Addons
  3. Installation ALM Connectivité Addin

Aussi, lorsque vous construisez la première fois d'intégration, ne pas envelopper votre code à l'intérieur On Error Resume Next qui supprime toutes les erreurs et peut être difficile de déboguer la cause réelle du problème.