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

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

大家好，

首先，我要感谢您对这个社区的支持。 我发现并迷恋了很多我的激情；）爱的片段：）

我有第二个问题：

如何管理SAPLOGON和其他连接？

我的意思是，如果SAP已经打开，则脚本不必再次将其打开。

如果您还可以给我一些示例，我们如何在VBA中管理对象，我将非常高兴：）

这是我编写的代码（只是开始）。

Sub SAP_OpenSessionFromLogon（）'开始SAP流程

Dim SapGui

昏暗的应用

暗淡连接

昏暗会话

昏暗的WSHShell

Shell" 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 =否

设置SapGui = GetObject（" SAPGUI"）

设置应用= SapGui.GetScriptingEngine

设置连接= Applic.OpenConnection（" PE3-KC Production EMEA ERP ECC6"，是）

设置会话= connection.Children（0）

session.FindById（" wnd [0]"）。最大化

如果不是IsObject（App），则

设置SapGuiAuto = GetObject（" SAPGUI"）

设置应用= SapGuiAuto.GetScriptingEngine

如果结束

如果不是IsObject（连接），则

设置连接= App.Children（0）

如果结束

如果不是IsObject（session），则

设置会话= connection.Children（0）

如果结束

如果IsObject（WScript），则WScript.ConnectObject会话，"在" WScript.ConnectObject应用程序，"在"

如果结束

session.FindById（" wnd [0]"）。SendVKey 0

......................

....................

该脚本正在运行，但是如果已经打开，我将避免再次运行它。

也许带有" If not is .."或athor代码，我可以避免。

能请你帮我吗？

谢谢。

对不起，我的英语语言，如果脚本中有错误，但是6个月前我开始使用编码（VBA），现在我开始使用SAPgui。 ：（

托木克