excel宏以使用打开的SAP会话

2020-09-15 06:19发布

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


大家好,

excel vba和sap脚本中的 nonoob,但是我想学习,因为它可以帮助我们自动化很多我们喜欢编码和工作的工作,所以我想知道我是否只是复制并粘贴了脚本 我记录的SAP脚本? 但是当我执行该子程序时,它仅突出显示"应用程序"并显示"属性的无效使用"。 还有其他信息,我只是想使用打开的SAP实例,并在参考中已启用" SAP GUI脚本API"。 预先感谢!

子Macro1()

如果不是IsObject(Application),则

设置SapGuiAuto = GetObject(" SAPGUI")

设置应用程序= SapGuiAuto.GetScriptingEngine

如果结束

如果不是IsObject(连接),则

设置连接= GuiApplication.Children(0)

如果结束

如果不是IsObject(session),则

设置会话= Connection.Children(0)

如果结束

如果IsObject(WScript)然后

WScript.ConnectObject会话,"开启"

WScript.ConnectObject GuiApplication,"打开"

如果结束

session.FindById(" wnd [0]")。最大化

session.FindById(" wnd [0]/tbar [0]/okcd")。Text =" YIDHDLIST_USER" session.FindById(" wnd [0]")。SendVKey 0

session.FindById(" wnd [0]/usr/ctxtSO_DLID-LOW")。Text =" 273" session.FindById(" wnd [0]/tbar [1]/btn [8]")。按

结束子

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


大家好,

excel vba和sap脚本中的 nonoob,但是我想学习,因为它可以帮助我们自动化很多我们喜欢编码和工作的工作,所以我想知道我是否只是复制并粘贴了脚本 我记录的SAP脚本? 但是当我执行该子程序时,它仅突出显示"应用程序"并显示"属性的无效使用"。 还有其他信息,我只是想使用打开的SAP实例,并在参考中已启用" SAP GUI脚本API"。 预先感谢!

子Macro1()

如果不是IsObject(Application),则

设置SapGuiAuto = GetObject(" SAPGUI")

设置应用程序= SapGuiAuto.GetScriptingEngine

如果结束

如果不是IsObject(连接),则

设置连接= GuiApplication.Children(0)

如果结束

如果不是IsObject(session),则

设置会话= Connection.Children(0)

如果结束

如果IsObject(WScript)然后

WScript.ConnectObject会话,"开启"

WScript.ConnectObject GuiApplication,"打开"

如果结束

session.FindById(" wnd [0]")。最大化

session.FindById(" wnd [0]/tbar [0]/okcd")。Text =" YIDHDLIST_USER" session.FindById(" wnd [0]")。SendVKey 0

session.FindById(" wnd [0]/usr/ctxtSO_DLID-LOW")。Text =" 273" session.FindById(" wnd [0]/tbar [1]/btn [8]")。按

结束子

付费偷看设置
发送
2条回答
木偶小白
1楼 · 2020-09-15 06:48.采纳回答

你好路易斯,

应用程序在VBA中是一个对象,您可以在此处中找到更多信息。 。 重命名应用程序,例如 到App,您的代码即可使用。

最诚挚的问候
Stefan

Nan4612
2楼-- · 2020-09-15 06:46

谢谢!

一周热门 更多>