• 準(zhǔn)備工作

?

Excel連接SAP的時(shí)候需要使用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

?

• 創(chuàng)建Excel文件編寫宏代碼

?

打開Excel新建一個(gè)Workbook，然后打開VB編輯器（Alt+F11），在引用中添加RFC library文件。

然后使用如下代碼連接到SAP系統(tǒng)：

?

??? Set myConnction = R3.Connection???

??? myConnction.ApplicationServer = <HostName>???

??? myConnction.SystemNumber = <InstanceNumber>???

??? myConnction.Client = "<Client>"???

??? myConnction.user = "<Username>"???

??? myConnction.Password = "<Password>"???

??? myConnction.Logon(0, True)

?

進(jìn)行Funtion module調(diào)用：

?

??? Dim callFunctionModule As Object???????

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

??? callFunctionModule.Call

?

獲取返回結(jié)果：

?

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

?

處理結(jié)束之后注銷登錄：

?

??? myConnction.logoff

?

如果需要SNC連接的話，可以通過下面代碼進(jìn)行設(shè)置：

?

??? myConnction.SNC = True

??? myConnction.SNCName = "<SNCNameOfSAPSystem>"

??? myConnction.SNCQuality = 3

?

通過以上代碼就可以實(shí)現(xiàn)VB宏調(diào)用SAP系統(tǒng)的Function module，進(jìn)行數(shù)據(jù)處理了。

附件是一個(gè)簡(jiǎn)單例子，調(diào)用TH_USER_LIST取得當(dāng)前登錄到SAP系統(tǒng)的用戶輸出到Excel文件。

總結(jié)

以上是生活随笔為你收集整理的如何在Excel中使用VB宏连接SAP系统的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。