Ayuda SAP

Ayuda para vincular a MB51 a Excel

Buen dia. Tal vez ya resolvieron esta duda pero me gustaria ver si me pudieran ayudar para vincular una hoja de excel con el MB51.

Mi duda esta asi:

session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").text = "ZINBO"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtSP$00005-LOW").text = suc"
session.findById("wnd[0]/usr/ctxtSP$00006-LOW").text = "Almacen"
session.findById("wnd[0]/usr/ctxtSP$00001-HIGH").setFocus
session.findById("wnd[0]/usr/ctxtSP$00001-HIGH").caretPosition = 0
session.findById("wnd[0]/usr/btn%_SP$00001_%_APP_%-VALU_PUSH").press
> session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,0]").text = "10237452321"
> session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,1]").text = "10234567890"
> session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,2]").text = "10513264201"
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,2]").setFocus
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,2]").caretPosition = 11
session.findById("wnd[1]/tbar[0]/btn[8]").press
session.findById("wnd[0]/usr/ctxtSP$00002-LOW").text = "*"
session.findById("wnd[0]/usr/ctxtSP$00002-LOW").setFocus
session.findById("wnd[0]/usr/ctxtSP$00002-LOW").caretPosition = 1
session.findById("wnd[0]/tbar[1]/btn[8]").press

Este codigo estoy intentando pasarlo a Excel asi:

session.FindById("wnd[0]").Maximize
session.FindById("wnd[0]/tbar[0]/okcd").Text = "ZINBO"
session.FindById("wnd[0]").SendVKey 0
session.FindById("wnd[0]/usr/ctxtSP$00005-LOW").Text = "0086"
session.FindById("wnd[0]/usr/ctxtSP$00006-LOW").Text = "PISO"
session.FindById("wnd[0]/usr/ctxtSP$00002-LOW").Text = "*"
session.FindById("wnd[0]/usr/ctxtSP$00001-HIGH").SetFocus
session.FindById("wnd[0]/usr/ctxtSP$00001-HIGH").CaretPosition = 0
session.FindById("wnd[0]/usr/btn%_SP$00001_%_APP_%-VALU_PUSH").Press

> Set Cantou = session.FindById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I ")

Destino2 = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For I = 1 To (Destino2 + 1)
Cantou.Text [1,I] = ActiveCell("A" & I + 1)
Next
Cantou.Text [1,I+1].SetFocus
Cantou.Text [1,I+1].CaretPosition = 10

He aqui mi problema que al parecer no puede vincular la ventana del sap Gui con la macro de excel o estoy dando un formato en el Set equivocado?

Ya integraron algo de SAP con excel?
De dónde has sacado este código que estás probando?

El primer codigo es el codigo original sacado de un script.

El segundo es modificado para poder hacer que excel sea la base de datos de donde SAP tome el registro y lo pase, para luego dar la tabla.

session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,0]").text = "10237452321" ")

El problema que tengo es que quiero que este numero(10237452321) lo tome de un listado de excel el error me aparece despues del SET, cuando es el llenado de la tabla.

> Set Cantou = session.FindById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I ")

Destino2 = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For I = 1 To (Destino2 + 1)
Cantou.Text [1,I] = ActiveCell("A" & I + 1)  *Aqui aparece un error que no puede. 
Next

he intentado con el ActiveCell(“A” & I + 1)y el Cells(1,I), pero me sigue marcando el mismo error. alguien puede ayudarme?

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