EXCEL技术VBA一键获取SAP系统数据

1.第一步在SAP系统建立一个可远程调用的函数RFC

2.第二步就是在EXCEL里面的操作了找到开发工具点击Visual Basic （切记EXCEL要启用宏在信任中心里面）

3.第三步在EXCEL里面写代码格式差不多大同小异

Sub 点击刷新()
'设置登录信息
Set R3 = CreateObject("SAP.Functions")
R3.Connection.System = "DEV"
R3.Connection.ApplicationServer = "172.16.1.24"
R3.Connection.Client = "330"
R3.Connection.SystemNumber = "10"
R3.Connection.User = "XIAOT"
R3.Connection.Password = "xiao435435"
R3.Connection.Language = "ZH"
'有中文汉字或中文字符的话，需要设置代码页,否则可能出现乱码
R3.Connection.Codepage = "8400"
If R3.Connection.logon(0, False) <> True Then
Exit Sub
Else
'调用RFC，处理输入、表、输出等参数
'添加RFC名称
Set MyFunc = R3.Add("ZFMPP_PENDING")
'设置输入参数
Set oParam1 = MyFunc.exports("WERKS")
'oParam1.Value = "1001"
'执行远程调用
Result = MyFunc.CALL
If Result = True Then
'设置table参数
Set pending = MyFunc.Tables("IT_RETURN")
'设置返回参数
Set oParam2 = MyFunc.exports("IT_RETURN")
Else
MsgBox MyFunc.EXCEPTION
R3.Connection.LOGOFF
Exit Sub
End If
'注销登录
R3.Connection.LOGOFF
'固定列名称
Cells(2, 3) = "工厂"
。。。。
'使用循环处理table参数
For i = 3 To pending.RowCount
Set Row = pending.Rows(i)
Cells(i, 3) = Row.Value("WERKS")
。。。。
Next
End If
End Sub

这里注意一下：本人在研究过程中，发现64位EXCEL与SAP系统不兼容。还未找到解决方案，望能得到有志之士的帮助！
————————————————
版权声明：本文为CSDN博主「Qunending」的原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/Qunending/article/details/104480990

EXCEL技术VBA一键获取SAP系统数据相关推荐

【SAP Abap】SAP系统数据快速导出
SAP系统数据快速导出在SAP系统运维过程中,各业务部门经常会提,导出系统各样逻辑的数据的临时需求. 一般的处理方式为,通过SE16N分别导出相关的表到Excel,然后进行VLOOKUP匹配,或者是 ...
【技术分享】新核心业务系统数据架构规划与数据治理
本文整理自DTCC2016主题演讲内容,录音整理及文字编辑IT168@田晓旭@老鱼.如需转载,请先联系本公众号获取授权! 演讲嘉宾种磊农银人寿新核心数据架构组组长经济师,农银人寿IT部资深专员. ...
java获取sap接口数据
一.方式一接口数据读取及返回值 public class SapConnect {static final String ABAP_AS_POOLED = "ABAP5_WITHOUT_PO ...
Excel 2010 VBA 入门 062 跨表数据查询
目录示例实现代码跨表操作单元格连续查找功能示例如图所示,该工作簿中建立"数据表"和"数据查询"表分别用于存储客户信息以及客户信息的查询.现希望在数据 ...
python爬虫数据分析系统_2小时精通python爬虫技术带你打造Bug系统数据抽取及统计分析...
在测试工作中,对缺陷进行统计分析是非常重要的一个环节.通过对bug的实时统计分析可以及时有效的对测试工作的重点进行调整.比如通过"二八原则"-发现bug越多的模块,隐藏的bug也会 ...
如何用Power BI一键获取web网页数据？
在 Power BI Desktop 中连接到数据源安装 Microsoft Power BI Desktop 后,可以连接到日益扩张的数据世界. Microsoft Power Query for ...
Excel 2010 VBA 入门 037 获取最后一行数据的行数
目录示例: 实现代码1 使用Find方法查找最后的单元格 Find方法按行查找和按列查找的区别实现代码2 获取工作表总行数实现代码3 单元格对象的End属性 End属性的局限性其他获取最后数据 ...
SAP License：守护企业 “ SAP ERP系统数据资产安全 ”
对于企业SAP ERP系统的数据资产管理而言,清楚的定位保护对象是什么,有什么风险或者问题,然后如何保护,再持续提升:其中,对于SAP系统业务数据安全的监管其实是一个比较复杂的事情,业务数据的形式,载 ...
SAP MDG —— 数据迁移
文章目录前序影响数据迁移的要素迁移工具介绍 MDG DIF和File Upload Data Import Framework File Upload S/4 HANA Data Migrati ...
sap可以指定应用服务器,SAP扫盲系列之一：什么是SAP系统和应用服务器
Jerry Wang,2007年加入SAP成都研究院工作至今,至今为止有13年的ABAP开发经验,SAP社区导师,SAP中国技术大使. SAP Netweaver Application Server ...

EXCEL技术VBA一键获取SAP系统数据

EXCEL技术VBA一键获取SAP系统数据相关推荐

最新文章

热门文章