如何使用 VBA 和 QC OTA 查找文件夹中的测试集数量？答案

【问题标题】：How to find number of test sets in a folder using VBA and QC OTA?如何使用 VBA 和 QC OTA 查找文件夹中的测试集数量？
【发布时间】：2020-08-14 23:09:43
【问题描述】：

我正在使用 QC OTA 编写 VBA 代码以提取每天需要发送给客户端的执行报告，有没有办法使用文件夹查找测试集的数量，以便我可以运行循环来查找通过、失败的总数脚本？现在我使用手动输入的值sTestSetCount

'Piece of the whole script
For sCount = 1 To sTestSetCount
    Set tsList = tsFolder.FindTestSets("P0049585")
    Dim oTestSet: Set oTestSet = tsList.NewList("").Item(sCount).TsTestFactory 'Item(1) Refers to the 1st test set in the path
    Dim testFilter1: Set testFilter1 = oTestSet.Filter

    'To Filter by Passed status
    testFilter1.Filter("TC_STATUS") = "Passed"
    vPass = vPass + oTestSet.NewList(testFilter1.Text).Count

    'To Filter by Failed Status
    testFilter1.Filter("TC_STATUS") = "Failed"
    vFail = vFail + oTestSet.NewList(testFilter1.Text).Count

    'To Filter by No Run status
    vNR = vNR + oTestSet.NewList("[Filter]{TableName:TESTCYCL,ColumnName:TC_STATUS,LogicalFilter:" & Chr(39) & "No" & Chr(32) & "Run" & Chr(39) & ",VisualFilter:" & Chr(39) & "No" & Chr(32) & "Run" & Chr(39) & ",NO_CASE:}").Count

    'To Filter by Not Completed status
    vNC = vNC + oTestSet.NewList("[Filter]{TableName:TESTCYCL,ColumnName:TC_STATUS,LogicalFilter:" & Chr(39) & "Not" & Chr(32) & "Completed" & Chr(39) & ",VisualFilter:" & Chr(39) & "Not" & Chr(32) & "Completed" & Chr(39) & ",NO_CASE:}").Count

    'To Filter by  N\A
    testFilter1.Filter("TC_STATUS") = "N/A"
    vNA = vNA + oTestSet.NewList(testFilter1.Text).Count

    'To Filter by Blocked
    testFilter1.Filter("TC_STATUS") = "Blocked"
    vBlocked = vBlocked + oTestSet.NewList(testFilter1.Text).Count

Next sCount
Worksheets("Status").Range("C10").Value = vPass + vFail + vNR + vNC + vNA + vBlocked
Worksheets("Status").Range("D10").Value = vPass
Worksheets("Status").Range("E10").Value = vFail
Worksheets("Status").Range("F10").Value = vNC
Worksheets("Status").Range("G10").Value = vBlocked
Worksheets("Status").Range("H10").Value = vNA
Worksheets("Status").Range("H11").Value = (vPass + vFail) / (vPass + vFail + vNR + vNC + vBlocked) * 100 & " %"
Application.StatusBar = "Execution Percentage = " & ((vPass + vFail) / (vPass + vFail + vNR + vNC + vBlocked) * 100) & "%"

【问题讨论】：

标签： excel hp-quality-center vba

【解决方案1】：

只需获取测试实验室文件夹的 TestSetFactory 并创建一个 NewList 即可，无需使用过滤器即可获取该文件夹中的所有测试集：

treeMgr = tdc.TestSetTreeManager
folder = treeMgr.NodeByPath("someTestLabPath")
testSetFact = folder.TestSetFactory
testSetList = testSetFact.NewList("")
sTestSetCount = testSetList.Count

【讨论】：

【解决方案2】：

此语句将有助于计算未运行测试用例的计数，但如果您在“未运行”测试用例上应用更多过滤器，请尝试以下代码

testFilter1.Filter("TC_STATUS") = "'No Run'"

testFilter1.Filter("TS_STATUS") = "Complex"

这将帮助您找到总的未运行测试用例以及在未运行时有多少复杂的测试用例。

vNR = vNR + oTestSet.NewList("[Filter]{TableName:TESTCYCL,
ColumnName:TC_STATUS,LogicalFilter:" & Chr(39) & "No" & Chr(32) & "Run" & Chr(39) & 
",VisualFilter:" & Chr(39) & "No" & Chr(32) & "Run" & Chr(39) & 
",NO_CASE:}").Count

【讨论】：