keithfender
New Member
Hello,
I am trying to zoom in via Essbase using VBA on some customer data to the bottom level, and so far I can only get the "Zoom Failed" message.
I have a dummy file to share to help show you guys my sheet, and my VBA code is below.
I am trying to zoom in via Essbase using VBA on some customer data to the bottom level, and so far I can only get the "Zoom Failed" message.
I have a dummy file to share to help show you guys my sheet, and my VBA code is below.
Code:
Declare Function EssVZoomIn Lib "ESSEXCLN.XLL" (ByVal sheetName As Variant, ByVal range As Variant, ByVal selection As Variant, ByVal level As Variant, ByVal across As Variant) As Long
Public Sub ChannelZoomIn()
'
' ChannelZoomIn Macro
'
X = EssVZoomIn("[DummyZoomFile.xls]Drilldown", range("H9:J26"), range("D9:D26"), 3, False)
If X = 0 Then
MsgBox ("Zoom successful.")
Else
MsgBox ("Zoom failed.")
End If
End Sub