点击此处--->   群内免费提供SAP练习系统（在群公告中）

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

我正在使用示例1从SAP使用以下自动登录脚本。

https://wiki.scn.sap.com/wiki/display/BI/使用+ VBA + to + connect + to + BW + server + with + SAPBEXgetConnection

函数LogonToServer（）为布尔值
    LogonToServer = False
    将myConnection设置为对象
    设置myConnection = Run（" BExAnalyzer.xla！SAPBEXgetConnection"）
    与myConnection
       .client =" 000"
       .user =" myUserName"
       .Password =" myPassword"
       .Language =" EN"
       .systemnumber = 45
       .system =" XXX"
       .ApplicationServer =" ab1234.wdf.sap.corp"
       .SAProuter =""
       .logon 0，是
    结束于
    如果myConnection.IsConnected <> 1然后
       '启动登录对话框进行手动连接
       myConnection.logon 0，否
          如果myConnection.IsConnected <> 1然后
             MsgBox"出问题了……"
             退出功能
          万一
    万一
    如果myConnection.IsConnected = 1，则
       LogonToServer = True
    万一
    运行" BExAnalyzer.xla！SAPBEXinitConnection"
 结束功能
 

我收到438错误

调用pAddin.ExcelInterface.SetConnectionFromHandle（p_connectionObj）

下面的行。 有任何建议可以解决吗？

公共函数initConnection（）为布尔值
   initConnection =假
   如果已连接则
     使用p_connectionObj
     结束于
     如果pAddin无效，则调用SetStart
     如果pAddin无效
       initConnection =假
       退出功能
     万一
     调用pAddin.ExcelInterface.SetConnectionFromHandle（p_connectionObj）
     如果Len（pWbid）> 1然后
       调用pAddin.ExcelInterface.runWorkbook（pWbid）
     其他
       如果Len（pQueryid）> 1然后
         调用pAddin.ExcelInterface.runQuery（pQueryid）
       万一
     万一
   万一
   initConnection = isConnected
 结束功能