Excel VBA与SAP的连接

Question

尝试从Excel中的VBA连接到SAP时出现以下错误：

  

使用Unicode的本地主机上的CPIC（TCP / IP）

     

RFC_COMMUNICATION_FAILURE

我正在使用以下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服务器正在响应ping。我从SAP Business Client菜单-系统-状态中获得了其余的连接参数。

主机数据

服务器名称

数据库数据

名称

主机

数据库数据主机名响应ping。主机数据服务器名称不存在。我尝试过的所有变化都会导致相同的错误。

更新：需要成为使用SSO的解决方案。