用于断开与Essbase连接的VBA代码

Question

我尝试编写VBA来连接Hyperion Essbase以连接到多个工作表，连接成功

X = EssVConnect("[Macro.xls] Sheet1, sheet2,sheet3 ", "Uname", "Pwd", "Server", "Applicationname", "DB")
            If X = 0 Then
            MsgBox ("Essbase connect is successful")
            Else
            MsgBox ("Essbase connection failed.")
            End If

但是，为了断开与多个表的连接，它不能使用下面的代码，它返回值0而不是-4

Y = EssVDisconnect("Sheet1, sheet2, sheet3")
            If Y = 0 Then
            MsgBox ("Essbase connect is successful")
            Else
            MsgBox ("Essbase connection failed.")
            End If

请告诉我需要做哪些更改才能断开与已连接的数据库的连接

Answer 1

我从来没有尝试过在一个命令中连接和断开多个工作表，但如果您的连接命令有效，我认为断开连接也应该有效。不过，您在断开连接字符串中省略了工作簿的名称。尝试以在连接字符串中相同的方式列出工作表：

Y = EssVDisconnect("[Macro.xls] Sheet1, sheet2, sheet3")