Ошибка 61704 при вызове RFC_READ_TABLE в VBA - PullRequest
Новая
       103

Ошибка 61704 при вызове RFC_READ_TABLE в VBA

0 голосов
/ 23 апреля 2020

Я пытаюсь подключиться к SAP через объекты RF C: 

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

Есть какие-нибудь решения?

connection parameters Похоже, мое соединение в порядке. Не могли бы вы проверить мои переменные соединения?

1 Ответ

1 голос
/ 23 апреля 2020

Следующий код, который я взял из здесь и настроил, работал для меня. Конечно, вы должны изменить параметры подключения (имя пользователя и т. Д. c.). Я полагаю, ваша проблема в том, что у вас нет связи. 

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
...