データ・プロバイダ・タイプ: Essbase
HypGetChildren()は、指定したメンバーの子を戻します。
HypGetChildren (vtSheetName, vtMemberName, intChildCount, vtChildArray)
ByVal vtSheetName As Variant
ByVal vtMemberName As Variant
ByVal intChildCount As Integer
ByRef vtChildArray As Variant
vtSheetName: 関数を実行するワークシートの名前。vtSheetNameがNullまたはEmptyの場合、アクティブ・ワークシートが使用されます。
vtMemberName: 入力パラメータ; メンバー名。必須。
intChildCount: 入力パラメータ; 戻される子の数の制限。
ChildCount <=0。すべての子が戻されます。
ChildCount >0。結果セットは、引数として指定された数に制限されます。指定された引数よりも結果セットが少ない場合は、すべての結果が戻されます。
vtChildArray: 子のリストを格納する出力結果ベクトル。マクロが正常に終了しなかった場合、コンテンツは不明になります。
正常に終了した場合は0を戻し、それ以外の場合は該当するエラー・コードを戻します。
Declare Function HypGetChildren Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtMemberName As Variant, ByVal intChildCount As Integer, ByRef vtChildArray As Variant) As Long Sub Example_HypGetChildren Dim vtChildren as Variant Dim vtChild as Variant Dim X as Long X = HypGetChildren (Empty, "Market", 0, vtChildren) If IsArray (vtChildren) Then For i = LBound (vtChildren) To UBound (vtChildren) VtChild = vtChildren (i) Next End If End Sub