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 文档容器控件的接口。

ITPub博客

SAP ABAP 系统同微软 Office 套件进行 Desktop Integration 的工作原理

最新文章