提问
EPM Add-In for Excel

您好所有运行时错误9和脚本超出范围

2020-08-22 15:12发布

站内问答 / BPC
2209 1 5

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

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


 i创建类似这样的代码
 子示例（）
 昏暗的cofCom AsObjectSet cofCom = Application.COMAddIns（" SapExcelAddIn"）。Object
 昏暗的api AsObjectSet的api = cofCom.GetPlugin（" com.sap.epm.FPMXLClient"）
 api.RefreshActiveSheet结束子

嗨，请帮助我任何一个关于宏的新手，我的要求是刷新当前工作表，但我遇到运行时错误9和脚本超出了工具->参考范围，我想选择的那个我忘记了任何 重新排序的过程预先告诉我一步一步

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

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


 i创建类似这样的代码
 子示例（）
 昏暗的cofCom AsObjectSet cofCom = Application.COMAddIns（" SapExcelAddIn"）。Object
 昏暗的api AsObjectSet的api = cofCom.GetPlugin（" com.sap.epm.FPMXLClient"）
 api.RefreshActiveSheet结束子

嗨，请帮助我任何一个关于宏的新手，我的要求是刷新当前工作表，但我遇到运行时错误9和脚本超出了工具->参考范围，我想选择的那个我忘记了任何 重新排序的过程预先告诉我一步一步

付费偷看设置
发送
1条回答
能不能别闹
1楼 · 2020-08-22 16:07.采纳回答

通用代码将是：

 Sub Example（）
     昏暗的objAddIn作为COMAddIn
     昏暗的epm作为对象
     昏暗的AOComAdd作为对象
     Dim blnEPM安装为布尔值
    
 出错时出错
     '获得用于独立EPM或AO的FPMXLClient的通用代码
     对于Application.COMAddIns中的每个objAddIn
         如果objAddIn.progID =" FPMXLClient.Connect"，则
             设置epm = objAddIn.Object
             blnEPMInstalled =正确
             退出
         ElseIf objAddIn.progID =" SapExcelAddIn"然后
             设置AOComAdd = objAddIn.Object
             设置epm = AOComAdd.GetPlugin（" com.sap.epm.FPMXLClient"）
             blnEPMInstalled =正确
             退出
         万一
     下一个objAddIn
    
     如果未安装blnEPM，则
         MsgBox"未安装EPM"
         退出子
     万一
    
     epm.RefreshActiveSheet
     退出子

 呃：
     如果Err.Number = -1073479167
         MsgBox"无连接"
     其他
         MsgBox" EPM错误"
     万一
 结束Sub

使用此代码，无需在工具->引用中选择任何内容

一周热门 更多>

点击此处---> EasySAP.com 一起学习S4 HANA ...