高防服务器

如何使用Excel调用ABAP系统的函数


如何使用Excel调用ABAP系统的函数

发布时间:2021-12-28 17:55:02 来源:高防服务器网 阅读:58 作者:小新 栏目:大数据

小编给大家分享一下如何使用Excel调用ABAP系统的函数,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!

效果:在excel里创建一个按钮,开发一些VB script,可以连接指定的ABAP系统并执行系统里的ABAP function module。

在这里例子里执行ABAP系统的函数TH_USER_LIST, 把当前系统登录的用户取回来显示在excel里。

该按钮的点击响应函数实现代码:

Sub CommandButton1_Click()      Set R3 = CreateObject("SAP.Functions")      Set myConnction = R3.Connection      myConnction.ApplicationServer = "ag3.xxx.sap.corp" 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

以上是“如何使用Excel调用ABAP系统的函数”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注高防服务器网行业资讯频道!

[微信提示:高防服务器能助您降低 IT 成本,提升运维效率,使您更专注于核心业务创新。

[图文来源于网络,不代表本站立场,如有侵权,请联系高防服务器网删除]
[