点击此处--->   群内免费提供SAP练习系统（在群公告中）

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

大家好，我是新手，我正在尝试打开一个SAP部分，并使用Excel VBA启动事务。

假设：

在SAP中，我具有以下系统列表：

此刻，我正在使用对我有用的这段代码：

 Dim SapGui
 昏暗的应用
 暗淡的连接
 昏暗的会议
 昏暗的WSHShell

 外壳程序" C：\ Program Files（x86）\ SAP \ FrontEnd \ SAPgui \ saplogon.exe"，vbNormalFocus
 设置WSHShell = CreateObject（" WScript.Shell"）
 直到WSHShell.AppActivate（" SAP Logon"）执行
     Application.Wait Now + TimeValue（" 0:00:01"）
 循环
 设置WSHShell = Nothing
 Set SapGui = GetObject（" SAPGUI"）'获取SAP GUI脚本对象
 Set Applic = SapGui.GetScriptingEngine'获取当前正在运行的SAP GUI
 设置连接= Applic.OpenConnection（" 01。TEST1"，True）
 设置会话= connection.Children（0）

 session.findById（" wnd [0]"）。maximize
 session.findById（" wnd [0]/usr/txtRSYST-MANDT"）。Text =" 100"
 session.findById（" wnd [0]/usr/txtRSYST-BNAME"）。Text =" myusername"
 session.findById（" wnd [0]/usr/pwdRSYST-BCODE"）。Text =" mypassword"
 session.findById（" wnd [0]/usr/txtRSYST-LANGU"）。Text =" EN"
 session.findById（" wnd [0]"）。sendVKey 0
 session.SendCommand（"/img/nSLG1"）'启动SLG1事务
 session.findById（" wnd [0]/usr/ctxtBALHDR-OBJECT"）。Text =" YESMAN"'填充"对象"字段
 session.findById（" wnd [0]"）。sendVKey 8'发送F8命令

 MsgBox"当您完成使用SAP时，请在下面单击"确定"。
 设置会话=无
 connection.CloseSession（" ses [0]"）
 设置连接=无
 设置SAP = Nothing 

不幸的是，此代码不适用于我的同事，因为他在系统列表中的名字是" 1。 TEST1"，而不是我的" 01。 TEST1"。

是否可以修改代码字符串" 设置连接= Applic.OpenConnection（" 01。TEST1"，True）"，以便使用相关的SID设置连接（在这种情况下） " ST1 "）对所有用户都一样？

在此先感谢大家的贡献！

最大