#1
|
|||
|
|||
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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|