IDtOdsConsumer.File

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

Sub UserProc;
Var
    MB: IMetabase;
    MBProvider: IDtMetabaseProvider;
    OdsConsumer: IDtOdsConsumer;
    SourceFields, DestinationFields: IDtFieldDefinitions;
    Field: IDtFieldDefinition;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    // Источник данных - таблица репозитория
    MBProvider := New DtMetabaseProvider.Create;
    MBProvider.Dataset := MB.ItemById("TABLE").Bind As IDatasetModel;
    SourceFields := MBProvider.Fields;
    // Приёмник данных - файл OpenDocument
    OdsConsumer := New DtOdsConsumer.Create;
    OdsConsumer.File := "D:\TableData.ods";
    OdsConsumer.Sheet := "TABLE DATA";
    OdsConsumer.HasHeader := True;
    OdsConsumer.ForceFullCalculation := True;
    DestinationFields := OdsConsumer.Fields;
    DestinationFields.Clear;
    For i := 0 To SourceFields.Count - 1 Do
        Field := DestinationFields.Add;
        Field.DataType := SourceFields.Item(i).DataType;
        Field.Name := SourceFields.Item(i).Name;
    End For;
    OdsConsumer.Open;
    OdsConsumer.Clear;
    OdsConsumer.PutProvider(MBProvider);
    OdsConsumer.Close;
End Sub UserProc;