Question

我正在使用下面的代码来刷新我的工作簿中的Essbase供稿并且它运行良好，但是，唯一的缺点是每次刷新essbase时我都需要输入密码，因为我们的Essbase系统是高度安全的。

我的问题是，是否可以将密码合并到宏中，以便每次刷新Feed时都不必输入密码。解决这个问题也可以让我通过Python自动完成整个过程并安排工作。

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


Sub RefreshHFM()

Call HypMenuVRefreshAll

End Sub

任何帮助。？

感谢。

Answer 1

HypMenuVRefreshAll命令基本上相当于单击刷新按钮，当然它会提示您输入密码，因为如果您自己点击菜单会发生什么？。但是，对于其他菜单项以及可用于连接的实际API，还有其他命令。您可以使用以下代码进行连接：

Private Sub cmdConnect_Click()
    Dim lReturn As Long
    Dim sMessage As String

    ''' try to connect
    lReturn = EssVConnect("sheet name", "admin", "password", "epmvirt11124", "sample", "basic")

    ''' show a message if necessary
    If lReturn <> 0 Then
        sMessage = EssVGetLastErrorMessage()
        MsgBox "EssVConnect status = " & lReturn & ".  Error Message = " & sMessage
    End If
End Sub

我从连接到特定多维数据集的按钮借用了此代码。请务必更新用户名，密码，服务器名称，应用程序和多维数据集以匹配您的环境。

请注意，这是＆＃34; old＆＃34;的一部分。 Essbase VB API与＆＃34; classic＆＃34; Excel加载项。 Smart View的代码不同，后者带有完全不同的VB API。

如何使用宏刷新Excel Smart View Essbase

1 个答案: