1

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

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

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


Sub RefreshHFM()

Call HypMenuVRefreshAll

End Sub

有什么帮助。？

谢谢。

4

1 回答 1

0

该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

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

另请注意，这是与“经典”Excel 插件一起使用的“旧”Essbase VB API 的一部分。Smart View 的代码不同，它带有完全不同的 VB API。

于 2017-10-16T17:08:20.987 回答