Code: Alles auswählen.
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
Code: Alles auswählen.
objRfcFunc.Exports.Item("IMPORT_TAB").value("STR") = "X"
Code: Alles auswählen.
Dim objRfcFunc As Object
Dim objStructure As Object
Set objRfcFunc = sapConn.Add("STFC_DEEP_TABLE")
set objStructure = objRfcFunc.Exports("IMPORT_TAB")
objStructure.value("STR") = "X"
:
:
Code: Alles auswählen.
Set objStructure = objRfcFunc.Exports("IMPORT_TAB")