HypListDatabases

Oracle Smart View for OfficeのVBA関数、HypListDatabasesについて説明します。

クラウド・データ・プロバイダ・タイプ: Oracle Analytics Cloud - EssbasePlanningPlanning ModulesFinancial Consolidation and CloseTax Reporting

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

説明

HypListDatabases()では、要求したプロバイダにアプリケーションに存在するキューブ(データベース)のリストを取得します。

構文

HypListDatabases (vtURL, vtServerName, vtUserName, vtPassword, vtApplication, vtApplicationCubeList)

ByVal vtURL As Variant

ByVal vtServerName As Variant

ByVal vtUserName As Variant

ByVal vtPassword As Variant

ByVal vtApplication As Variant

ByRef vtApplicationCubeList As Variant

パラメータ

vtURL: プロバイダのURL

vtServerName: サーバー名

vtUserName: ユーザー名

vtPassword: パスワード

vtApplication: アプリケーション名

vtApplicationCubeList: キューブ(データベース)のリスト

戻り値

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

この例では、HypListApplications関数とHypListDatabases関数を組み合せて使用しています。

Sub test()

Dim url As Variant
Dim srv As Variant
Dim SSO As Variant
Dim username As Variant
Dim password As Variant
Dim app As Variant
Dim Applist As Variant
Dim AppDescList As Variant
Dim AppCubeList As Variant

'Essbase
url = "http://<server>:<port>/aps/SmartView"
app = "Sample"
srv = "EssbaseCluster-1"
username = "<username>"
password = "<password>"

ss = HypConnect("Sheet1", "admin", "ppp", "Conn123")
ss = HypListApplications(url, srv, <username>, <password>, Applist, AppDescList)
ss = HypListDatabases(url, srv, <username>, <password>, app, AppCubeList)

MsgBox (ss)

End Sub