如何通过VBA选择SAP系统

Question

我已经挖掘了整个互联网，但没有找到类似的东西。

我正在编写VBA程序，它将数据从SAP提取到Excel，一切顺利。我希望自动化整个过程并通过VBA打开Sap登录这不是问题，但在我们公司有很多基于SAP的系统，所以在打开SAP Logon和授权之间有一个窗口，我应该选择一个服务器（截图）。您知道如何通过VBA自动选择服务器吗？

非常关注。

Answer 1

我使用下面的代码选择SAP系统。

Sub Choose_SAP(system_SAP As String, userSAP As String, passwordSAP As String)                                                                    

     Dim APP As Variant                                             
     Dim SapGuiAuto As Variant                                      
     Dim Connection As Variant                                      
     Dim session As Variant                                            

     Set SapGuiAuto = GetObject("SAPGUI")

     Set APP = SapGuiAuto.GetScriptingEngine

     Set Connection = APP.OpenConnection(system_SAP , True)

     Set session = Connection.Children(0)

     session.FindById("wnd[0]").maximize
     session.FindById("wnd[0]/usr/txtRSYST-BNAME").Text = userSAP
     session.FindById("wnd[0]/usr/pwdRSYST-BCODE").Text = passwordSAP
     session.FindById("wnd[0]/tbar[0]/btn[0]").press
End Sub

我希望这对您有用！