Here is some sample code I had written to fetch data from SAP. It uses a RFC enabled FM - RFC_READ_TABLE for reading a DB table. You will have to find a RFC enabled FM that lets you update the DB table you want to update. ( I dont think there is any generic RFC enabled FM for doing that, off course you are free to create a custom one ).
Here is the sample code for using the FM from SAP EXcel macros.. I had developed it using a sub routine in a class module for using across Excel sheets..
Sub Get_Report_List()
Dim SAPFunCtl As New SAPFunctions
Dim RFCFunc As New SAPFunctionsOCX.Function
Dim I_QUERY_TABLE
Dim T_OPTIONS
Dim T_FIELDS
Dim T_DATA
Dim Row As Integer
'Pop up for Automatic Logon.
SAPFunCtl.AutoLogon = True
'Set the Function Module to be called
Set RFCFunc = SAPFunCtl.Add("RFC_READ_TABLE")
'Set the Import, Export & Table Parameters
Set I_QUERY_TABLE = RFCFunc.Exports("QUERY_TABLE")
Set T_OPTIONS = RFCFunc.Tables("OPTIONS")
Set T_FIELDS = RFCFunc.Tables("FIELDS")
Set T_DATA = RFCFunc.Tables("DATA")
'Query Table TRDIR
I_QUERY_TABLE.Value = "TRDIR"
T_OPTIONS.AppendRow
T_OPTIONS(1, "TEXT") = "NAME LIKE 'Z%'"
T_FIELDS.AppendRow
T_FIELDS(1, "FIELDNAME") = "NAME"
T_FIELDS.AppendRow
T_FIELDS(2, "FIELDNAME") = "SUBC"
If RFCFunc.Call = True Then
If T_DATA.RowCount > 0 Then
'Clear Sheet3 - Data
Sheet3.Cells.Clear
For Row = 1 To T_DATA.RowCount
Sheet3.Cells(Row, 1) = T_DATA(Row, "WA")
Next Row
Sheet3.Activate
End If
Else
MsgBox "Connection failure."
End If
End Sub
Hope it helps.
Bluesky