script sap recorder
Buen dia al realizar un recordar de script el cual quiero pasar una inforamcion de excel a sap (el script funciona en la medida que abre el excel y copia inforamcion) el error el cual no puedo solucionar es que no solo me copie el primer campo si no me siga recorriendo el excel
'Llamar archivo de excel - funciona bien
Dim objExcel
Dim objWorkBook
Set objExcel = CreateObject("EXCEL.APPLICATION")
'Colocar la RUTA- funciona bien
Set objWorkBook = objExcel.Workbooks.Open("C:\Users\andresfernando.lozan\Desktop\codigs.xlsx")
'Colocar la hoja de excel-funciona bien
Set Hoja=objWorkBook.Sheets("Hoja1")
objWorkBook.Sheets("Hoja1").Select
objExcel.visible=true
Hoja.Select
x=0
intFila=2
'Colocar el nombre de la primera variable y que esté en la columna A
Codigo=Hoja.Range("A" & intFila).value
'en este punto se daña solo me copia el primer codigo una y otra vez no me copia el codigo de la celda A3
while Codigo <>""
intFila=2
session.findById("wnd[0]").maximize
session.findById("wnd[0]/usr/btn%_W_MATNR_%_APP_%-VALU_PUSH").press
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1," & x & "]").text = Codigo
x=x+1
intFila = intFila + 1
WEND
|