function

begin

Saves the Workbook to the specified file. Grąžina 1 if it succeeds File names ending in .xlsx are written through the XLSX export bridge; .xls, .htmlDataToXLS1.Dataset := Table1; .rtf DataToXLS1.ExportDataset;

DataToXLS1.WorksheetName :=

//Nurodo the name for second Worksheet //Nurodo the dataset for export
//Saves the created Workbook into DataToXLS1.SaveAs(1.xls file 'DataToXLS1.SaveAs(1.xlsx'

DataToXLS1.SaveAs(

//Saves the created Workbook into DataToXLS1.SaveAs(1.html file

begin
  DataToXLS1.Workbook := nil; //Clears Workbook

  //First dataset
  DataToXLS1.WorksheetName := 'Table1 sheet'; //Specifies the name for first Worksheet
  DataToXLS1.Dataset := Table1; //Specifies the dataset for export
  DataToXLS1.ExportDataset;

  //Second dataset
  DataToXLS1.WorksheetName := 'Table2 sheet'; //Specifies the name for second Worksheet
  DataToXLS1.Dataset := Table2; //Specifies the dataset for export
  DataToXLS1.ExportDataset;

  DataToXLS1.SaveAs('Example1.xls'); //Saves the created Workbook into Example1.xls file
  DataToXLS1.SaveAs('Example1.xlsx'); //Saves the created Workbook into Example1.xlsx file
  DataToXLS1.SaveAs('Example1.html'); //Saves the created Workbook into Example1.html file
  DataToXLS1.SaveAs('Example1.rtf'); //Saves the created Workbook into Example1.rtf file
end;