SAP 整合技術允許開發人員將與 OLE 相容的桌面應用程式（例如 Microsoft Office、Lotus SmartSuite 或 Visio）整合到 SAP 系統中。

通訊和資料傳輸工作[原理](https://help.sap.com/saphelp_nw73/HELPDATA/EN/49/17345ea2e314d3e10000000a42189b/content.htm?no_cache=true)如下：

![](https://img-blog.csdnimg.cn/img_convert/8b2602126381ce25c6e5d6d70f3310ea.png)

SAP GUI（ Presentation 伺服器）和 SAP 應用程式伺服器之間的通訊在 4.0 版中得到了擴充套件。這使得在 SAP GUI（控制框架）中包含 ActiveX 控制元件成為可能。

以 Office Excel 為例，在 Options -> Customize Ribbon 裡將 Developer 標籤配置出來：

![](https://img-blog.csdnimg.cn/img_convert/794ad7d45bb50dc1958024811701ef89.png)

Desktop Office 整合將此介面用於特殊控制元件（SAP Document Container Control 和 SAP Data Provider），它們是 SAP 系統和 Desktop Office 應用程式之間的通訊通道。

SAP Document Container Control 使用方法和屬性與使用 OLE2 介面的桌面應用程式進行通訊。

SAP Data Provider 是不同格式資料的容器和轉換器。開發人員匯入應用程式的資料將轉換為基於 Internet 標準 MIME 的可讀格式。 SAP 資料提供者緩衝在 SAP 系統中管理的文件資料。它還緩衝 SAP 資料，這些資料可以使用 R/3 連結插入到文件中。

然後在 Developer 標籤頁裡就可以插入 ActiveX 控制元件了，比如 button：

![](https://img-blog.csdnimg.cn/img_convert/cb2153fc472a75a543053938c8100f1a.png)

這些按鈕上面可以編寫簡單的 VBScript：

![](https://img-blog.csdnimg.cn/img_convert/3e5f2a61e73e6d05a623dee5935e508c.png)

```script
Private Sub CommandButton1_Click()
Set R3 = CreateObject("SAP.Functions")
    Set myConnction = R3.Connection
    myConnction.ApplicationServer = "ag3"
    myConnction.SystemNumber = 54
    myConnction.Client = "001"
    myConnction.user = "WANGJER"
    myConnction.Password = "your password"
    
    If myConnction.Logon(0, True) <> True Then
      MsgBox "Logon failed"
      Exit Sub
    End If
    
    Dim callFunctionModule As Object
        
    Set callFunctionModule = R3.Add("TH_USER_LIST")
    callFunctionModule.Call

If callFunctionModule.Exception <> "" Then
        MsgBox callFunctionModule.Exception
    End If

If callFunctionModule.Call = True Then
        Dim result As Object
        Set result = callFunctionModule.tables("USRLIST")
        Dim aSheet As Worksheet
        Dim sheetCol As New Collection
        sheetCol.Add ActiveWorkbook.Sheets(1)
        For Each aSheet In sheetCol
            Dim i As Integer
            i = 1
            For Each user In result.Rows
                
                Client = user(2)
                UserName = user(3)
                Terminal = user(5)
                IP = user(16)
                aSheet.Cells(i, 1) = Client
                aSheet.Cells(i, 2) = UserName
                aSheet.Cells(i, 3) = Terminal
                aSheet.Cells(i, 4) = IP
                
                i = i + 1
            Next
        Next
    Else
        MsgBox " Call Failed! error: "
    End If
'log off
    myConnction.logoff
End Sub

```

這兩個控制元件都有一個到 SAP 系統的介面。 SAP Data Provider 的介面是使用功能模組實現的。桌面辦公室整合的 ABAP 類和介面提供了到 SAP 文件容器控制元件的介面。

SAP ABAP 系統同微軟 Office 套件進行 Desktop Integration 的工作原理

相關文章