Data provider types: Oracle Essbase
Description
HypListCalcScripts() lists all calculation scripts present on an Essbase server.
Syntax
HypListCalcScripts (vtSheetName, vtScriptArray)
ByVal vtSheetName As Variant
ByRef vtScriptArray As Variant
Parameters
vtSheetName: Input parameter; the name of worksheet on which to run the function. If vtSheetName is Null
or Empty
, the active worksheet is used.
vtScriptArray: Output parameter; the array of business rule scripts
Return Value
Returns 0 if successful; otherwise, returns the appropriate error code.
Example
Declare Function HypListCalcScripts Lib "HsAddin" (ByVal vtSheetName As Variant, ByRef vtScriptArray As Variant) As Long Sub Example_HypListCalcScripts() Dim sts As Long Dim paramList As Variant sts = HypListCalcScripts(Empty, paramList) If IsArray(paramList) Then cbItems = UBound(paramList) - LBound(paramList) + 1 MsgBox ("Number of elements = " + Str(cbItems)) For i = LBound(paramList) To UBound(paramList) MsgBox ("Member = " + paramList(i)) Next Else MsgBox ("Return Value = " + sts) End If End Sub