使用登录VBA帮助

2020-09-03 03:53发布

         点击此处--->   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]",但不起作用。

         点击此处--->   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]",但不起作用。

付费偷看设置
发送
2条回答
空代码
1楼-- · 2020-09-03 04:04

您好,Gabriel,

欢迎SAP社区。

我在VBA中尝试了您的代码,它可以工作。 但是我将Shell命令的参数更改为saplogon.exe。

 Sub SAP_OpenSessionFromLogon()
  
   外壳程序" C:\ Program Files(x86)\ SAP \ FrontEnd \ SAPgui \ saplogon.exe"
   设置SapGui = GetObject(" SAPGUI")
   设置Applic = SapGui.GetScriptingEngine
   设置连接= Applic.OpenConnection(" SAP Logon中的系统名称",True)'<-这里是SAP Logon名称栏中的系统名称
   设置会话= 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

   设置会话=无
   connection.CloseSession(" ses [0]")
   设置连接=无
   设置sap = Nothing

 结束子
 

最诚挚的问候
Stefan

一只江湖小虾
2楼-- · 2020-09-03 04:23

Hello Srikar,

抱歉,我不知道机器人框架

最诚挚的问候
Stefan

一周热门 更多>