用VBA从Excel中增加HP的测试

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

我可以上传测试，但我不能做一个测试步骤

我是如何上传DesignSteps的？

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

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