在 VBA 中调用 RFC_READ_TABLE 期间出现错误 61704答案

【问题标题】：Error 61704 during calling RFC_READ_TABLE in VBA在 VBA 中调用 RFC_READ_TABLE 期间出现错误 61704
【发布时间】：2020-04-23 08:24:45
【问题描述】：

我正在尝试通过 RFC 对象连接到 SAP：

Dim sap As Object
Set sap = CreateObject("SAP.Functions.unicode")
sap.connection.system = "xxxxxxxx"
sap.connection.Client = "700"
sap.connection.User = "USER"
sap.connection.Password = "PASS"
sap.connection.Language = "EN"

If sap.connection.Logon(1, False) <> True Then 'Try Logon
   MsgBox "Cannot Log on to SAP"
End If

'*************************************************************
'Define the table specifics
'************************************************************

Dim objRfcFunc As Object
Set objRfcFunc = sap.Add("RFC_READ_TABLE") 'IN THIS LINE MY ERROR OCCURS

内部应用程序错误 - 运行时错误：61704

有什么解决办法吗？

我的连接好像没问题。你能检查我的连接变量吗？

【问题讨论】：

当您运行它时，我想您没有收到“无法登录到 SAP”的消息，对吧？你有什么理由使用...Logon(1,False) 而不是...Logon(0,False)？（这是一个 hWND 参数，用于引用 Windows 对话框窗口，但我总是看到人们使用 0；请注意，布尔值用于静默异常）
您的屏幕截图不包含代码中的任何变量！怎么来的？

标签： vba sap ole saprfc

【解决方案1】：

我从here 获取以下代码并对其进行调整对我有用。当然，您还必须更改连接参数（用户名等）。我猜你的问题是你一开始就没有连接。

Sub Test_RFC()
    ' Connect to SAP
    Dim oSAP As Object
    Set oSAP = CreateObject("SAP.Functions.unicode")
    ' Connection parameters - to be adjusted
    oSAP.Connection.ApplicationServer = "1.1.1.1" ' IP des Appl-Servers (SM51->Details)
    oSAP.Connection.SystemNumber = "01"           ' Systemnummer, meißt im Namen des Appl-Servers enthalten
    oSAP.Connection.System = "XD1"                ' Entwicklungs-, Test-, Produktivsystem
    oSAP.Connection.Client = "100"                ' Mandant
    oSAP.Connection.Language = "DE"               ' Sprache "EN", "DE" ...



    ' RFC-Login: Show logon popup
    If oSAP.Connection.Logon(0, False) = True Then
        'You can only add a function module in case you have a connection
        Dim oFuBa As Object            
        Set oFuBa = oSAP.Add("RFC_READ_TABLE")

    End If
End Sub

【讨论】：