Frage von Aramas, 31

VBA Code um Testsets von HP Qualitycenter zu downloaden?

Hallo zusammen,

Ich brauche einen VBA-Code bei welchem ich den Pfad zu den Testsets angeben kann im Testlab. Die Verbindung zum QC habe ich schon hergestellt und brauche nur noch einen Code um mir die Testsets zu downloaden, die Verbindung habe ich mit folgendem Code hergestellt:

On Error Resume Next Dim QCConnection 'Create QC Connection Object to connect to QC Set QCConnection = CreateObject("TDApiOle80.TDConnection")

Dim sUserName, sPassword, sDomain, sProject
sUserName = TextBox3.Value
sPassword = TextBox4.Value
sDomain = "SCS"
sProject = "IO"
QCConnection.InitConnectionEx "<a href="http://almprod.corproot.net:8080/qcbin/">http://almprod.corproot.net:8080/qcbin/</a>"
'Authenticate your user ID and Password
QCConnection.Login sUserName, sPassword
'Quit if QC Authentication fails
If (QCConnection.LoggedIn <> True) Then
    MsgBox "QC User Authentication Failed"
    End
End If
'Login to your Domain and Project
QCConnection.Connect sDomain, sProject
'Quit if login fails to specified Domain and Project
If (QCConnection.AuthenticationToken = "") Then
    MsgBox "QC Project Failed to Connect to " & sProject
    QCConnection.Disconnect
    End
End If
'Get the test factory
Set TstFactory = QCConnection.TestFactory

sPassword und SUsername kann man bei mir mit einem GUI eingeben.

Nun habe ich folgenden Code welcher in diesem Fall die Testsets von Root\Regression downloaden sollte, aber es funktioniert nicht. (Funktioniert nicht heisst es sagt mir "All Testcases are downloaded successfully" aber es zeigt nichts an):

Antwort
von maximilianus7, 31

1. der folgende code fehlt irgendwie.

2. den programmcode besser auf http://pastie.org/ ablegen und hier verlinken

Kommentar von Aramas ,
Kommentar von maximilianus7 ,

ich sehe als schlussmeldung

All Test cases are downloaded with Test Steps

ok, also fehlerfrei durchgelaufen. was sagt das debugging? ist denn in der TestList was drin?

Kommentar von Aramas ,

Es zeigt mir eben nichts an in dem Excel file und ja da ist was drin

Kommentar von maximilianus7 ,

du hast also in zeile 31 (pastie), also auf

.Cells(Row, 2).Value = TestCase.Field("Device Open Test").Path

einen haltepunkt gesetzt und dort stoppen können und es wurde nichts in die zelle übertragen. konntest du das testcase objekt inspizieren?

Kommentar von Aramas ,

Ja genau wenn ich dort stoppe wird nichts in die Zelle übertragen, was meinst du genau mit testcase objekt inspizieren?

Kommentar von maximilianus7 ,

du kannst im VBA-editor unter menü ansicht das überwachungsfenster öffnen. da kannst du im stopp-zustand den ausdruck testcase reinziehen (oder copy&paste). dann wird dir der ganze objektbaum angezeigt (zunächst noch zugeklappt +).

z.b. dann unter fields - items (?) nachschauen was da geliefert wurde.
(in der hoffnung, dass diese objekte dem vba-system bekannt sind, verweise entsprechend gesetzt?)

kann auch sein dass du anfangs
Dim QCConnection as TDApiOle80.TDConnection
setzen musst (in der hoffnung, dass das geht), damit das mit dem inspizieren funktioniert.

Keine passende Antwort gefunden?

Fragen Sie die Community