Delphi dataset to excel

This TscExcelExport component is an advanced, powerful but easy to use component which enables you to export all records of a dataset from Embarcadero Delphi to Microsoft Excel. Many features are provided to change the layout, use conditional formatting, to add totals, to create groups, to set a filter, … The component works in Delphi 5, 6, 7, 2006, 2007, 2009, 2010, XE, XE2, XE3, XE4, XE5, XE6, XE7, XE8, 10 Seattle, 10.1 Berlin, 10.2 Tokyo, 10.3 Rio, 10.4 Sydney and 11 Alexandria and it supports all Excel versions from 97 to 2019.

Features Properties All kinds of settings to modify the layout of the worksheet are provided. Name of worksheet and file Header and footer texts Begin row and column of header, footer, titles (=fieldnames) and data (fieldvalues) Width of columns or autofit Font of header, footer, titles, summary and data (Alignment, VerticalAlignment, WrapText, Orientation, MergeCells) Backgroundcolor and borders of header, footer, titles, summary and data Summaries for numeric or given fields (SUM, MIN, MAX, AVG, COUNT) AutoFilter for titles Create groups with given fields Create new worksheets are reuse existing files Access to the Excel objects (ExcelApplication, ExcelWorkbook, ExcelWorksheet, …) … Events To define the background color and font color, size, name and bold style of each cell For exporting/writing data without using a TDataset Methods Export to Excel Save worksheet as XLSX (Open XML), XLS, HTML, XML or CSV Show print preview Component editor The component editor can be used to change some settings on an easy way. Live templates Live templates for all Delphi versions since 2006 (ExcelExportUse and ExcelExportCreate)

Info

Type library / OCX / COM

• This ExcelExport component uses the Office server components from the Embarcadero COM type library to implement OLE automation with Excel.
• By using compiler directives (in unit scExcelExportConfig.inc) you can override the default type library. The available libraries are Excel97, Excel2000, ExcelXP and Excel2010.
• Microsoft Excel should be installed on the PC when using this component.

Delphi / Office

• This VCL component was tested in
  • Borland Delphi 5 (SP1)
  • Borland Delphi 6
  • Borland Delphi 7
  • Borland Delphi (BDS) 2005
  • Borland Delphi (BDS) 2006
  • CodeGear Turbo Delphi
  • CodeGear Delphi 2007
  • CodeGear Delphi 2009
  • Embarcadero Delphi 2010
  • Embarcadero Delphi XE
  • Embarcadero Delphi XE2
  • Embarcadero Delphi XE3
  • Embarcadero Delphi XE4
  • Embarcadero Delphi XE5
  • Embarcadero Delphi XE6
  • Embarcadero Delphi XE7
  • Embarcadero Delphi XE8
  • Embarcadero Delphi 10 Seattle
  • Embarcadero Delphi 10.1 Berlin
  • Embarcadero Delphi 10.2 Tokyo
  • Embarcadero Delphi 10.3 Rio & Community Edition
  • Embarcadero Delphi 10.4 Sydney
  • Embarcadero Delphi 11 Alexandria
• This ExcelExport component works with
  • Microsoft Excel 97
  • Microsoft Excel 2000
  • Microsoft Excel XP
  • Microsoft Excel 2003
  • Microsoft Excel 2007
  • Microsoft Excel 2010
  • Microsoft Excel 2013
  • Microsoft Excel 2016
  • Microsoft Excel 2019
  • Microsoft Excel 365
• It has been tested with Dutch and some English Office versions.
• It will also give you access to the Excel Application, Workbook and Worksheet objects so you can access all VBA properties and methods.

Demo application

• A full demo application with 18 examples is provided to test all features of the component (and Excel automation).
• The project file and source code is located in the Source demo folder. The executable DemoExcelExport.exe is also included in this folder.

Installation

• Step 1: Open the run-time package ExcelExportPack5.dpk (for Delphi5), ExcelExportPack6.dpk (for Delphi6) ExcelExportPack7.dpk (for Delphi7), ExcelExportPack9.dpk (for Delphi 2005), ExcelExportPack10.dproj (for Delphi 2006 and Turbo Delphi), ExcelExportPack11.dproj (for Delphi 2007), ExcelExportPack12.dproj (for Delphi 2009), ExcelExportPack14.dproj (for Delphi 2010), ExcelExportPackXE.dproj (for Delphi XE), ExcelExportPackXE2.dproj (for Delphi XE2), …, ExcelExportPackXE10.dproj (for Delphi XE10), ExcelExportPackD10.dproj (for Delphi 10 Seattle), ExcelExportPackD101.dproj (for Delphi 10.1 Berlin), ExcelExportPackD102.dproj (for Delphi 10.2 Tokyo), ExcelExportPackD103.dproj (for Delphi 10.3 Rio and Community Edition) and ExcelExportPackD104.dproj (for Delphi 10.4 Sydney). Compile or Build the package.
• Step 2: Open the design-time package dclExcelExportPackx.dproj and Compile or Build it
• Step 3: Install it. The Install option is only available in the context popup menu when you right click
• The TscExcelExport component will appear in the tabsheet SC of the component palette.
• When you like to add the component to an existing package, make sure the DCP file dclOffice which can be found in the Delphi/Lib folder is added as «required». When creating a new design-time package, the DCP file designide.dcp should be added.

