Ayuda para vincular a MB51 a Excel

Consultas SAP
1

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?

2

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

3

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?

4

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