Re: Need to update one field in test plan in alm

William,

Finally i got QC admin access, Install TD connect plugin, Enabled update query in qc server and in excel sheet  add OTA COM Type library from tools--> References menu from vba editor.

now im getting error like "run time error 424 object required"

Please guide me on this

please find code below

Sub Update_Tests_Fields()
    Dim td As New TDConnection
    Dim com As TDAPIOLELib.Command
    Dim RecSet As TDAPIOLELib.Recordset
    Dim rng As Range
  
    Set rng = Sheets("Sheet1").Range("A1:A1000")
   
    td.InitConnectionEx "http://uschw001v:8080/qcbin"
    td.Login "user", "paswd"
    td.Connect "PRD", "IMGLOBAL"
   
    Set com = tdc.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