I used below mentioned code to reach upto the test case in testset but I am not able to update the parameters in test case.. Pls help
Function UpdateTest(testPlanPath, testLabPath, testSetName, testType, tdc)
'Navigating in Test Plan
Set QCTreeManager = tdc.TreeManager
Set TestNode = QCTreeManager.NodeByPath(testPlanPath)
Set TestFact = TestNode.testFactory
Set TestsList = TestFact.Newlist("")
'testLabPath = "Root\Test Set to be deleted\rel13"
'Navigating in Test Lab
Set QCTSTreeManager = tdc.TestSetTreeManager
Set TreeNode = QCTSTreeManager.NodeByPath(testLabPath)
Set TestSetFact = TreeNode.testSetFactory
'selecting a particular testset in the folder
Set oTstSetFilter = TreeNode.testSetFactory.Filter
Set oTstList = oTstSetFilter.Newlist()
'msgbox oTstList.count
'Search the required Test set from the list
i = 1
bTestSetFound = False
While ((i <= oTstList.Count) And (bTestSetFound = False))
sCureTestName = oTstList(i).Name
If StrComp(UCase(Trim(sCureTestName)), UCase(Trim(testSetName)), 1) = 0 Then
Set oListTstSet = oTstList.Item(i)
' msgbox oTstList(i).name
sRsn = "Test Set Name: " & oTstList(i).Name
'ret = ReportStatus("Done", environment.Value("TestID") & " Result", sRsn)
bTestSetFound = True
End If
i = i + 1
Wend
'Create Test Set if not found
If oListTstSet.ID = "" Then
MsgBox "Test Set is not found"
Exit Function
End If
'Clear the data in test sheet
Call clearTCName("AddedTestCase")
Worksheets("AddedTestCase").Activate
'Format the header before downloading the test cases
With ActiveSheet
.Range("B5").Select
With .Range("A1:F1")
.Font.Name = "Arial"
.Font.FontStyle = "Bold"
.Font.Size = 10
.Font.Bold = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Interior.ColorIndex = 15
End With
.Cells(1, 1) = "Subject (Folder Name)"
.Cells(1, 2) = "TCNAME"
Dim row
row = 2
'Set TSLabTestFactory = oListTstSet.TSTestFactory
Set oTstLabSetFilter = oListTstSet.TSTestFactory.Filter
Set oTstLabList = oTstLabSetFilter.Newlist()