Creating a Workbook with Several Sheets and Adding Data to It

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
    MObj: IMetabaseObject;
    Exp: IEaxAnalyzer;
    Source: IMetabaseObjectDescriptor;
    WB: ILaner;
    FactD: IRubricatorFactData;
    RubFactor : IRubricatorFactor;
    Series: ILanerSeries;
Begin
    MB := MetabaseClass.Active;
    CrInfo := MB.CreateCreateInfo;
    CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_WORKBOOK;
    CrInfo.Id := MB.GenerateId("NewWorkbook");
    CrInfo.Name := "A new workbook";
    CrInfo.Parent := MB.ItemById("WORKBOOKS");
    //Create the Workbook repository object
    MObj := MB.CreateObject(CrInfo).Edit;
    Exp := MObj As IEaxAnalyzer;
    //Determine a source for the workbook
    Source := MB.ItemById("TSDB");
    //Add a second sheet from express report or workbook with the specified identifier to the workbook
    Exp.Sheets.Add(MB.ItemById("OBJ123").Bind As IEaxAnalyzer);
    WB := Exp.Laner;
    WB.RubricatorInstance := Source.Open(Null) As IRubricatorInstance;
    //Return the indicator with the specified key from the time series database
    FactD := WB.RubricatorInstance.GetFactData(45718);
    RubFactor := FactD.Factor;
    Series:= WB.Series;
    //Add a series from the time series database to the workbook active sheet
    Series.AddCalculateSerieAsSource(RubFactor);
    //Save the created repository object
    MObj.Save;
End Sub UserProc;