Re: Test cases to ALM using VBA

Hi Both goes good for me...

I have tried it by editing some code I found. But when I am executing it I am getting error

Set tsf = tdc.TestFactory
Set trmgr = tdc.TreeManager
Set subjectfldr = trmgr.NodebyPath("Subject")
Worksheets("Sheet1").Select
' read the main and sub folder names
Set folder = Worksheets("Sheet1").Cells(2, 1)
Set subfolder = Worksheets("Sheet1").Cells(2, 2)

On Error Resume Next
' create main folder
Set trfolder = subjectfldr.AddNode(Worksheets("Sheet1").Cells(2, 1))
trfolder.Post

Set subjectfldr = trmgr.NodebyPath("Subject\" & folder)
'create subfolder if specified
If Not subfolder = "" Then
Set trfolder = subjectfldr.AddNode(subfolder)
trfolder.Post
End If

'reset error handling
On Error GoTo 0

If subfolder = "" Then
Set trfolder = trmgr.NodebyPath("Subject\" & folder)
Else
Set trfolder = trmgr.NodebyPath("Subject\" & folder & "\" & subfolder)
End If

' now create a test case
Set sampleTest = trfolder.TestFactory.AddItem(Null)
' set mandatory values
sampleTest.Field("TS_NAME") = Worksheets("Sheet1").Cells(2, 3)
'
'sampleTest.Field("TS_USER_01") = Worksheets("Sheet1").Cells(2, 7) ' Active
sampleTest.Field("TS_RESPONSIBLE") = Worksheets("Sheet1").Cells(2, 8) ' Designer
sampleTest.Field("TS_USER_TEMPLATE_04") = Worksheets("Sheet1").Cells(2, 9) ' Functionality
sampleTest.Field("TS_USER_TEMPLATE_01") = Worksheets("Sheet1").Cells(2, 10) ' Test case status
sampleTest.Field("TS_USER_TEMPLATE_03") = Worksheets("Sheet1").Cells(2, 11) ' Project
'sampleTest.Field("TS_TYPE") = "Manual"
sampleTest.Field("TS_DESCRIPTION") = Worksheets("Sheet1").Cells(2, 4) ' Project
'TS_DESCRIPTION
'TS_TYPE
'sampleTest.Field("TS_USER_12") = Worksheets("Sheet1").Cells(2, 9)
'sampleTest.Field("TS_USER_12") = Worksheets("Sheet1").Cells(2, 9)


sampleTest.Post
' create test steps
Set dsf = sampleTest.DesignStepFactory
Set stepList = dsf.Newlist("[empty]")

' loop through all the steps
LastRow = Worksheets("Sheet1").Cells.SpecialCells(xlCellTypeLastCell).Row
For RowCount = 2 To LastRow
Set dstep = dsf.AddItem(Null)
dstep.StepName = Worksheets("Sheet1").Cells(RowCount, 5)
dstep.StepDescription = Worksheets("Sheet1").Cells(RowCount, 6)
dstep.StepExpectedResult = Worksheets("Sheet1").Cells(RowCount, 7)
'stepList.Add (dstep)
'sampleTest.Post
dstep.Post
Next

'dstep.Post
'sampleTest.Post
'Call ExportTestCases
'Call ExportDefects

 The error message is some AUTOMATION ERROR.