使用VBA从Excel向HP QC添加测试

Question

我需要将测试从excel导入到hp qc测试，这是我的：

 Set TestFactory = QCconn.TestFactory
Set testObj = TestFactory.AddItem(Null)



testObj.Field("TS_USER_14") = "1" 'Arml
testObj.Field("TS_USER_01") = "TDB" 'Module
testObj.Field("TS_USER_13") = "3" 'Policy Status
testObj.Field("TS_USER_15") = "4" 'Project
testObj.Field("TS_SUBJECT") = "אוטומציה" 'Subject
testObj.Field("TS_NAME") = "ניסיון1" 'Test Name
testObj.Field("ST_DESCRIPTION") = "2"
testObj.Field("TS_RESPONSIBLE") = "zvikav" 'Designer
testObj.Field("TS_USER_12") = "6" 'Policy Type
testObj.Field("TS_USER_11") = "עדיף" ' Product154981
testObj.DesignStepFactory.Fields("DS_STEP_NAME") = "ניסיון"
testObj.Post

我可以上传测试，但不能执行测试步骤

我如何上传设计步骤？

Answer 1

您需要在获得DesignStepFactory之后添加一个新项目：

' Get the DesignStepFactory from the test.
Set DSFactory = testObj.DesignStepFactory

' Create the new design step.
Set desstep = DSFactory.AddItem(Null)

' Set step properties and post step
desstep.StepName = "Step one"
desstep.StepDescription = "Do something"
desstep.StepExpectedResult = "Expect something"
desstep.Post

不确定添加步骤之前先发布测试对象是否重要。 但是我相信你会发现的。