如何从打开的SAP会话中获取用户ID？

Posted

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了如何从打开的SAP会话中获取用户ID？相关的知识，希望对你有一定的参考价值。

我需要将用户ID转换为VBA代码。

就像在图片上：

enter image description here

我试过了

UserId = Session.FindById("wnd[0]").User

但它失败了。什么是正确的方法？

答案

事实证明这很简单：

Sub Getuser()



Dim SapGuiAuto
Dim SetApp
Dim Connection
Dim Session



Set SapGuiAuto = GetObject("SAPGUI")
Set SetApp = SapGuiAuto.GetScriptingEngine
Set Connection = SetApp.Children(0)
Set Session = Connection.Children(0)

Session.FindById("wnd[0]").Maximize
Session.FindById("wnd[0]/mbar/menu[4]/menu[11]").Select

MsgBox Session.FindById("wnd[1]/usr/txtSYST-UNAME").Text
Session.FindById("wnd[1]/tbar[0]/btn[0]").Press

End Sub

以上是关于如何从打开的SAP会话中获取用户ID？的主要内容，如果未能解决你的问题，请参考以下文章