cancel
Showing results for 
Search instead for 
Did you mean: 

Data download to Excel from GuiTree Object by VBA

0 Kudos

Dear all,

           I have a problem, why cellValue is empty ? 



Code:



Set sapnode = session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell[1]")

k = 1

For i = sapnode.GetNodesCol.Count - 1 To 0 Step -1

strNodeComp = sapnode.GetColumnCol(sapnode.GetColumnNames.Item(0)).Item(i)

    If Val(Mid(strNodeComp, 11, Len(strNodeComp))) > 0 Then

        sapnode.selectnode Right("          " + sapnode.GetAllNodeKeys(i), 11)

        session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell[0]").pressButton "&EXPAND"

        x = sapnode.GetAllNodeKeys(i)

        For j = x To intTem - 1

            sapnode.selectItem Right("          " + CStr(j), 11), "&Hierarchy"

            sapnode.doubleClickItem Right("          " + CStr(j), 11), "&Hierarchy"

           cellValue = sapnode.GetColumnCol(sapnode.GetColumnNames.elementat(0)).elementat(j)

            Sheet1.Cells(k, 1) =cellValue

            k = k + 1

        Next j

    End If

    intTem = sapnode.GetAllNodeKeys(i)

Next i

Thanks for your help!

Accepted Solutions (1)

Accepted Solutions (1)

0 Kudos

This problem has been resolved.

Answers (0)