Где я могу найти соединение системы SAP для его соединения с VBA - PullRequest
Новая
       27

Где я могу найти соединение системы SAP для его соединения с VBA

0 голосов
/ 25 января 2019

У меня есть код из Интернета для автоматического открытия 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
...