Hi Friends,

I have completed coding for exporting all test set which is present in test lab folder in single excel sheet.

But I want to export each test set in separate excel sheet.Please help me on this.

Thanks Advance!

PFB the code:

Set TCFactory = QCConnection.TestFactory

Set TSTreeMngr = QCConnection.TestSetTreeManager

‘qcPath = "Root\\ECommerce – B2C\\Autozone.com\\B2C – DIY\\Search Enhancement – Part 2\\Search Enhancement-New Changes\\"

qcPath = Worksheets("Input").Range("K15")

Set TSFolder = TSTreeMngr.NodeByPath(qcPath)

Set TestSetList = TSFolder.FindTestSets("Desktop")

If TestSetList Is Nothing Then

MsgBox "No Test Cases are there in this location"

Else

clearSheet For Each TSet In TestSetList

‘Get TSTestFactory object for each TestSet

Set TSFact = TSet.TSTestFactory

‘Get TestCases of selected Test Set

Set TSTestsList = TSFact.NewList("")

For Each TSTest In TSTestsList

With Sheets("Test Case Data")

.Cells(tlrow, 1).Value = TSTest.Field("TS_Name")

.Cells(tlrow, 2).Value = TSTest.Field("TC_STATUS")

tlrow = tlrow + 1

End With

Next

Next

End If