如何在Excel中使用VB宏连接SAP系统

• 准备工作

 

Excel连接SAP的时候需要使用RFC library， 首先从Service Marketing Place下载RFC SDK.

具体路径如下：

http://service.sap.com/swdc

SAP Software Download Center
Support Packages and Patches
Browse our Download Catalog

Additional Components

Additional Components

SAP RFC SDK

SAP RFC SDK 7.20

 

下载之后解压缩SAR文件。本例中解压缩到了C:\RFCSDK

 

• 创建Excel文件编写宏代码

 

打开Excel新建一个Workbook，然后打开VB编辑器（Alt+F11），在引用中添加RFC library文件。

然后使用如下代码连接到SAP系统：

 

    Set myConnction = R3.Connection   

    myConnction.ApplicationServer = <HostName>   

    myConnction.SystemNumber = <InstanceNumber>   

    myConnction.Client = "<Client>"   

    myConnction.user = "<Username>"   

    myConnction.Password = "<Password>"   

    myConnction.Logon(0, True)

 

进行Funtion module调用：

 

    Dim callFunctionModule As Object       

    Set callFunctionModule = R3.Add("<FunctionModule>")

    callFunctionModule.Call

 

获取返回结果：

 

     Set result = callFunctionModule.imports("<Parameter>")

 

处理结束之后注销登录：

 

    myConnction.logoff

 

如果需要SNC连接的话，可以通过下面代码进行设置：

 

    myConnction.SNC = True

    myConnction.SNCName = "<SNCNameOfSAPSystem>"

    myConnction.SNCQuality = 3

 

通过以上代码就可以实现VB宏调用SAP系统的Function module，进行数据处理了。

附件是一个简单例子，调用TH_USER_LIST取得当前登录到SAP系统的用户输出到Excel文件。