Technical info

• See header of unit scExcelExport.pas for more information about all properties, methods, events, …

• Documentation, release notes and examples about the Delphi TscExcelExport component (in PDF format) (3,6 Mb)

Screenshots

Delphi examples

Example 1 : easiest way to export/write/copy dataset to Excel

scExcelExport1.Dataset:=Table1;
scExcelExport1.ExportDataset;
scExcelExport1.Disconnect;

Example 2 : using layout properties, adding summary cells and save file

scExcelExport1.WorksheetName := 'MyDataset';
scExcelExport1.Dataset:=Table1;
scExcelExport1.StyleColumnWidth:=cwOwnerWidth;
scExcelExport1.ColumnWidth := 20;
scExcelExport1.HeaderText.Text := 'Header';
scExcelExport1.BeginRowHeader := 2;
scExcelExport1.FontTitles := LabelTitle.Font;
scExcelExport1.FontTitles.Orientation := 45;
scExcelExport1.BorderTitles.BackColor := clYellow;
scExcelExport1.BorderTitles.BorderColor := clRed;
scExcelExport1.BorderTitles.LineStyle := blLine;
scExcelExport1.BeginRowTitles := 5;
scExcelExport1.FontData := LabelData.Font;
scExcelExport1.SummarySelection := ssValues;
scExcelExport1.SummaryCalculation := scMAX;
scExcelExport1.AutoFilter := True;
scExcelExport1.ExcelVisible:=False;
try
  scExcelExport1.ExportDataset;
  scExcelExport1.ExcelWorkSheet.Range['A1','A10'].Value := 'Delphi';
  scExcelExport1.SaveAs('c:test.xls',ffXLS);
finally
  scExcelExport1.Disconnect;
end;

Example 3 : grouping data

try
  scExcelExport1.Dataset:=QuerySortShipVia;

  scExcelExport1.SummarySelection := ssValues;
  scExcelExport1.SummaryCalculation := scAVG;
  scExcelExport1.SummaryDisplayFormat := '###0.000';

  scExcelExport1.StyleColumnWidth := cwEnhAutoFit;

  scExcelExport1.GroupFields.Clear;
  scExcelExport1.GroupFields.Add('ShipVia');
  scExcelExport1.GroupFields.Add('Terms');

  scExcelExport1.ExportDataset;
finally
  scExcelExport1.Disconnect;
end;

Example 4 : export several datasets

scExcelExport1.ExcelVisible:=True;
try
  scExcelExport1.Dataset:=Table1;
  scExcelExport1.WorksheetName:='1';
  scExcelExport1.ConnectTo := ctNewExcel;
  scExcelExport1.ExportDataset;
  scExcelExport1.Disconnect;
  scExcelExport1.Dataset:=Table2;
  scExcelExport1.WorksheetName:='2';
  scExcelExport1.ConnectTo := ctNewWorkbook;
  scExcelExport1.ExportDataset;
  scExcelExport1.Disconnect;
  scExcelExport1.Dataset:=Table3;
  scExcelExport1.WorksheetName:='3';
  scExcelExport1.ConnectTo := ctNewWorksheet;
  scExcelExport1.ExportDataset;
finally
  scExcelExport1.Disconnect;
end;

Example 5 : change background color and font style in the OnGetCellStyle event

procedure scExcelExportGetCellStyleEvent(Sender: TObject; Field: TField; 
  var ColorBackground : TColor; FontCell : TxlFont);
begin
  if Field.FieldName = 'CustNo' then
  begin
    if Field.Value > 2000 then
    begin
      FontCell.Color := clRed;
      FontCell.Name := 'Times New Roman';
      FontCell.Size := 14;
    end;
    if Field.Value > 3000 then
    begin
      FontCell.Color := clGreen;
      FontCell.Style := [fsBold];
    end;
  end;

  if Field.FieldName = 'EmpNo' then
  begin
    if Field.Dataset.FieldByName('CustNo').Value > 2000 then
      ColorBackground := clRed;
  end;

  if Field.DataSet.FieldByName('EmpNo').Value > 100 then
    ColorBackground := clYellow;
end;

Example 6 : access to the properties of the Excel Worksheet object

