HypListCalcScripts
Describes the Oracle Smart View for Office VBA function, HypListCalcScripts.
Cloud data provider types: Oracle Essbase
On-premises 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