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的評論。