Excel Macro to connect to HPQC and modify existing defects.

[kiranmayi16]

Hi Everyone, I am looking for an excel macro to connect to HP Quality center and modify existing defects. I have used the below code but it gives me error. The error is Compile error: User defined type not defined.Please help.

Sub Update_Tests_Fields()
Dim td As New TDConnection
Dim com As TDAPIOLELib.Command
Dim RecSet As TDAPIOLELib.Recordset
Dim rng As Range
Set TDConnection = CreateObject("TDApiOle80.TDConnection")
Set rng = Sheets("Sheet1").Range("A1:A10")

td.InitConnectionEx "http://xyz/qcbin"
td.Login "fds", "fsfd"
td.Connect "dfsd", "dfs"

Set com = td.Command

For Each t In rng
com.CommandText = "Update TEST Set TS_USER_03='" & t.Offset(0, 1) & "' where TS_TEST_ID='" & t & "'"
Set RecSet = com.Execute
Next


Set tfact = Nothing
td.Logout
td.Disconnect
td.ReleaseConnection
Set td = Nothing


End Sub

Thanks,
Kiran