Table: String;
The Table property determines the name of the Excel file sheet, to which data is exported.
Executing the example requires that the repository contains an ETL task with the Etl identifier.
Sub Main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
EtlTask: IEtlTask;
EtlConsumer: IEtlPlainDataConsumer;
ExcelConsumer: IDtExcelConsumer;
WxConsumer: IWxRectangle;
WxETLConsumer: IWxETLObject;
Begin
MB := MetabaseClass.Active;
//ETL task search. Repository object with the ETL identifier
MObj := MB.ItemById("Etl").Edit;
EtlTask := MObj As IEtlTask;
//Start of the provider creation
//The Export To Excel object creation
EtlConsumer := EtlTask.Create(EtlObjectType.PlainDataExcelConsumer) As IEtlPlainDataConsumer;
EtlConsumer := EtlConsumer.Edit;
EtlConsumer.Id := "Excel_Consumer";
EtlConsumer.Name := "Export to Excel";
EtlConsumer.Description := "Export to Excel";
//Set up data provider
ExcelConsumer := EtlConsumer.Consumer As IDtExcelConsumer;
ExcelConsumer.File := "c:\DataOut.xls";
ExcelConsumer.Table := "OutputData";
ExcelConsumer.DriverVersion := "Excel 8.0";
//Save provider
EtlConsumer.Save;
//End of provider creation
//Start of visual object creation
WxConsumer := EtlTask.Workspace.CreateRectangle;
WxETLConsumer := New WxETLObject.Create;
WxETLConsumer.ETLObject := EtlConsumer;
WxConsumer.Style.TextPosition := WxTextPosition.Bottom;
WxConsumer.Style.PictureMarginTop := -10;
WxConsumer.PinPosition := New GxPointF.Create(50, 50);
WxConsumer.Extension := WxETLConsumer As IWxShapeExtension;
//End of visual object creation
//Save Etl task
MObj.Save;
End Sub Main;
After executing the example the Export to Excel object is created in the ETL task. The consumer exports data into the DataOut.xls Excel file. If such file does not exist, it is created. The name of the sheet, to which export is performed is OutputData. The Excel 8.0 drivers are used for connection.
See also: