Excel VBA Подключение к SAP - PullRequest
Новая
       21

Excel VBA Подключение к SAP

0 голосов
/ 21 февраля 2019

У меня возникает следующая ошибка при попытке подключения к SAP из VBA в Excel:

CPIC (TCP / IP) на локальном хосте с Unicode

RFC_COMMUNICATION_FAILURE

enter image description here

Я использую следующий код VBA, который, как представляется, является хорошо документированным способом подключения: 

Public Sub Connection_SAP()

Dim oFunc As SAPFunctionsOCX.SAPFunctions
Dim oConn As SAPLogonCtrl.Connection
Dim SAPConn As Integer

Set oFunc = CreateObject("SAP.Functions.Unicode")
If Not IsObject(oFunc) Then
   MsgBox "CreateObject(SAP.Functions.Unicode) failed", vbOKOnly, _
     "Error"
   Exit Sub
End If

Set oConn = oFunc.Connection()
If Not IsObject(oConn) Then
  MsgBox "SAPFunc.Connection failed", vbOKOnly, "Error"
  Exit Sub
End If

oConn.Client = "100"
oConn.User = "username"
oConn.Password = "password"
oConn.System = "prod02" ' db data - Name?
oConn.Language = "EN"
oConn.HostName = "sap01" ' db host or host data Server Name?

SAPConn = oConn.Logon(0, vbFalse)
If SAPConn <> 0 Then

  oConn.Logoff
Else
  MsgBox "Connection.Logon failed", vbOKOnly, "Error"
End If

End Sub

Сервер sap01отвечая на пинг.Остальные параметры соединения, полученные из меню SAP Business Client - Система - Статус.

Данные хоста

Имя сервера

База данныхДанные

Имя

Хост

Данные базы данных Имя хоста отвечает на запрос ping.Хост данных Сервер Имя не имеет.Все варианты, которые я попробовал, приводят к одной и той же ошибке.

ОБНОВЛЕНИЕ: должно быть решением для работы с SSO.

...