Error ExcelSheet

LILIANA · 20 Junio, 2019 16:37

Buen dia,

Soy nueva en el uso del sistema SAP. Estoy tratando de automatizar la facturacion en SAP con datos extraidos de un Excel. Realice la grabacion del script pero cuadno trato de ejecutarlo me aparece el error: “Se requiere un objeto: ExcelSheet” me pudieran apoyar para saber que me esta faltando?
Esto es lo que tengo

If Not IsObject(application) Then
   Set SapGuiAuto  = GetObject("SAPGUI")
   Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
   Set connection = application.Children(0)
End If
If Not IsObject(session) Then
   Set session    = connection.Children(0)
End If
If IsObject(WScript) Then
   WScript.ConnectObject session,     "on"
   WScript.ConnectObject application, "on"
End If
session.findById("wnd[0]").resizeWorkingPane 120,31,false
session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPLFDCB:0510/ctxtINVFO-ACCNT").text = ExcelSheet.cells (row,2).value
session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPLFDCB:0510/ctxtINVFO-BLDAT").text = ExcelSheet.cells (row,4).value
session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPLFDCB:0510/cmbINVFO-BLART").setFocus
session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPLFDCB:0510/cmbINVFO-BLART").key = "FE"
session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPLFDCB:0510/txtINVFO-WRBTR").text = ExcelSheet.cells (row,5).value
session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPLFDCB:0510/chkINVFO-XMWST").setFocus
session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPLFDCB:0510/chkINVFO-XMWST").selected = true
session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPLFDCB:0510/cmbINVFO-MWSKZ").setFocus
session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPLFDCB:0510/cmbINVFO-MWSKZ").key = "A2"
session.findById("wnd[0]/usr/tabsTS/tabpPAYM").select
session.findById("wnd[0]/usr/tabsTS/tabpPAYM/ssubPAGE:SAPLFDCB:0520/ctxtINVFO-ZTERM").text = "NT00"
session.findById("wnd[0]/usr/tabsTS/tabpPAYM/ssubPAGE:SAPLFDCB:0520/ctxtINVFO-ZLSCH").text = "T"
session.findById("wnd[0]/usr/tabsTS/tabpPAYM/ssubPAGE:SAPLFDCB:0520/ctxtINVFO-ZLSCH").setFocus
session.findById("wnd[0]/usr/tabsTS/tabpPAYM/ssubPAGE:SAPLFDCB:0520/ctxtINVFO-ZLSCH").caretPosition = 1
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/mbar/menu[3]/menu[2]").select
session.findById("wnd[1]/usr/tblSAPLFTXTTCTRL_TEXTE").verticalScrollbar.position = 3
session.findById("wnd[1]/usr/tblSAPLFTXTTCTRL_TEXTE/txtRTEXT-LTEXT[3,9]").text = ExcelSheet.cells (row,6).value
session.findById("wnd[1]/usr/tblSAPLFTXTTCTRL_TEXTE/txtRTEXT-LTEXT[3,9]").setFocus
session.findById("wnd[1]/usr/tblSAPLFTXTTCTRL_TEXTE/txtRTEXT-LTEXT[3,9]").caretPosition = 0
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[0]/usr/tabsTS/tabpMAIN").select
session.findById("wnd[0]/usr/subITEMS:SAPLFSKB:0100/tblSAPLFSKBTABLE/ctxtACGL_ITEM-HKONT[1,0]").text = "4100100000"
session.findById("wnd[0]/usr/subITEMS:SAPLFSKB:0100/tblSAPLFSKBTABLE/txtACGL_ITEM-WRBTR[4,0]").text = "*"
session.findById("wnd[0]/usr/subITEMS:SAPLFSKB:0100/tblSAPLFSKBTABLE/ctxtACGL_ITEM-PRCTR[27,0]").text = ExcelSheet.cells (row,8).value
session.findById("wnd[0]/usr/subITEMS:SAPLFSKB:0100/tblSAPLFSKBTABLE/txtACGL_ITEM-MENGE[39,0]").text = "1"
session.findById("wnd[0]/usr/subITEMS:SAPLFSKB:0100/tblSAPLFSKBTABLE/ctxtACGL_ITEM-MEINS[40,0]").text = "Ser"
session.findById("wnd[0]/usr/subITEMS:SAPLFSKB:0100/tblSAPLFSKBTABLE/ctxtACGL_ITEM-MATNR[45,0]").text = "FE-SERCONSULTORIA"
session.findById("wnd[0]/usr/subITEMS:SAPLFSKB:0100/tblSAPLFSKBTABLE/btnACGL_ITEM-LTEXT[12,0]").setFocus
session.findById("wnd[0]/usr/subITEMS:SAPLFSKB:0100/tblSAPLFSKBTABLE/btnACGL_ITEM-LTEXT[12,0]").press
session.findById("wnd[1]/usr/subNOTICE:SAPLEENO:1000/btnEENO_TEXTE-EDITOR").press
session.findById("wnd[0]/usr/cntlSCMSW_CONTAINER_2102/shellcont/shell").setDocument 1,ExcelSheet.cells (row,9).value
session.findById("wnd[0]/tbar[0]/btn[3]").press
session.findById("wnd[1]/tbar[0]/btn[5]").press
session.findById("wnd[0]/tbar[1]/btn[9]").press
session.findById("wnd[0]/tbar[0]/btn[11]").press

SidV · 20 Junio, 2019 19:01

Hola @LILIANA, no te has presentado aún, así que no sé qué perfil eres, ni con qué versión de SAP trabajas.

Tampoco explicas con qué versión de SAP trabajas en este debate, y es necesario brindar más detalles.

Aguardo tu respuesta

LILIANA · 24 Junio, 2019 23:45

Buenas tardes SidV,
Trabajo en una empresa de contabilidad, soy nueva en el sistema SAP, el sistema lo utilizo principalmente para generar facturas, elaborar cheques y hacer cargos y compensaciones de gastos de viaje… el SAP me comentan es profesional (a lo cual es lo unico que se… no conozco mas versiones)
Estoy intentando optimizar el tiempo de elaboración de facturas por eso me decidi a hacer un script, ya pude solucionar el error “Se requiere un objeto: ExcelSheet”; Solo ahora en la ultima instrucción requiero ingresar un texto explicativo que lo tengo asignado en el Excel en la columna 9, utilice la siguiente instrucción pero me marca el error: “Se esperaba un final de instruccion”

Dim comentarios as integer,

Comentarios = ExcelSheet.cells (row,9).value

session.findById(“wnd[0]/usr/cntlSCMSW_CONTAINER_2102/shellcont/shell”).text = comentarios

me pueden ayudar??

SidV · 25 Junio, 2019 14:49

@LILIANA, por favor, fijate en el escritorio de tu PC (en la empresa), el SAP qué icono tiene?
Dice SAP Logon? o SAP Business One?
Es requisito que informes qué versión de SAP usas, para que te podamos ayudar mejor, y para categorizar tu tema correctamente.

LILIANA · 25 Junio, 2019 22:31

Una disculpa, dice SAP Logon

system · 25 Septiembre, 2019 04:31

Este tema se cerró automáticamente 91 días después del último post. No se permiten nuevas respuestas.