Excel VBA到SAP的连接

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

本地主机上使用Unicode的CPIC(TCP/IP)

RFC\通信\故障

我正在使用以下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。主机数据服务器名称不存在。我尝试过的所有变体都会导致相同的错误。