Соединение SAP RFC с VBA - BAD VARIANT TYPE - PullRequest
Новая
       33

Соединение SAP RFC с VBA - BAD VARIANT TYPE

0 голосов
/ 05 июня 2019

У меня проблема с SAP RFC, когда я пытаюсь загрузить некоторые таблицы. Когда я пытаюсь создать соединение, я получаю следующую ошибку: ПЛОХОЙ ВАРИАНТ ТИПА.

Я проверил реестр regedit на RFC, и все в порядке. ИТ-специалист установил SAP 7.50, но я не могу использовать такую ​​версию, потому что она не позволяет мне загружать некоторые таблицы, которые мне нужны, поэтому я попросил тогда сделать переход на версию sap 7.40. Проблема началась только там. 

Public Sub conecta_sap()

    Set ctlLogon = CreateObject("SAP.LogonControl.1")
    Set funcControl = CreateObject("SAP.Functions")
    Set ctlTableFactory = CreateObject("SAP.TableFactory.1")
    Set objWindowsScriptShell = CreateObject("WScript.Shell")
    Set objConnection = ctlLogon.NewConnection

    objConnection.ApplicationServer = "XXXXXXXXXX"
    objConnection.SystemNumber = "30"
    objConnection.Client = "300"
    objConnection.Language = "PT"
    objConnection.USER = "RFC_LANCO"
    objConnection.Password = "XXXXXXXX"
    booReturn = objConnection.logon(0, True)

    If booReturn <> True Then
        MsgBox "Impossível conectar no SAP!"
        End
    End If

    funcControl.Connection = objConnection
    Set RFC_READ_TABLE = funcControl.Add("RFC_READ_TABLE")
    Set strExport1 = RFC_READ_TABLE.exports("QUERY_TABLE")
    Set strExport2 = RFC_READ_TABLE.exports("DELIMITER")
    Set tblOptions = RFC_READ_TABLE.Tables("OPTIONS")
    Set tblData = RFC_READ_TABLE.Tables("DATA")
    Set tblFields = RFC_READ_TABLE.Tables("FIELDS")

End Sub

Когда я достигну этой строки: funcControl.Connection = objConnection

Я получаю следующую ошибку: "Erro em tempo de executeção '-2147352568 (80020008)": Плохой вариант типа "

Может кто-нибудь помочь мне решить эту проблему?

Спасибо!

...