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