Question

我从互联网上获得了一个代码来自动打开SAP并登录，但是我需要系统名称来设置SAP和VBA之间的连接。我尝试了在登录窗口中可以找到的所有条目，但所有这些都无效。我在互联网上搜索了很多内容，但找不到任何明确的描述。来自互联网的代码如下：

这部分代码有问题：

 Set SAPCon = SapGuiApp.OpenConnectionByConnectionString("SYSTEM", True)

我尝试使用许多ID代替SYSTEM，但出现此错误：SAPgui组件无法实例化。

Sub Download_Click()


Dim SapGuiApp As Object
Dim oConnection As Object
Dim session As Object
Dim SAPCon As Object, SAPSesi As Object
Dim SAPGUIAuto As Object, SAPApp As Object
Dim strUser As String
Dim strPW As String


strUser = Environ(" ") ' put your username of SAP

strPW = InputBox(Prompt:="Please Enter SAP PEA password:", Title:="Enter Password", Default:="********")

Application.DisplayAlerts = False

If SapGuiApp Is Nothing Then
    Set SapGuiApp = CreateObject("Sapgui.ScriptingCtrl.1")
    Set SAPApp = SapGuiApp.GetScriptingEngine
End If


If SAPCon Is Nothing Then
    Set SAPCon = SapGuiApp.OpenConnectionByConnectionString("SYSTEM", True) ' fill in the system
End If

If SAPSesi Is Nothing Then
   Set SAPSesi = SAPCon.Children(0)
End If

With SAPSesi
    .FindById("wnd[0]/usr/txtRSYST-MANDT").Text = "900"
    .FindById("wnd[0]/usr/txtRSYST-BNAME").Text = strUser
    .FindById("wnd[0]/usr/pwdRSYST-BCODE").Text = strPW
    .FindById("wnd[0]/usr/txtRSYST-LANGU").Text = "EN"
    .FindById("wnd[0]").SendVKey 0
End With

在哪里可以找到用于将其与VBA连接的SAP系统连接

0 个答案: