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")

要与Essbase Connection断开连接的VBA代码

1 个答案: