Scrip vb - sap -salto linea en codigo sap.contador

Buenos dias , pido ayuda tengo un script de vb el cual toma una tabla de excel y me copia los valores en unas celdas de sap, lo que no le doy con el chiste es hacer un contador que me ayude a saltar la celda de sap de la siguiente manera
(primera vez q trabajo con sap no se como realizar que me haga el mismo proceso en las celdas de abajo en sab , la tabla de excel puede variar de tamaño).
–tabla en exel
image

–tabla en sap

–tabla sap para saltar al siguiente renglon
tabla3

--------------codigo

Dim objExcel
Dim objSheet, intRow, i 
Set objExcel = GetObject(,"Excel.Application")
Set objSheet = objExcel.ActiveWorkbook.ActiveSheet
For i = 2 to objSheet.UsedRange.Rows.Count

cOL2 = Trim(CStr(objSheet.Cells(i, 2).Value))
cOL4 = Trim(CStr(objSheet.Cells(i, 4).Value))





session.findById("wnd[0]").maximize
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\08/ssubSUBSCREEN_BODY:SAPMV45A:7901/subSUBSCREEN_TC:SAPMV45A:7905/tblSAPMV45ATCTRL_U_MILL_SE_KONFIG/ctxtRV45A-MABNR[2,0]").text = cOL2
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\08/ssubSUBSCREEN_BODY:SAPMV45A:7901/subSUBSCREEN_TC:SAPMV45A:7905/tblSAPMV45ATCTRL_U_MILL_SE_KONFIG/txtRV45A-KWMENG[4,0]").text = cOL4
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\08/ssubSUBSCREEN_BODY:SAPMV45A:7901/subSUBSCREEN_TC:SAPMV45A:7905/tblSAPMV45ATCTRL_U_MILL_SE_KONFIG/ctxtRV45A-MWERT02[7,0]").setFocus
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\08/ssubSUBSCREEN_BODY:SAPMV45A:7901/subSUBSCREEN_TC:SAPMV45A:7905/tblSAPMV45ATCTRL_U_MILL_SE_KONFIG/ctxtRV45A-MWERT02[7,0]").caretPosition = 0
session.findById("wnd[0]").sendVKey 4
session.findById("wnd[1]/tbar[0]/btn[8]").press



aux=cOL2 & " " & cOL4
next

buen dia ya lo logre ,gracias.

1 me gusta

Buen día @evilmen164 puedes compartir la solución?

si claro amigo x es el contador para poder aumentar la variable para la tabla , si tienes alguna recomendacion o mejora agradezco aportarla para ayudar a otra persona , me costo un dia hacerlo pues no sabia como aumentar en sap como dije primera vez que toco sap.

'conexion sap esto lo arroja sap en el recorder se cambia -
If Not IsObject(application) Then
Set SapGuiAuto = GetObject(“SAPGUI”)
Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
Set connection = application.Children(0)
End If
If Not IsObject(session) Then
Set session = connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, “on”
WScript.ConnectObject application, “on”
End If

'Llamar archivo de excel -

Dim objExcel
Dim objWorkBook
Set objExcel = CreateObject(“EXCEL.APPLICATION”)

'Colocar la RUTA

Set objWorkBook = objExcel.Workbooks.Open(“C:\Users\andresfernando.lozan\Desktop\factura\facturaexp.xlsx”)

'Colocar la hoja de excel

Set Hoja=objWorkBook.Sheets(“inventario”)
objWorkBook.Sheets(“inventario”).Select
objExcel.visible=true

x=0

Hoja.Select

intFila=2

'Colocar el nombre de la primera variable y que esté en la columna A

producto=Hoja.Range(“A” & intFila).value

while producto <> “”

'Colocar todas las variables a utilizar y la columna de cada variable

referencia=Hoja.Range("B" & intfila).value
    Cantidad=Hoja.Range("D" & intfila).value

session.findById(“wnd[0]”).maximize
session.findById(“wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\08/ssubSUBSCREEN_BODY:SAPMV45A:7901/subSUBSCREEN_TC:SAPMV45A:7905/tblSAPMV45ATCTRL_U_MILL_SE_KONFIG/ctxtRV45A-MABNR[2,” & x & “]”).text = referencia
session.findById(“wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\08/ssubSUBSCREEN_BODY:SAPMV45A:7901/subSUBSCREEN_TC:SAPMV45A:7905/tblSAPMV45ATCTRL_U_MILL_SE_KONFIG/txtRV45A-KWMENG[4,” & x & “]”).text = Cantidad
session.findById(“wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\08/ssubSUBSCREEN_BODY:SAPMV45A:7901/subSUBSCREEN_TC:SAPMV45A:7905/tblSAPMV45ATCTRL_U_MILL_SE_KONFIG/ctxtRV45A-MWERT02[7,” & x & “]”).setFocus
session.findById(“wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\08/ssubSUBSCREEN_BODY:SAPMV45A:7901/subSUBSCREEN_TC:SAPMV45A:7905/tblSAPMV45ATCTRL_U_MILL_SE_KONFIG/ctxtRV45A-MWERT02[7,” & x & “]”).caretPosition = 0
session.findById(“wnd[0]”).sendVKey 4
session.findById(“wnd[1]/tbar[0]/btn[8]”).press

x=x+1
intFila=intFila+1

WEND

1 me gusta

Este tema se cerró automáticamente 30 días después de la última publicación. No se permiten nuevas respuestas.