excel - 在 Smart View for Oracle 中创建 VBA 刷新宏

Question

有谁知道我需要使用的 VBA 代码，以便我可以使用 EPM (Hyperion) Smartiew 自动“刷新”和“刷新全部”？ “刷新”功能将数据拉入事件选项卡上的 Excel，其中“刷新所有”功能刷新工作簿中的所有选项卡。

我想创建一个附加到 Excel 中的命令按钮的简单宏，但不确定要使用哪个 VBA 代码。

我尝试录制一个宏，只需开始录制即可单击刷新并停止录制，尽管这不起作用。

我尝试此代码只是为了刷新:

Declare Function HypMenuVRefresh Lib "HsAddin.dll"() As Long

Sub MRetrieve()
  X = HypMenuVRefresh()
End Sub

但是收到一条错误消息，说我必须更新声明方法才能与 64 位系统一起使用(我正在使用 64 位系统)。

有谁知道我如何创建这个自动宏来刷新数据？

任何帮助将不胜感激!

Answer 1

VBA 中 x64 的声明不正确。

尝试:

Private Declare PtrSafe Function HypMenuVRefresh Lib "HsAddin" () As Long

Sub refreshWS()

    Dim Count, i As Integer

    i = 1

    Count = Worksheets.Count

    Do While i <= Count

        Sheets(i).Select

        MsgBox Sheets(i).Name

        Call HypMenuVRefresh

        i = i + 1

    Loop

    MsgBox "done"

End Sub