複数のシートに接続するためにHyperion Essbaseに接続するVBAを書いてみましたが、接続は成功しています
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
ただし、複数のシートから切断するには、以下のコードでは機能せず、-4 ではなく値 0 を返します。
Y = EssVDisconnect("Sheet1, sheet2, sheet3")
If Y = 0 Then
MsgBox ("Essbase connect is successful")
Else
MsgBox ("Essbase connection failed.")
End If
接続されたデータベースから切断できるようにするために必要な変更を教えてください