1、RFCStructure

RFCConfiguration des propriétés：

RFCParamètres d'entrée：

ZSCE_MAT×Structure du tableau： 

RFCParamètres de sortie：

2、VBACode

Public Const StartRow% = 2   ' Ligne de départ des données 
Public Const EndRow% = 3  ' Ligne de fin de données 
Public Const DataSheetName$ = "Data"
Public SAP As Object
'******************************************************************************
'* Function Desc:VBAAppelezSAP RFC
'* Author: 
'* Param:
'* Returns:
'******************************************************************************
Sub InputData()
Dim WrtDataResult As String
Dim IMATNR$, ZYIELD$

    If ContectSAP = False Then
        MsgBox "ConnexionSAPÉchec"
        Exit Sub
    End If
    If MsgBox("ConnexionSAPSuccès！ Oui Non " & DataSheetName & "Importation de donnéesSAP？", vbYesNo, "Attention") = vbNo Then
        Exit Sub
    End If
    Call OperationPrompts("Écrire des données àSAP,Attendez, s'il vous plaît.……")
    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
        'Déconnecter
        SAP.Connection.LOGOFF
        Call OperationPrompts("DéconnectéSAP……")
        UF_Prompt.Label1.Caption = "【Programme terminé】"
        ThisWorkbook.Save
    End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

AppelezRFCCode de base：

'******************************************************************************
'* Function Desc:VBAAppelezSAP 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 Assignation des tables de paramètres 
    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
       ' Définir les paramètres de retour 
        Set Result1 = RFC.Imports("ZMSGNO")
        Set Result2 = RFC.Imports("ZMESSG")
        CallRFC = MATNR_No & "," & Result1.Value & "," & Result2.Value
    Else
       CallRFC = "RFCL'appel a échoué！"
    End If
    
    InputTable.FreeTable
    Set InputTable = Nothing
    Set Result1 = Nothing
    Set Result2 = Nothing
    Set RFC = Nothing
    
End Function

Dans le CodeRFC L'assignation de la structure du tableau nécessite une assignation ligne par ligne .Exports Parameter Transfer participation ImportsParamètres similaires.

RFCDans l'appel de,ExportsIndique l'entréeRFCParamètres pour,ImportsReprésentationRFC Résultat de l'appel retourné .

Résumé：

        Dans le travail quotidien,VBALireSAPTableau,Ou appelerRFCC'est plus pratique.,Pas besoin deSAPUtiliserABAP Développement et transmission de systèmes de production assortis , Fondamentalement, le code ci - dessus peut être modifié .

Pour de plus amples informations, veuillez consulter：ExcelVBAAvecSAPRFCInstance d'appel d'interface - Filet de douding