使用Excel调用ABAP系统的函数
2023-09-14 09:02:50 时间
效果:在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"
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
2022年6月12日 更新
在 excel 里插入 button 的办法:
Options-> Customize Ribbon 里,把 Developer 配出来:
然后 Insert ActiveX Controls
https://answers.sap.com/questions/10222185/activex-component-sapfunctions-with-export-paramet.html
相关文章
- 将Excel转换为word_excel如何将横排变成竖排
- Excel: 自定义数字格式
- 【说站】Excel如何快速删除空行?WPS删除excel空白行
- [1170]win10把word、ppt、excel从wps改成微软默认打开方式
- excel导入mysql代码_EXCEL导入Mysql方法「建议收藏」
- Java中注解学习系列教程-6 excel导出优化plush版
- VBA实用小程序:将Excel中的内容输入到Word
- 帮师姐把100个Excel中符合条件的数据,汇总到1个Excel里
- ChatGPT版Excel?北大ChatExcel动动嘴皮子就把表格改完了
- java excel导出详解编程语言
- SAP通过程序创建Excel模板详解编程语言
- 数据库用Excel快速导入Oracle数据库(excel导入oracle)
- 使用Excel快速读取MySQL数据(excel读取mysql)
- 文件Linux下快速导出Excel文件(linux导出excel)
- 轻松操作:oracle快速导入Excel数据(oracle导入excel数据)
- MYSQL与EXCEL:实现数据管理的双重力量(mysql与excel)
- Excel 曝出 Power Query 安全漏洞,1.2 亿用户易受远程 DDE 攻击
- 轻松导出:用SQL Server批量将数据导出到Excel(sqlserver导出excel)
- MSSQL导入Excel数据的精彩实战(mssql读excel)
- Excel与Oracle无缝连接,极致解决数据融合问题(excel连oracle)
- ASP.NET导出到Excel时保留换行的代码
- js导出table到excel同时兼容FF和IE示例
- phpexcel导入excel数据使用方法实例
- c#连接excel示例分享