try
  scExcelExport1.Dataset:=Table1;
  scExcelExport1.Connect;
  scExcelExport1.ExcelWorkSheet.Range['A2','C8'].Borders.Color := clRed;

  scExcelExport1.ExportDataset;

  scExcelExport1.ExcelWorkSheet.Range['B2','B2'].Select;  scExcelExport1.ExcelApplication.ActiveWindow.FreezePanes := True;

  scExcelExport1.ExcelWorkSheet.Range['B5','E7'].Cells.Clear;

  scExcelExport1.ExcelWorkSheet.Range[Format('A%d',[scExcelExport1.EndRowData+3]),
    Format('A%d',[scExcelExport1.EndRowData+3])].Value := 'Add extra info to the Excel worksheet';

  scExcelExport1.ExcelWorkSheet.Range['M1','M1'].Value := 10;
  scExcelExport1.ExcelWorkSheet.Range['M2','M2'].Value := 5;
  scExcelExport1.ExcelWorkSheet.Range['M3','M3'].Value := '=M1+M2';
  scExcelExport1.ExcelWorkSheet.Range['M3','M3'].Font.Color := clRed;
  scExcelExport1.ExcelWorkSheet.Range['M1','M20'].EntireColumn.Autofit;

  scExcelExport1.ExcelWorkSheet.Range['B2','B2'].AddComment('This is comment for a cell');
finally
  scExcelExport1.Disconnect;
end;

Copyrights and distribution

• All copyrights to this component are owned by the author Stefan Cruysberghs.
• This component is open-source and can be distributed and used freely for non-commercial purposes. In commercial environments a license is required!
• All sources (with detailed comments) are included.
• The author doesn’t give a warranty for error free running of this component.
• Registered users can count on it that bugs will be solved as soon as possible.

Registration

• If you like this component or you are using it in a commercial environment then you have to register it.
• You will encourage the author to further develop and improve this ExcelExport component.
• After registering you do not need a registration key! No email will be send. The version which can be downloaded at this page is fully functional.

Benefits of registering

• Full source code for Delphi version 5 to XE8 and to 11 Alexandria.
• Unlimited deployment license in commercial environments.
• Lifetime license, so once you’ve paid the license fee, you don’t need to pay any further to get updates.
• Basic support can be provided by e-mail.

Single developer license

• Price: 35 EURO

Buy single license via PayPal

Site license (unlimited developers, unlimited time valid)

• Price: 130 EURO

Buy site license via PayPal

If you are a satisfied home user of this component and you would like to further support its development, you can donate 2 euros via PayPal. Thanks in advance for the support!

Donatie van 2 euro PayPal

Download

Автор: ООО «РИЛИО»

Прилагается исходный код компонента ExcelView и процедуры экспорта и печати по шаблону в Excel для Delphi 2010/XE/XE2. Доступна полная версия с примерами использования.

Зачем это нужно?

Excel в современном офисе фактически стал стандартом для ввода и анализа данных, создания итоговых отчетов и презентаций. В первую очередь, благодаря наглядности подхода и простоте освоения. Создать «табличку» с нужными автоматическими расчетами, добавить промежуточные итоги по нескольким критериям и построить по этим итогам круговую диаграмму — все это можно сделать без специальной подготовки, легко и непринужденно.

Поэтому вполне закономерно, что Excel широко используется и для разработки различных печатных форм. Хотя по своим возможностям он уступает специализированным генераторам отчетов, уже практически для всех типовых документов можно найти готовые Excel-шаблоны, от коммерческого предложения до товарно-транспортной накладной по форме 1-Т (http://blanker.ru/doc/38)

Что и как экспортировать?

Предполагается, что нам нужно заполнять предварительно созданные шаблоны Excel. Под шаблонами подразумеваются обычные Excel-файлы, в которых отдельные ячейки и области обозначаются именами переменных. Туда и будут вставляться наши данные.

В шаблоне могут использоваться в качестве переменных:

• все published свойства формы-владельца
• все компоненты, принадлежащие форме-владельцу, и их published свойства
• все наборы данных (наследники TDataSet) обрабатываются специальным образом, в шаблон подставляются значения их полей

Готовые решения на основе шаблонов

Компоненты для вывода в Excel довольно легко найти в интернете, например:

• TMS Flexcel Studio (http://www.tmssoftware.com/site/flexcel.asp) — $125
• ARExcelReport (http://www.vector-ski.com/reports/arexcelreport_index.htm) — бесплатный для некоммечерского использования, стоимость исходников — $125
• Don Excel Report (http://www.don-soft.com.ar/DonExcelReport/products.php) — $75
• AfalinaSoft XL Report (http://www.afalinasoft.com/download-xl-report.html) — «будет open source через месяц-два», — написано в 2003 году. Увы…
• FlexCelReport (http://www.freewebs.com/flexcel/) — бесплатный, в исходниках. Для Delphi 5/6/7. Сайт в настоящее время недоступен. При пересборке пакетов под Delphi 2010-XE2 необходимо вносить серьезные изменения.

Do It Yourself

Библиотеки компонентов всем хороши (кроме стоимости, конечно), но даже наличие исходных текстов не всегда спасает от возможных неприятностей. Проблема в том, что кода становится слишком много. Например, один из лучших (на мой взгляд) — FlexCelReport — это 916 Кб в 174 исходных файлах. Переносить этот проект на современные версии Delphi становится проблематично.

В таких случаях остается вариант написания процедуры или компонента самостоятельно. В качестве стартовой точки для ознакомления можно рекомендовать http://www.webdelphi.ru/2009/08/rabota-s-excel-v-delphi-osnovy-osnov/, http://www.codenet.ru/progr/delphi/stat/export-to-excel.php и т.д.

Таблицы и поля в шаблонах

У всех компонентостроителей — свои правила записи переменных в шаблонах. В FlexCelReport — это именованные диапазоны с двумя подчеркиваниями «__MAIN__» и переменные в ячейках вида ##DataSetName##FieldName, в ARExcelReport — <#table:DataSetName> … <#table> и т.д.

Мы хотим еще проще. Только FieldName и ничего лишнего.

А где задается DataSet?

В первой колонке. Отведем всю колонку под служебную информацию, благо в Экселе их (колонок) и так более чем достаточно. При выводе будем эту колонку скрывать.

Еще одно допущение — если мы хотим вывести все записи из DataSet-а в виде таблицы, ставим перед его именем звездочку (*tblOrders). Без звездочки будут выводиться только значения полей текущей записи.

Свойства и компоненты в шаблонах

Для вывода в шаблоне published свойства текущей формы запишем в ячейке имя этого свойства в квадратных скобках: [Caption], [Tag]. Свойства компонентов формы записываются с именем компонента через точку: [Memo1.Lines]. Поддерживаются (пока) свойства следующих типов: Integer, Int64, String, Double, Boolean, TStrings.

Реализация

Весь код находится в файле ExcelView.pas (7 Кб). Компонент TExcelView имеет единственное published свойство TemplateFileName — это имя файла шаблона. Метод Show открывает Excel и запускает процесс экспорта.

Можно и не устанавливать компонент в палитру, а сразу выполнить процедуру

Код:

Обратите внимание на параметр Owner! Это тот компонент (форма, датамодуль), чьи свойства, компоненты, датасеты и будут экспортироваться в Excel.

Взаимодействие с Excel происходит через OLE:

Код:

Для вывода набора данных сначала формируется вариантный массив:

Код:

А потом уже вставляется в нужное место:

Код:

Для вывода свойств используется модуль Rtti:

Код:

Из за использования модулей Rtti и TypInfo компонент не работает в Delphi младше 2010. Можно либо удалить эти ссылки и весь метод ProcessProperty, либо переписать его для младших версий Delphi (см. http://delphi7.org/lit/faq/1618.php)

​Исходный код

Код:

I want to export the records of a table in MS Access to a excel file or a tab delimited text file in DELPHI. Here i have tried with ADOTable since i have no idea of exporting it with ADODataset. My code is,

procedure TForm1.Button4Click(Sender: TObject);
const
   adClipString = 2;
   ColumnDelimiter = ‘;’;
   RowDelimiter = #13#10;
var
   s : String;
   fs : TFileStream;
   export_filename:string;
   ADOTable1:TADOTable;
   rs123:TADODataset;
begin
    connect;
    rs123:=TADOdataset.create(nil);
    rs123.Connection :=con;
    rs123.CommandText :=’select * from b_table1′;
    rs123.Open;
    export_filename:=’c:test.csv’;
   ADOTable1:=TADOTable.Create(nil);
   ADOTable1.Connection :=con;
   ADOTable1.TableName :=’b_table1′;
   ADOTable1.Open;
   s := ADOTable1.Recordset.GetString(adClipString, ADOTable1.Recordset.RecordCount, ColumnDelimiter, RowDelimiter, »);
fs := TFileStream.Create(export_filename, fmCreate);
 try
  fs.WriteBuffer(s[1], Length(s));
 finally
  fs.Free;
end;
   showmessage(‘completed’);
end;

When i opened the excel file, i found that all the field values are stored in one cell separated by commas. But i want each of the field value in each column.

I want the output file with details in the following format(in the case of text file):
H      FirstName      LastName      Age      !!
A      Ram      Ramu      21      !!
A      Sam      Samu      19      !!
A      Sen      Senu      23      !!      

In case of Excel, i want each field value in separate columns.

Please help me.