写点什么

使用 Excel 调用 ABAP 系统的函数

用户头像
Jerry Wang
关注
发布于: 2021 年 05 月 24 日
使用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.logoffEnd Sub
复制代码


要获取更多 Jerry 的原创技术文章,请关注公众号"汪子熙":



发布于: 2021 年 05 月 24 日阅读数: 8
用户头像

Jerry Wang

关注

个人微信公众号:汪子熙 2017.12.03 加入

SAP成都研究院开发专家,SAP社区导师,SAP中国技术大使。

评论

发布
暂无评论
使用Excel调用ABAP系统的函数