プライマリ・コンテンツへ移動
Oracle® Smart View for Office開発者ガイド

E88265-03
目次に移動
目次

前
次

HypListCalcScripts

Cloudデータ・プロバイダ・タイプ: Oracle Analytics Cloud - Essbase

オンプレミス・データ・プロバイダ・タイプ: Oracle Essbase

説明

HypListCalcScripts()は、Essbaseサーバーに存在するすべての計算スクリプトをリストします。

構文

HypListCalcScripts (vtSheetName, vtScriptArray)

ByVal vtSheetName As Variant

ByRef vtScriptArray As Variant

パラメータ

vtSheetName: 入力パラメータ。関数を実行するワークシートの名前。vtSheetNameがNullまたはEmptyの場合、アクティブなワークシートが使用されます。

vtScriptArray: 出力パラメータ。ビジネス・ルール・スクリプトの配列

戻り値

正常に終了した場合は0を戻し、それ以外の場合は該当するエラー・コードを戻します。

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