EXCEL技术VBA⼀键获取SAP系统数据
1.第⼀步 在SAP系统建⽴⼀个可远程调⽤的函数RFC
pith helmet2.第⼆步 就是在EXCEL⾥⾯的操作了 找到开发⼯具 点击Visual Basic （切记EXCEL要启⽤宏 在信任中⼼⾥⾯）
3.第三步 在EXCEL⾥⾯写代码 格式差不多⼤同⼩异
Sub 点击刷新()
'设置登录信息
Set R3 = CreateObject("SAP.Functions")
ensR3.Connection.System = "DEV"
R3.Connection.ApplicationServer = "172.16.1.24"英语练习题
R3.Connection.Client = "330"
R3.Connection.SystemNumber = "10"
R3.Connection.Ur = "XIAOT"
R3.Connection.Password = "xiao435435"
R3.Connection.Language = "ZH"
'有中⽂汉字或中⽂字符的话，需要设置代码页，否则可能出现乱码R3.Connection.Codepage ="8400"
If R3.Connection.logon(0, Fal)<> True Then
Exit Sub
El
'调⽤RFC，处理输⼊、表、输出等参数
'添加RFC名称
Set MyFunc =R3.Add("ZFMPP_PENDING")
'设置输⼊参数
Set oParam1 = ports("WERKS")
'oParam1.Value ="1001"
'执⾏远程调⽤
Result = MyFunc.CALL
If Result = True Then
'设置table参数
atman
Set pending = MyFunc.Tables("IT_RETURN")启德留学
'设置返回参数
美国大选第二场辩论直播Set oParam2 = ports("IT_RETURN")免费韩语
El
MsgBox MyFunc.EXCEPTION
R3.Connection.LOGOFF
Exit Sub
End If
'注销登录
R3.Connection.LOGOFF
'固定列名称
Cells(2, 3) = "⼯⼚"
。。。。
'使⽤循环处理table参数
spawning
For i =3 To pending.RowCount
Set Row = pending.Rows(i)
Cells(i,3)= Row.Value("WERKS")
。。。。
心得体会网Next
to是什么意思
End If
End Sub
