Ciclo SAP Script sobre MB56

[DAVID_2]

Continuando la discusión desde Visual basic Script para automatizar tareas:

@Jesus_Torres

		session.findById("wnd[1]/usr/cntlTREE_CONTROL_AREA/shellcont/shell").selectItem "          5","1"
		session.findById("wnd[1]/usr/cntlTREE_CONTROL_AREA/shellcont/shell").ensureVisibleHorizontalItem "          5","1"
		session.findById("wnd[1]/usr/cntlTREE_CONTROL_AREA/shellcont/shell").doubleClickItem "          5","1"

Buenas tardes Jesus.
Muchas gracias por compartir tu conocimiento y experiencia.
Quería pedirte ayuda con el siguiente tema.
Actualmente intento realizar un recorrido por los campos de la transacción MB56 por medio de un ciclo tomando tu idea de este ejemplo que nos compartes, pero no logro capturar el número de las filas y que se interprete la variable para hacer el recorrido.
Este es el código que recopilo de SAP script y funciona con los valores fijos 2 = fila, 31 = Columna.

'session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell/shellcont[1]/shell[1]").selectItem "          2", "C         31"
'session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell/shellcont[1]/shell[1]").ensureVisibleHorizontalItem "          2", "C         31"
'session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell/shellcont[1]/shell[1]").doubleClickItem "          2", "C         31"

j = session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").RowCount
i = 1
Do While i < j
    session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell/shellcont[1]/shell[1]").selectItem "           " & i & "", "C         31"
    session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell/shellcont[1]/shell[1]").ensureVisibleHorizontalItem "          & i & ", "C         31"
    session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell/shellcont[1]/shell[1]").doubleClickItem "           " & i & "", "C         31"
    i = i + 1
Loop

Muchas gracias