データ・プロバイダ・タイプ: Essbase
HypExecuteQuery()は、MDXクエリーを実行し、結果をワークシート上に表示します。(クエリー結果をワークシート上に表示したくない場合は、かわりにHypExecuteMDXExを使用します。)
HypExecuteQuery (ByVal vtSheetName As Variant, ByVal vtMDXQuery As Variant) As Long
ByVal vtSheetName As Variant
ByVal vtMDXQuery
vtSheetName: 関数を実行するワークシートの名前。vtSheetNameがNullまたはEmptyの場合、アクティブ・ワークシートが使用されます。
vtMDXQuery: ワークシート上で実行するMDXクエリー・ステートメント
長整数。正常に終了した場合は0を戻します。それ以外の場合は、該当するエラー・コードを戻します。
Public Declare Function HypExecuteQuery Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtMDXQuery As Variant) As Long
Sub Example_HypExecuteQuery ()
Dim vtQuery As Variant
vtQuery = "SELECT {([Jan])} on COLUMNS, {([East])} on ROWS"
sts = HypConnect (Empty, "
Username
", "
Password
", "Sample_Basic")
sts = HypExecuteQuery (Empty, vtQuery)
sts = HypDisconnect (Empty, True)
End sub