説明
CreateJournal()は、空の仕訳あるいは標準テンプレートまたは繰返しテンプレートに基づいた仕訳を作成します。
構文
Function CreateJournal(
dims() As String,
dimVals () As String,
templateType As String,
templateNames() As String
) As Long
パラメータ
dims: 入力引数。ディメンションのリストを文字列の配列として指定します。
dimVals: 入力引数。ディメンション値のリストを文字列の配列として指定します。
templateType: 入力引数。値は次のいずれかです。
HFM_JOURNAL_TEMPLATE_TYPE_BLANK
HFM_JOURNAL_TEMPLATE_TYPE_STANDARD
HFM_JOURNAL_TEMPLATE_TYPE_RECURRING
これらは、HFMJournalVBA.bas
で定義されています。
templateNames: 入力引数。テンプレート名を文字列の配列として指定します。
戻り値
正常に終了した場合は0を戻し、それ以外の場合は該当するエラー・コードを戻します。
例
Sub CreateJournal ‘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 templateNames(0) As String templateNames(0) = "Template1" retVal = jObj.CreateJournal(dims, dimVals, HFM_JOURNAL_TEMPLATE_TYPE_STANDARD, templateNames) If retVal = 0 Then Debug.Print "Create Journal from Template Succeeded" Else Debug.Print "Create Journal from Template Failed!!!" End If End Sub