如何用VBA选择SAP系统

Question

我翻遍了整个互联网，但没有找到类似的东西。

我正在写的VBA程序，从SAP提取数据到Excel，一切都很顺利。我想自动化整个过程，并通过VBA打开SAP登录，这不是问题，但在我们公司有许多基于Sap的系统，所以在打开SAP登录和授权之间有一个窗口，在那里我应该选择一个服务器(屏幕截图)。您知道如何通过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

我希望这对你有用！