如何使用 EPM 引用刷新 Excel 工作簿中的多个工作表（按特定顺序）？答案

【问题标题】：How can I refresh multiple sheets (in specific order) in an Excel workbook using EPM references?如何使用 EPM 引用刷新 Excel 工作簿中的多个工作表（按特定顺序）？
【发布时间】：2014-08-30 19:46:30
【问题描述】：

我有一个包含大约 50 个工作表的工作簿，要按特定顺序刷新（以避免 #rfr 错误，因为工作表是相互构建的）。

刷新是通过 Excel 的 EPM 插件完成的。我已激活 FPMXLclient 功能并尝试编写一些代码。我对编码和逻辑非常缺乏经验。在工作簿中，宏需要从最后一个选项卡开始，等待工作表刷新，然后移动到下一个选项卡（依此类推......）。下面是我编写的一些 VBA 代码的示例：

    Dim refreshList
        refreshList = Array("BS Analytic", "Balance Sheet")
        'There are more than just the 2 in the array (~50)
    Sub test_loop()
        Dim I
        For I = LBound(refreshList) To UBound(refreshList)
        MsgBox refreshList(I)
        Next I
    End Sub
    'Vba to refresh data
    Dim client As New EPMAddInAutomation
    Sub Refresh_Click()
        client.Refresh
    End Sub
    Sub AFTER_REFRESH()
        MsgBox "done"
    End Sub

其他信息：这也涉及 BPC 和 SAP。

【问题讨论】：

您应该在此处找到更具体的问题。这么说来，你的问题对社区没有用处。
您有指向 EMP VBA 开发人员指南的链接吗？除非您可以将参数传递给Refresh 方法，告诉它要刷新特定的工作表，否则您不能按顺序执行此操作。但是恕我直言，从 50 张 excel 模型运行系统是一项技术责任。
亚历克斯，我明白你是从哪里来的。在发布时，我认为它足够具体，因为我无法在其他地方找到答案，但我会记住你所说的以备将来发布。 Electric，我不相信我可以访问开发人员指南。感谢您的意见，我当然知道所涉及的技术责任。

标签： excel vba epm

【解决方案1】：

为什么不在数组refreshList 中包含每个工作表编号，然后使用For each I in refreshList。然后将按每次更新的顺序传播refreshList。如果它也从最后一张纸向后移动，您可以随时执行以下操作：

Sub Refresh_Click

Dim refreshList() As Integer
reDim refreshList(50)
for i = 0 to 49
    refreshList(i) = 50 - i
next
For each I in refreshList
    Sheets(I).EnableCalculation = false
    Sheets(I).EnableCalculation = true
Next
MsgBox "Done"

End Sub

【讨论】：

感谢您的意见，Moiety。我必须进入 VBA 并以正确的顺序重新编号，因为它们不是以前的。当我尝试运行您的代码时，我收到一条错误消息“编译错误：外部过程无效”。您对可以采取哪些措施来解决此问题有任何见解吗？也许这是我的用户错误......
我已将代码修改为仅包含在一个 sub 中。我假设Refresh_Click 是单击按钮或某种类型时运行的宏。上面的代码应该按顺序刷新每个页面。

【解决方案2】：

假设您的插件刷新了活动工作表，您的循环中可能会出现这样的情况：

Dim Sh As Worksheet
Set Sh = WorkSheets(RefreshList(I))
Sh.Activate
Client.Refresh

【讨论】：