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

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

亲爱的脚本专家，

感谢VBA编码中的帖子可以连接到SAP。 以下是我们根据您的发布使用的代码。 直到最近几天，一切都很好。 突然，它无法正常工作，并且不确定问题出在什么地方。我调试时，编码在 Set oConnection = SapGuiApp.OpenConnection（" XX2 [public]"，True）处结束，并显示错误消息" < strong> 1000：找不到SAP登录连接条目"。 如果您最近遇到任何情况，请告诉我。 我们使用的是GUI730。感谢您的帮助

Sub Logontrial（）

将SapGuiApp视作对象

将oConnection视作对象

将会话设为对象

将SAPCon作为对象，将SAPSesi作为对象

将SAPGUIAuto视作对象，将SAPApp视作对象

将sapConnection视作对象

sapID = Sheet1.Cells（i，1）

sapPassword = Sheet1.Cells（i，2）

tcode = Sheet1.Cells（i，3）

路径= Sheet1.Cells（i，4）

如果没有SapGuiApp，那么

设置SapGuiApp = CreateObject（" Sapgui.ScriptingCtrl.1"）

如果结束

如果没有任何连接

'Application.DisplayAlerts = False

设置oConnection = SapGuiApp.OpenConnection（" XX2 [public]"，True）

如果结束

如果没有SAPSesi，那么

设置SAPSesi = oConnection.Children（0）

如果结束

Application.DisplayAlerts = False

使用SAPSesi

.FindById（" wnd [0]/usr/txtRSYST-MANDT"）。Text =" 100"

.FindById（" wnd [0]/usr/txtRSYST-BNAME"）。Text = sapID

.FindById（" wnd [0]/usr/pwdRSYST-BCODE"）。Text = sapPassword

.FindById（" wnd [0]/usr/txtRSYST-LANGU"）。Text =" EN"

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

.FindById（" wnd [1]/usr/pwdRSYST-NCODE"）。Text = tcode

.FindById（" wnd [1]/usr/pwdRSYST-NCOD2"）。Text = tcode

.FindById（" wnd [1]/usr/pwdRSYST-NCOD2"）。SetFocus

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