执行SAP RFC的VBA程序可在Excel 2016本地部署中运行,但在Office 365中无法运行

2020-08-27 07:44发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)我的公司即将迁移到Office ...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


我的公司即将迁移到Office 365。 我测试了一个程序,该程序登录到SAP并在365环境中运行RFC,并且在" Functions.Connection = objConnection"行上遇到运行时错误(运行时错误20080008…错误的变量类型)

显式选项
     作为SAPFunctions的公共函数OCX.SAPFunctions
     私人LogonControl为SAPLogonCtrl.SAPLogonControl
     私有objConnection为SAPLogonCtrl.Connection
     作为SAPFunctionsOCX.Function的公共函数
     公共提交为SAPFunctionsOCX.Function
     将公共TableFactory作为SAPTableFactory
     以布尔值公开的silentLogon
     公共tblReadTableOptions,tblReadTableFields,tblReadTableData作为SAPTableFactoryCtrl.Table
     子ExtractProjectData()
         如果objConnection什么都没有,那么LogonToSAP
         发起SAP变量
         设置Func = Functions.Add(" BBP_RFC_READ_TABLE")
         设置tblReadTableOptions = Func.Tables(" OPTIONS")
         设置tblReadTableFields = Func.Tables(" FIELDS")
         设置tblReadTableData = Func.Tables(" DATA")
         '从SAP表中提取/转换数据
     结束子
     函数InitiateSAPVariables()
         设置函数=无
         设置TableFactory = Nothing
         设置功能=无
         设置函数= CreateObject(" SAP.Functions")
         设置TableFactory = CreateObject(" SAP.TableFactory.1")
         Functions.Connection = objConnection'运行时错误在Office 365中出现,但在本地时不存在
     结束功能
     函数LogonToSAP()
         昏暗建立连接为布尔
         silenceLogon =否
         设置LogonControl = CreateObject(" SAP.LogonControl.1")
         设置objConnection = LogonControl.NewConnection
         objConnection.Client =" ###"
         objConnection.Language =" EN"
         objConnection.SystemNumber =" ##"
         objConnection.User =""
         objConnection.Password =""
         objConnection.HostName =" ###############"
         objConnection.System =" ###"
         objConnection.ApplicationServer =" ###。###。#。##"
         建立连接= objConnection.Logon(0,silentLogon)
     结束功能

快速检查objConnection会告诉我登录已成功...因此我知道该部件正在365上工作。但是由于某些原因,它不喜欢分配Functions SAPFunctionsOCX的Connection属性。 SAPFunctions对象在365环境中(请随时纠正我的说法,我知道这不太正确)。

请注意,在这两种环境下,我都没有看到任何参考问题,也没有遇到任何编译错误。 麻烦的第一个迹象是在执行Functions.Connection = objConnection

这里还有另外一个问题,那就是我有另一个较旧的VBA程序,该程序登录到SAP并运行不使用SAPFunctionsOCX.SAPFunctions的远程函数调用,而是将变量R3声明为" Public R3 As Object",然后 稍后在登录代码中将R3设置为`Set R3 = CreateObject(" SAP.Functions")`...它不使用OCX。 换句话说,旧例程使用后期绑定。 当以这种方式设置Functions对象(在这种情况下为R3)时,我将能够在prem和Office 365环境中运行RFC。

功能LogonProdSAP(可选SuppressLoginScreen为布尔值)
         Application.ScreenUpdating = False
         '**************************************************
         '创建服务器对象并设置DEV的连接
         '**************************************************
         设置R3 = CreateObject(" SAP.Functions")
         如果SuppressLoginScreen然后
             R3.Connection.System =" ###"
             R3.Connection.HostName =" ####################"
             R3.Connection.SystemNumber =" ##"
             R3.Connection.Client =" ###"
             R3.Connection.User =" ##########"
             R3.Connection.Password =" #########"
             R3.Connection.Language =" EN"
     '通话记录器(" LogonProdSAP>"&GetUserName)
         万一
         LogonProdSAP = R3.Connection.logon(0,SuppressLoginScreen)
         如果LogonProdSAP <> True,则MsgBox("登录错误"):退出功能
     结束功能

 我可以回到这种方式,但是我不必重新配置我刚刚设置的所有代码。 此外,我更喜欢早期绑定,因此Intellitype可以显示该对象可用的所有属性/方法。 我相信还有其他好处。

 我必须怎么做才能使早期绑定技术在Office 365上运行?

 这个问题也发布在堆栈溢出... https://stackoverflow.com/questions/58942674 
5条回答
打个大熊猫
2020-08-27 08:40

是。 我为此使用BBP_RFC_READ_TABLE。 您可能已经知道,您需要更改角色才能测试/运行此BAPI和其他BAPI,这些BAPI在后台运行所有内容(无需GUI脚本)。 您可以通过遍历BAPI生成的结果表中的数据来填充Excel工作表。 学习曲线不太陡,但是确实需要一些时间来适应。 在VB编辑器中,您的"立即"和"本地"窗口将非常方便地确定数据的存放位置。

该视频应该可以帮助您开始从VBA运行BAPI。 它不演示表数据提取,但原理相同。

https://www.youtube.com/watch?v= QTq7TBTlV-A&lc = z22wdngpmrfjxjew204t1aokgzvpvnmyiegpaoekfyckbk0h00410.1572392352499756

一周热门 更多>