[evilmen164]

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