1、RFC结构

RFC属性配置：

RFC输入参数：

ZSCE_MAT×表结构：?

RFC输出参数：

2、VBA代码

Public Const StartRow% = 2   '数据起始行
Public Const EndRow% = 3  '数据结束行
Public Const DataSheetName$ = "Data"
Public SAP As Object
'******************************************************************************
'* Function Desc:VBA调用SAP RFC
'* Author: 
'* Param:
'* Returns:
'******************************************************************************
Sub InputData()
Dim WrtDataResult As String
Dim IMATNR$, ZYIELD$

? ? If ContectSAP = False Then
? ? ? ? MsgBox "连接SAP失败"
? ? ? ? Exit Sub
? ? End If
? ? If MsgBox("连接SAP成功！是否将表" & DataSheetName & "中数据导入SAP？", vbYesNo, "警告") = vbNo Then
? ? ? ? Exit Sub
? ? End If
? ? Call OperationPrompts("写入数据到SAP，请稍候……")
? ? Application.DisplayAlerts = False
? ? Application.ScreenUpdating = False
? ??
? ? With ThisWorkbook.Sheets(DataSheetName)
? ? ? ? For i = StartRow To EndRow
? ? ? ? ? ?IMATNR = .Cells(i, 1).Value
? ? ? ? ? ?ZYIELD = .Cells(i, 2).Value
? ? ? ? ? ?WrtDataResult = CallRFC(IMATNR, ZYIELD)
? ? ? ? ? ?.Cells(i, 3).Value = WrtDataResult
? ? ? ? Next i
? ? ? ? '注销登录
? ? ? ? SAP.Connection.LOGOFF
? ? ? ? Call OperationPrompts("已断开SAP……")
? ? ? ? UF_Prompt.Label1.Caption = "【程序运行结束】"
? ? ? ? ThisWorkbook.Save
? ? End With
? ? Application.DisplayAlerts = True
? ? Application.ScreenUpdating = True
End Sub

调用RFC核心代码：

'******************************************************************************
'* Function Desc:VBA调用SAP RFC
'* Author: 
'* Param:
'*          MATNR_No:
'*          ZYIELD_value: 
'* Returns:
'******************************************************************************
Public Function CallRFC(MATNR_No$, ZYIELD_Value$) As String
Dim LogFlag As Boolean
Dim Result As String
Dim InputTable As Object
Dim Result1 As Object
Dim Result2 As Object


    Set RFC = SAP.Add("RFC_Z_SCE_CHANGEMATERIAL")
    Set InputTable = RFC.Tables("ZSCE_MAT_GDPW")
    
    'rfc参数表赋值
    With InputTable
        .Rows.Add
        .Value(.RowCount, "MATNR") = MATNR_No
        '.Value(.ROWCOUNT, "VOLUM") = VOLUM_Value
        .Value(.RowCount, "ZYIELD") = ZYIELD_Value
    End With
    
    'call RFC
    LogFlag = RFC.Call
    If LogFlag = True Then
       '设置返回参数
        Set Result1 = RFC.Imports("ZMSGNO")
        Set Result2 = RFC.Imports("ZMESSG")
        CallRFC = MATNR_No & "," & Result1.Value & "," & Result2.Value
    Else
       CallRFC = "RFC调用失败！"
    End If
    
    InputTable.FreeTable
    Set InputTable = Nothing
    Set Result1 = Nothing
    Set Result2 = Nothing
    Set RFC = Nothing
    
End Function

代码中RFC表结构赋值需要一行一行赋值。Exports参数传参和Imports参数类似。

RFC的调用中，Exports表示输入RFC的参数，Imports表示RFC返回的调用结果。