使用通用代码和epm的后期绑定！ 它将在没有任何引用的情况下工作：

 Dim objAddIn As 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"
         Exit Sub'或Exit功能
     万一

     '您的代码如下：
     'epm.RefreshActiveWorkBook

 呃：

     ' 错误代码
 

如果您想从我这里得到答案-切勿使用"插入文件"代替正确的"插入图片"

并提供版本详细信息！

感谢Vadim，我不知道。
您为我的问题得到了很好的答案吗？

Yunus Ates

然后，请接受正确的答案！