Creating a requirement traceability link with the OTA API

Hi.

I am managing a test project with around 2000 requirements classed as applications and around 1000 requirements classed as locations. It's a desktop refresh and it's on QC 9.2

To work out which locations use which applications, and indeed which applications have dependencies on other applications we are planning to use requirements traceability.

I have been tasked with investigating whether it's possible to load the requirements traceability automatically, which after some investigation I believe it is, using the OTA.

I am trying to put together a proof of concept in Excel / VBA and after extensive googling I have come up with the following code, please note I have almost no understanding of VBA.

Sub link()
Dim QCConnection
Dim reqFact, reqTraceFrom

Set QCConnection = CreateObject("TDApiOle80.TDConnection")
QCConnection.InitConnectionEx "<someserver>"
QCConnection.login "myname", "mypass"
QCConnection.Connect "mysite", "myproject"
' into the unknown...
Set reqFact = QCConnection.ReqFactory
Set reqTraceFrom = reqFact.Item(10392)
reqTraceFrom.ReqTraceFactory(0).AddItem (10393)

End Sub


So here I have created a little area in the project called "sandbox" and populated it with two applications, A and B. A is 10392 and B is 10393.

I want to demonstrate making B a dependency of A however this code fails with a fairly non-specific VBA runtime error described as -2147219273 ( 800408b7)

Could anyone please post up some VBA code, including all the bits that anyone with any VBA knowledge would "just know to include" because I would not know that!

thanks.

Ed