找不到SAP登录连接条目-之前可以正常使用

2020-08-20 04:53发布

         点击此处--->   EasySAP.com群内免费提供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

         点击此处--->   EasySAP.com群内免费提供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

付费偷看设置
发送
4条回答
打个大熊猫
1楼-- · 2020-08-20 05:14

嗨Vamsi,

也许对您有用:

https://scn.sap.com/thread/3793207

问候,

ScriptMan

愤怒的猪头君
2楼-- · 2020-08-20 05:10

大家好,

有人有机会解决这个问题吗? 请为我提供解决问题的解决方案。

歪着头看世界
3楼-- · 2020-08-20 05:11

嗨,萨普·古鲁斯,

我们有完全相同的问题。

从那以后您还找到其他东西了吗?

谢谢

SAP小黑
4楼-- · 2020-08-20 05:24

嗨,Scriptman,

它可以更早地工作,并且连接详细信息没有更改。 一样,但是最近几天不起作用。

谢谢

Vamsi

一周热门 更多>