以表为输入参数的VBA到SAP // RFC功能模块

Question

我想通过RFC-连接器从Excel向SAP发送数据。

对于RFC函数模块，我必须填充一个表作为输入参数。可与RFC功能模块STFC_DEEP_TABLE媲美。

我的VBA代码在with语句处停止，错误如下：

“对象变量或块变量未设置”。

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

我无法测试这一点，但是从VBA/上读到，看起来就像.Net连接器的C#语法一样，在设置字段值之前，必须向导入表中添加一行。

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

对于赋值的行，我不太确定，cell方法的参数应该是正确的，但我只发现了几个稍微矛盾的博客和论坛文章，而且我也不完全确定参数的顺序是否正确。

Answer 2

我也遇到了同样的问题，无法实例化BAPI。SAP人员修改了BAPI，我可以访问它而不修改代码。

顺便说一句:参数顺序是：

 import_tab.cell(line#, fieldname) = "X"