如何使用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安全错误
数据库的锁怎样保障安全
威海慧明珠软件开发怎么样
政务网络安全考试
杭州中奥科技互联网大会
软件开发专业介绍 知乎
为知笔记自建服务器新版本
sf服务器端下载
哈尔滨银行软件开发中心
数据库连接满
数据库导数会磁盘报警吗
hcl网络安全
csci文献数据库是什么
网络安全的认识的文章
pnas在哪个数据库
oracle数据库多少钱一套
环保局网络安全等级管理制度
数据库 读写 硬盘
自己做服务器备份
网络安全保卫支队李相军
金融信用数据库的信息来源
属于软件开发的阶段是
手机号码查询网络安全吗
重庆交易软件开发服务
如何在电脑上查看数据库信息
石景山区咨询软件开发平台
接入公安部数据库
域服务器如何实现管理用户
如何用网络技术进行信息交流
广电网络技术中心述职报告
网络安全生态需加快建设和
达梦数据库切换主备