Module de fonction VBA vers SAP // RFC avec table en entrée Paramètre

Question

Je souhaite envoyer des données d'Excel via un connecteur RFC à SAP. Pour le module de fonction RFC, je dois remplir une table en tant que paramètre d'entrée. Comparable au module de fonction RFC STFC_DEEP_TABLE. Malheureusement, mon code VBA arrête à la déclaration avec l'erreur:

“Object variable or With block variable not set”.

Voir ci-dessous.

S'il vous plaît, quelqu'un peut-il m'aider? Qu'est-ce qui ne va pas?

Sub RFC_DEEP_TABLE() 
Dim sapConn As Object 
Set sapConn = CreateObject("SAP.Functions") 

If sapConn.Connection.Logon(0, False) <> True Then 
    MsgBox "Cannot Log on to SAP" 
End If 

Dim objRfcFunc As Object 
Set objRfcFunc = sapConn.Add("STFC_DEEP_TABLE") 

With objRfcFunc 
    .Exports.Item("IMPORT_TAB").value("STR") = "X" 'Objectvariable oder With-Blockvariable nicht festgelegt 
End With 

If objRfcFunc.Call = False Then 
    MsgBox objRfcFunc.Exception 
End If 

End Sub 

Answer 1

Je ne peux pas tester, mais à la lecture sur VBA/SAP Net Connector, il semble que vous, similaire à la syntaxe .Net Connector for C#, doivent ajouter une ligne à une table d'importation avant définir des valeurs de champ.

Sub RFC_DEEP_TABLE() 
    Dim sapConn As Object 
    Set sapConn = CreateObject("SAP.Functions") 

    If sapConn.Connection.Logon(0, False) <> True Then 
    MsgBox "Cannot Log on to SAP" 
    End If 

    Dim objRfcFunc As Object 
    Set objRfcFunc = sapConn.Add("STFC_DEEP_TABLE") 

    Set import_tab = objRfcFunc.Tables("IMPORT_TAB") 
    import_tab.freetable 
    import_tab.appendrow 
    import_tab.cell("STR", 1) = "X" 

    If objRfcFunc.Call = False Then 
    MsgBox objRfcFunc.Exception 
    End If 

End Sub 

Je ne suis pas complètement sûr de la ligne affectant la valeur, les paramètres de la méthode cell devraient être raison, mais je ne ai trouvé quelques messages de blog et forum légèrement contradictoires et je ne suis pas absolument sûr l'ordre des paramètres est correct.