点击此处---> 群内免费提供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
嗨Vamsi,
也许对您有用:
https://scn.sap.com/thread/3793207
问候,
ScriptMan
大家好,
有人有机会解决这个问题吗? 请为我提供解决问题的解决方案。
嗨,萨普·古鲁斯,
我们有完全相同的问题。
从那以后您还找到其他东西了吗?
谢谢
嗨,Scriptman,
它可以更早地工作,并且连接详细信息没有更改。 一样,但是最近几天不起作用。
谢谢
Vamsi
一周热门 更多>