添加測試到HP QC從Excel中使用VBA

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 

不知道是否要添加步驟之前，首先發表您的測試對象是非常重要的。但我相信你會發現。