Hyperion Retrieve by Macro

Declare function essmenuvconnect lib "essexcln.xll" () as long

Declare function essvconnect lib "essexcln.xll" (byval sheetname as variant, byval username as variant, byval password as variant, byval server as variant, byval application as variant, byval database as variant) as long

Sub hype()

' To connect to essbase cube
G= essvconnect(sheetname,username, password,server name, application name, database name)

' To Retrieve data
Selection.application.run macro:="essmenuretrieve"

End sub

The details about server name and other you will get in login pop-up of essbase.