SAP Logon运行时错误1000

Question

使用以下代码登录SAP。

   Sub Logontrial()

    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 sapConnection As Object

    If SapGuiApp Is Nothing Then
        Set SapGuiApp = CreateObject("Sapgui.ScriptingCtrl.1")
    End If
    If oConnection Is Nothing Then
        Set oConnection = SapGuiApp.OpenConnection("Description of connection")
    End If
    If SAPSesi Is Nothing Then
       Set SAPSesi = oConnection.Children(0)
    End If

     sapConnection.Client = "011"
     sapConnection.User = "TEST123"
     sapConnection.Password = "XXXX"
     sapConnection.Language = "EN"

    End Sub

运行时错误'1000'。 未找到SAP登录连接条目。已完成此主题的充分研发。 仍然没有成功。 对此代码的更正将不胜感激。

Answer 1

@ AxelRichter上面的评论为我解决了这个问题：

在SapGuiApp.OpenConnection（“连接描述”）中，连接描述必须与SAP连接的名称完全匹配，如登录板中所示。

Answer 2

名称NAME NAME就是其中之一。 我有同样的问题，所有时间我有SID（3 CHARACTER）继续处理我的宏，然后停止工作，然后改为连接的名称（连接描述），它工作。 感谢Axel Richter的评论。