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