은 나를 위해 일한 :
Set TestTree = TestSet.TSTestFactory
Set TestList = TestTree.NewList("")
For Each TSTest In TestList
Set Test = TSTest.Test
Set objTestFactory = tdc.TestFactory
Set tFilter = objTestFactory.Filter
tFilter.Filter("TS_TEST_ID") = Test.ID
Set tList = objTestFactory.NewList(tFilter.Text)
Dim objTest
For Each tst In tList
If tst.Type = "BUSINESS-PROCESS" Then
Set objTest = tst
Exit For
End If
Next
If objTest Is Nothing Then
Else
Dim BPTest As BusinessProcess
Set BPTest = objTest
BPTest.Load
' Get list if component instance from the Test
Set components = BPTest.BPComponents
Set Component = components.Item(1)
For i = 1 To BPTest.BPComponents.Count
componentName = components.Item(i).Name
componentInstanceId = components.Item(i).ID
ComponentId = components.Item(i).Component.ID
Next
End if
Next
이 코드는 테스트 실험실 수준에서 정보를 가져옵니다 및 비즈니스 구성 요소 수준까지 이동합니다. 현재 컴포넌트 이름과 ID를 추출 중입니다. 필요에 따라 코드를 수정할 수 있습니다.
knowlzz에서 자습서를 방문하십시오. 그것은 각각의 모든 세부 사항으로 솔루션을 멋지게 설명했습니다.