如何使用Excel调用ABAP系统的函数
发表于:2025-02-19 作者:千家信息网编辑
千家信息网最后更新 2025年02月19日,小编给大家分享一下如何使用Excel调用ABAP系统的函数,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!效果:在excel
千家信息网最后更新 2025年02月19日如何使用Excel调用ABAP系统的函数
小编给大家分享一下如何使用Excel调用ABAP系统的函数,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!
效果:在excel里创建一个按钮,开发一些VBscript,可以连接指定的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
以上是"如何使用Excel调用ABAP系统的函数"这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注行业资讯频道!
系统
函数
篇文章
内容
按钮
不怎么
代码
例子
大部分
效果
更多
用户
知识
行业
资讯
资讯频道
频道
参考
学习
帮助
数据库的安全要保护哪些东西
数据库安全各自的含义是什么
生产安全数据库录入
数据库的安全性及管理
数据库安全策略包含哪些
海淀数据库安全审计系统
建立农村房屋安全信息数据库
易用的数据库客户端支持安全管理
连接数据库失败ssl安全错误
数据库的锁怎样保障安全
服务器托管香港
六安视频点播软件开发多少钱
数据库的数据检索出来规定格式
深圳网络技术开发公司
学习网络安全十条戒律学习感悟
华为服务器管理口在哪
查数据库的问题
软件开发试用
汽车物联网系统网络技术分析
网络技术是怎么发展的
恩施靠谱的软件开发
口袋妖怪梦幻服务器攻略
组装服务器电源教程
智慧型互联网科技园
什么时候可以申报网络安全审查
网上订餐数据库
网络安全怎么消除隐患
nist数据库 matlab7
委托软件开发著作权归属
我的世界混乱服务器第一集
2020年网络安全行业业绩
宝山区网络技术转让要多少钱
腾讯服务器流量超了扣款吗
雷达币服务器在哪个国
网页怎么把数据上传数据库
xx局网络安全宣传活动
国家怎么监控网络安全
基本数据库与网络管理
你怎样看待网络安全问题
超市的信息服务器特别慢怎么回事