on 01-28-2015 8:21 AM
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!
This problem has been resolved.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
88 | |
23 | |
11 | |
9 | |
8 | |
5 | |
5 | |
5 | |
5 | |
4 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.