使用登录VBA帮助

2020-09-03 03:53发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)我正在尝试使用在这里找到的该程序...

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

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


我正在尝试使用在这里找到的该程序登录SAP Logon Pad:

子SAP_OpenSessionFromLogon()

Dim SapGui

昏暗的应用

昏暗的连接

昏暗会话

Shell(" C:\ Program Files(x86)\ SAP \ FrontEnd \ SAPgui \ sapfewcp.exe")

设置SapGui = GetObject(" SAPGUI")

Rem创建GuiApplication对象

设置应用= SapGui.GetScriptingEngine

Rem打开连接

设置连接= Applic.OpenConnection(" QLA-ECC项目一个质量系统",True)'<===这里您需要填写连接描述

设置会话= connection.Children(0)

session.findById(" wnd [0]")。maximize

session.findById(" wnd [0]/usr/txtRSYST-MANDT")。Text =" 120"

session.findById(" wnd [0]/usr/txtRSYST-BNAME")。Text =" MASOUZA"

session.findById(" wnd [0]")。sendVKey 0

Rem做点什么:填写登录屏幕

Rem或在单点登录的情况下开始交易。

session.SendCommand("/img/nbibs")

MsgBox"正在等待..."

Rem关闭连接

设置会话=无

connection.CloseSession(" ses [0]")

设置连接=无

设置SAP=什么

MsgBox"完成"

结束子

我应该在这一行中输入什么? 粗体标记

设置连接= Applic.OpenConnection(" QLA-ECC项目一个质量系统",是)

我试图将在我的SAP Logon Pad中找到的名称放入" 0318-SA-PB0- [ERP]",但不起作用。