Создание рабочей книги с несколькими листами и добавление в нее данных

Копировать пример

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 := "Новая рабочая книга";
    CrInfo.Parent := MB.ItemById("WORKBOOKS");
    //Создаем объект репозитория «Рабочая книга»
    MObj := MB.CreateObject(CrInfo).Edit;
    Exp := MObj As IEaxAnalyzer;
    //Определяем источник рабочей книги
    Source := MB.ItemById("TSDB");
    //Добавляем в рабочую книгу второй лист из экспресс-отчета/рабочей книги с указанным идентификатором
    Exp.Sheets.Add(MB.ItemById("OBJ123").Bind As IEaxAnalyzer);
    WB := Exp.Laner;
    WB.RubricatorInstance := Source.Open(Null) As IRubricatorInstance;
    //Возвращаем из базы данных временных ряд показатель с указанным ключом
    FactD := WB.RubricatorInstance.GetFactData(45718);
    RubFactor := FactD.Factor;
    Series:= WB.Series;
    //Добавляем на активный лист рабочей книги ряд из базы данных временных рядов
    Series.AddCalculateSerieAsSource(RubFactor);
    //Сохраняем созданный объект репозитория
    MObj.Save;
End Sub UserProc;