Открытие рабочей книги, изменение данных, сохранение изменений

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Exp: IEaxAnalyzer;
    WB: ILaner;
    Table: ILanerTable;
    i, j: Integer;
Begin
    MB := MetabaseClass.Active;
    //Открываем рабочую книгу на редактирование
    MObj := MB.ItemById("OBJ123").Edit;
    Exp := MObj As IEaxAnalyzer;
    WB := Exp.Laner;
    //Получаем таблицу рабочей книги
    Table := WB.Execute;
    //Разрешаем редактирование таблицы
    If Not Table.IsEditing Then
        Table.Edit;
    End If;
    //Для всех доступных ячеек таблицы присваиваем случайные значения от 0 до 100
    For i := 0 To Table.RowCount - 1 Do
    For j := 0 To Table.ColumnCount - 1 Do
    If Table.IsEditableCell(i, j) Then
    Table.Cell(i, j) := Math.RandBetween(0, 100);
    End If;
    End For;
    End For;
    //Сохраняем изменения
    Table.Post;
    Table.Update;
    MObj.Save;
End Sub UserProc;