説明
ListJournals()は、Oracle Hyperion Financial Managementの使用可能なすべての仕訳をリストします。
構文
Function ListJournals(
dims() As String,
dimVals() As String,
jrnlIDs() As String,
jrnlLabels() As String
) As Long
パラメータ
dims: 入力引数。ディメンションのリストを文字列の配列として指定します。
dimVals: 入力引数。ディメンション値のリストを文字列の配列として指定します。
jrnlIDs: 出力引数。仕訳IDを文字列の配列として戻します。
jrnlLabels: 出力引数。仕訳ラベルを文字列の配列として戻します。
戻り値
正常に終了した場合は0を戻し、それ以外の場合は該当するエラー・コードを戻します。
例
次の例では、メッセージを表示しないオプションを設定します。
Public Declare Function HypConnect Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtUserName As Variant, ByVal vtPassword As Variant, ByVal vtFriendlyName As Variant) As Long Sub TestListJournals ‘Connect to an HFM data source HypConnect “Sheet1”, “admin”, “password”, “connName” Set jObj = New JournalVBA jObj.UseActiveConnectionContext dims(0) = HFM_JOURNAL_DIM_SCENARIO dims(1) = HFM_JOURNAL_DIM_YEAR dims(2) = HFM_JOURNAL_DIM_PERIOD dims(3) = HFM_JOURNAL_DIM_VALUE dimVals(0) = "Actual" dimVals(1) = "2007" dimVals(2) = "January" dimVals(3) = "<Entity Curr Adjs>" Dim jrnlIds() As String Dim jrnlLabels() As String Dim retVal as Long retVal = jObj.ListJournals(dims, dimVals, jrnlIds, jrnlLabels) If retVal = 0 Then Debug.Print "Following are the Journal IDs and their Labels..." Debug.Print "Journal Id Name" Dim i As Integer For i = 0 To UBound(jrnlIds) Debug.Print Spc(5); jrnlIds(i); Spc(10); jrnlLabels(i) Next Else Debug.Print "ListJournals Failed!!!" End If End Sub