容易！ 首先，我没有看到FPMXLClient参考：

第二：简单的工作代码：

显式选项

 昏暗的epm作为新的FPMXLClient.EPMAddInAutomation

 公共函数AFTER_CONTEXTCHANGE（）为布尔值
     昏暗的wshCurrent作为工作表
     昏暗objCurrent作为对象
    
     设置wshCurrent = ThisWorkbook.ActiveSheet
     如果wshCurrent.Name =" Sheet1"，则
         Set objCurrent = Application.Selection'保存当前选择
         wshCurrent.Range（epm.GetDataTopLeftCell（wshCurrent，" 000"））。Select
         epm.RefreshActiveReport
         objCurrent.Select'恢复当前选择
     万一
 结束功能
 

如果您希望使用具有后期绑定且不引用FPMXLClient的EPM加载项和AO的通用代码，则：

代替

将epm设置为新的FPMXLClient.EPMAddInAutomation 

在您的过程中使用：

昏暗的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.RefreshActiveReport'或任何其他

我的博客中的示例： https://blogs.sap.com/2019/06/24/bpc-nw-10-vba-function-to-get-bassomeparent-dimension-members-list /

谢谢您解决的问题...