Schließen Sie Excel mit SAP über RFC

Ist es nicht möglich, den Anruf alle standard-Transaktion aus der Ferne, wie die meisten von Ihnen sind ältere-wie und nicht wieder alles direkt.
Es gibt einige Möglichkeiten zum abrufen von Daten aus jeder Transaktion, aber Sie sind aus dem Anwendungsbereich dieser Frage.
Die meisten praktischen Weg, der retrieveing Daten aus SAP in Excel ist das finden der richtigen BAPIS oder remote-fähigen FM, (einschließlich schreiben von eigenen wrapper FM) und dies ist der Weg werde ich hier beschreiben.

1. Sie brauchen keine speziellen account, Sie müssen nur die korrekten Berechtigungen für RFC-Aufrufe, die hauptsächlich aus der S_RFC Berechtigungsobjekt
2. Wenn Sie BAPI können Sie überspringen Sie diesen Punkt. Wenn Sie erstellt eigene wrapper, dann haben Sie zu versichern, ist remote-fähige.

3. Und dann rufen Sie Ihre FM in VBA-code und die Rückgabe der Ergebnisse an Excel-Buch. Hier ist der Beispielcode:

   ' Logging in
   
     Dim retcd        As Boolean
     Dim SilentLogon  As Boolean
     Set LogonControl = CreateObject(“SAP.LogonControl.1”)
     Set objBAPIControl = CreateObject(“SAP.Functions”)
     Set R3Connection = LogonControl.NewConnection
     R3Connection.Client = "700"
     R3Connection.ApplicationServer = "server_address" 
     R3Connection.Language = "EN"
     R3Connection.User = "sap_user"
     R3Connection.Password = "sap_pass"
     R3Connection.System = "system_id"
     R3Connection.SystemNumber = "sys_num"
     R3Connection.UseSAPLogonIni = False
     retcd = R3Connection.Logon(0, SilentLogon)
     If retcd <> True Then MsgBox “Logon failed”: Exit Sub
   
     ' Declaring FM interface
   
      objBAPIControl.Connection = R3Connection
      Set objgetaddress = objBAPIControl.Add(“ZNM_GET_EMPLOYEE_DETAILS”)
      Set objkunnr = objgetaddress.Tables(“ET_KUNNR”)
      Set objaddress = objgetaddress.Tables(“ET_CUST_LIST”)
   
      ' Filling select-options values table from sheet
   
      Dim sht As Worksheet
      Set sht = ThisWorkbook.ActiveSheet
      If sht.Cells(6, 2).Value <> ” ” Then
      objkunnr.Rows.Add
      objkunnr.Value(1, “SIGN”) = sht.Cells(6, 2).Value
      objkunnr.Value(1, “OPTION”) = sht.Cells(6, 3).Value
      objkunnr.Value(1, “LOW”) = sht.Cells(6, 4).Value
      objkunnr.Value(1, “HIGH”) = sht.Cells(6, 5).Value
      R3Connection.Logoff

P. S. Für alle diese arbeiten in Ihrem VBA-Projekt, sollten Sie die Referenzen zu SAP-ActiveX-Steuerelemente, die sich in %ProgramFiles%\SAP\FronEnd\SAPgui Verzeichnis:

• wdtaocxU.ocx
• wdtfuncU.ocx
• wdtlogU.ocx
• wdobapiU.ocx

Also Referenzen Liste Ihrer VBA-Projekt sollte wie folgt Aussehen