HypListCalcScripts

Data source types: Essbase

Description

HypListCalcScripts() lists all calculation scripts present on Analytic Server.

Syntax

HypListCalcScripts (vtSheetName, vtScriptArray)

ByVal vtSheetName As Variant

ByRef vtScriptArray As Variant

Parameters

vtSheetName: For future use. Currently the active sheet is used.

vtScriptArray: The business rule scripts are returned in this array.

Return Value

Returns 0 if successful; otherwise, returns the appropriate error code.

Example

Declare Function HypListCalcScripts Lib "HsAddin" (ByVal sheetName As Variant,ByRef scriptArray) As Long

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