Un esempio di come appaia il codice VBA scritto utilizzano la classe che abbiamo creato per semplificare l'interfacciamento di Excel con SAP
Questa macro di esempio richiama i dati di un accordo inserito in SAP e riportandolo in forma tabellare sul foglio di calcolo.
Sub EsportaAccordo()
Set Wba = ActiveWorkbook
Set Fa = Wba.
Sheets("FileAccordo")
Fa.Activate
NrAccordo= Fa.
Range("NrAccordo")
' crea la classe e la transazione
Dim FinSAP
As New Mf_ScriptSAP
FinSAP.
Apri_Sessione
' verifica che l'interfaccia di sap sia disponibile
If (FinSAP.
NonAttiva)
Then
MsgBox "Deve essere avviato SAP per poter eseguire la macro."
Exit Sub
Else
' richiama la transazione
FinSAP.
Transazione ("stAccordi")
' compila i campi ed esegue
FinSAP.
Campo("V_AVL") = True
FinSAP.
Campo("NR_ACCORDO") = NrAccordo
FinSAP.
Esegui
' riporta il risultato dalla griglia AVL ad excel
FinSAP.
EsportaGriglia Posizione:=
Range("B5")
' ritorna al menu principale
FinSAP.
Esci
End If
End Sub
