Delphi работа с excel скачать

procedure TForm16.SlowVariant;
var Rows, Cols, i,j: integer;
    WorkSheet: OLEVariant;
    d: TDateTime;
begin
  //открываем книгу
  ExcelApp.Workbooks.Open(edFile.Text);
  //получаем активный лист
  WorkSheet:=ExcelApp.ActiveWorkbook.ActiveSheet;
  //определяем количество строк и столбцов таблицы
  Rows:=WorkSheet.UsedRange.Rows.Count;
  Cols:=WorkSheet.UsedRange.Columns.Count;
 
  StringGrid1.RowCount:=Rows;
  StringGrid1.ColCount:=Cols;
 
  //засекаем время начала чтения
  d:=Now;
 
  //выводим данные в таблицу
  for I := 0 to Rows-1 do
    for j := 0 to Cols-1 do
        StringGrid1.Cells[J,I]:=WorkSheet.UsedRange.Cells[I+1,J+1].Value;
 
 Label2.Caption:='Время чтения всего листа: '+FormatDateTime('hh:mm:ss:zzz',
    Now()-d);
end;

procedure TForm16.RangeRead;
var Rows, Cols, i,j: integer;
    WorkSheet: OLEVariant;
    FData: OLEVariant;
    d: TDateTime;
begin
  //открываем книгу
  ExcelApp.Workbooks.Open(edFile.Text);
  //получаем активный лист
  WorkSheet:=ExcelApp.ActiveWorkbook.ActiveSheet;
  //определяем количество строк и столбцов таблицы
  Rows:=WorkSheet.UsedRange.Rows.Count;
  Cols:=WorkSheet.UsedRange.Columns.Count;
 
  //считываем данные всего диапазона
  FData:=WorkSheet.UsedRange.Value;
 
  StringGrid1.RowCount:=Rows;
  StringGrid1.ColCount:=Cols;
 
//засекаем время начала чтения
  d:=Now;
 
//выводим данные в таблицу
  for I := 0 to Rows-1 do
    for j := 0 to Cols-1 do
        StringGrid1.Cells[J,I]:=FData[I+1,J+1];
 
    Label2.Caption:='Время чтения всего листа: '+FormatDateTime('hh:mm:ss:zzz',
    Now()-d);
end;

procedure TForm16.WriteData;
var i,j: integer;
    FData: Variant;
    Sheet,Range: Variant;
begin
//создаем вариантный массив
  FData:=VarArrayCreate([1,StringGrid1.RowCount,1,StringGrid1.ColCount],varVariant);
//заполняем массив данными из StringGrid
  for i:=1 to VarArrayHighBound(FData,1) do
    for j:=1 to VarArrayHighBound(FData,2) do
      FData[i,j]:=StringGrid1.Cells[J-1,I-1];
{активируем второй лист книги}
//открываем книгу
ExcelApp.Workbooks.Open(edFile.Text);
//активируем
Sheet:=ExcelApp.ActiveWorkBook.Sheets[2];
Sheet.Activate;
//выделяем диапазон для вставки данных
Range:=Sheet.Range[Sheet.Cells[1,1],Sheet.Cells[VarArrayHighBound(FData,1),VarArrayHighBound(FData,2)]];
//вставляем данные
Range.Value:=FData;
//показываем окно Excel
ExcelApp.Visible:=True;
end;

var
  IntlXls: TXLSReadWriteII2;
  I, J: Integer;
 
begin
  // создаем объект
  IntlXls := TXLSReadWriteII2.Create(nil);
 
  // название книги
  IntlXls.Sheets[0].Name := ‘ Название моего отчета ’;
  // добавляем необходимое количество строк и колонок
  IntlXls.Sheets[0].Rows.AddIfNone(0, 10000);
  IntlXls.Sheets[0].Columns.AddIfNone(0, 100);
 
  // добавляем и заносим ширины ячеек (значение в пикселях)
  for I := 0 to 99 do
    IntlXls.Sheets[0].Columns[I].PixelWidth := 150;
  // заносим высоты строк (значение здесь не в пикселях, поэтому нужно корректировать)
  for I := 0 to 9999 do
    IntlXls.Sheets[0].Rows[I].Height := 20 * 14;
 
  // настраиваем
  for J := 0 to 9999 do
    for I := 0 to 99 do
    begin
      // заносим числовое значение
      // если нужно например занести строку, то использовать AsString
      IntlXls.Sheets[0].AsFloat[I, J] := J + I / 100;
 
      // выравнивание по горизонтали (доступно chaLeft, chaCenter, chaRight)
      IntlXls.Sheets[0].Cell[I, J].HorizAlignment := chaLeft;
 
      // выравнивание по вертикали (доступно cvaTop, cvaCenter, cvaBottom)
      IntlXls.Sheets[0].Cell[I, J].VertAlignment := cvaTop;
 
      // шрифт
      IntlXls.Sheets[0].Cell[I, J].FontName := ‘ Arial ’;
      IntlXls.Sheets[0].Cell[I, J].FontSize := 12;
      IntlXls.Sheets[0].Cell[I, J].FontStyle := [];
      IntlXls.Sheets[0].Cell[I, J].FontColor := TColorToClosestXColor(clBlue);
      IntlXls.Sheets[0].Cell[I, J].Rotation := 0;
      // жирное начертание
      with IntlXls.Sheets[0].Cell[I, J] do
        FontStyle := FontStyle + [xfsBold];
      // наклонное начертание
      with IntlXls.Sheets[0].Cell[I, J] do
        FontStyle := FontStyle + [xfsItalic];
      // цвет фона
      IntlXls.Sheets[0].Cell[I, J].FillPatternForeColor :=
        TColorToClosestXColor(clYellow);
 
      // бордюр слева (аналогично и остальные бордюры)
      IntlXls.Sheets[0].Cell[I, J].BorderLeftColor :=
        TColorToClosestXColor(clBlack);
      IntlXls.Sheets[0].Cell[I, J].BorderLeftStyle := cbsThin;
 
      // объединение ячеек (здесь объединяются две ячейки по горизонтали)
      if I = 49 then
        IntlXls.Sheets[0].MergedCells.Add(I, J, I + 1, J);
    end;
 
  IntlXls.SaveToFile(‘ c:  demo.xls ’);
  IntlXls.Free;
end;

function ExportToExcelXls(var AFileName: string): Integer;
var
  IntlXls: TXLSReadWriteII2;
  IntlCol: Integer;
  IntlRow: Integer;
  IntlMainCol: Integer;
  IntlMainRow: Integer;
begin
  // инициализируем статус
  prgrbrStatus.Max := FLinkReport.RowCount;
  prgrbrStatus.Position := 0;
  pnlStatus.Visible := TRUE;
  pnlStatus.Refresh;
  // добавлено в конце имени файла расширение ‘.XLS’?
  if Length(AFileName) < 5 then
    // добавляем
    AFileName := AFileName + ‘.xls ’
  else if AnsiCompareText(Copy(AFileName, Length(AFileName)— 3, 4), ‘.xls ’) <> 0
  then
    // добавляем
    AFileName := AFileName + ‘.xls ’;
  // файл уже существует?
  if FileExists(AFileName) then
    // спросим
    if Application.MessageBox
      (PChar(‘ Файл « ‘ + AFileName + ‘ » уже существует.Перезаписать ? ’),
      ‘ Внимание ’, MB_TASKMODAL + MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2)
      <> IDYES then
    // выходим
    begin
      // код ошибки
      Result := UNIRPT_GENERATE_ABORT;
 
      // выходим
      Exit;
    end; // if
  // создаем объект
  IntlXls := TXLSReadWriteII2.Create(nil);
  // все делаем защищаясь
  try
    // название книги
    IntlXls.Sheets[0].Name := FLinkReport.Caption;
    // добавляем необходимое количество строк и колонок
    IntlXls.Sheets[0].Rows.AddIfNone(0, FLinkReport.Cells.RowCount + 1);
    IntlXls.Sheets[0].Columns.AddIfNone(0, FLinkReport.Cells.ColCount + 1);
    // добавляем и заносим ширины ячеек
    for IntlCol := 0 to FLinkReport.Cells.ColCount — 1 do
      IntlXls.Sheets[0].Columns[IntlCol].PixelWidth :=
        FLinkReport.ColWidths[IntlCol];
    // заносим высоты строк
    for IntlRow := 0 to FLinkReport.Cells.RowCount — 1 do
      IntlXls.Sheets[0].Rows[IntlRow].Height := FLinkReport.RowHeights
        [IntlRow] * 14;
    // проходим по всем строкам
    for IntlRow := 0 to FLinkReport.Cells.RowCount — 1 do
    begin
      // проходим по всем колонкам
      for IntlCol := 0 to FLinkReport.Cells.ColCount — 1 do
      begin
        // определяем главную ячейку
        IntlMainCol := IntlCol + FLinkReport.Cells[IntlCol, IntlRow].Range.Left;
        IntlMainRow := IntlRow + FLinkReport.Cells[IntlCol, IntlRow].Range.Top;
        // заносим оформление
        with FLinkReport.Cells[IntlMainCol, IntlMainRow] do
        begin
          // главная ячейка?
          if (IntlMainCol = IntlCol) and (IntlMainRow = IntlRow) then
          // да, заносим текст и его оформление
          begin
            // значение
            try
              // если значение — число то заносим его как число
              IntlXls.Sheets[0].AsFloat[IntlCol, IntlRow] := StrToFloat(Value);
            except
              // иначе заносим его как строку
              IntlXls.Sheets[0].AsString[IntlCol, IntlRow] := Value;
            end;
 
            // выравнивание по горизонтали
            case HorizAlign of
              haLeft:
                // выравнивание слева
                IntlXls.Sheets[0].Cell[IntlCol, IntlRow].HorizAlignment
                  := chaLeft;
              haCenter:
                // выравнивание по центру
                IntlXls.Sheets[0].Cell[IntlCol, IntlRow].HorizAlignment :=
                  chaCenter;
              haRight:
                // выравнивание справа
                IntlXls.Sheets[0].Cell[IntlCol, IntlRow].HorizAlignment
                  := chaRight;
            end; // case
            // выравнивание по вертикали
            case VertAlign of
              vaTop:
                // выравнивание сверху
                IntlXls.Sheets[0].Cell[IntlCol, IntlRow].VertAlignment
                  := cvaTop;
              vaCenter:
                // выравнивание в центре
                IntlXls.Sheets[0].Cell[IntlCol, IntlRow].VertAlignment :=
                  cvaCenter;
              vaBottom:
                // выравнивание снизу
                IntlXls.Sheets[0].Cell[IntlCol, IntlRow].VertAlignment :=
                  cvaBottom;
            end; // case
            // шрифт
            IntlXls.Sheets[0].Cell[IntlCol, IntlRow].FontName := Font.Name;
            IntlXls.Sheets[0].Cell[IntlCol, IntlRow].FontSize := Font.Size;
            IntlXls.Sheets[0].Cell[IntlCol, IntlRow].FontCharset :=
              Font.Charset;
            IntlXls.Sheets[0].Cell[IntlCol, IntlRow].FontStyle := [];
            IntlXls.Sheets[0].Cell[IntlCol, IntlRow].FontColor :=
              TColorToClosestXColor(Font.Color);
            IntlXls.Sheets[0].Cell[IntlCol, IntlRow].Rotation := Font.Angle;
            // есть жирное начертание?
            if Font.IsBold then
              // есть
              with IntlXls.Sheets[0].Cell[IntlCol, IntlRow] do
                FontStyle := FontStyle + [xfsBold];
            // есть наклонное начертание?
            if Font.IsItalic then
              // есть
              with IntlXls.Sheets[0].Cell[IntlCol, IntlRow] do
                FontStyle := FontStyle + [xfsItalic];
            // цвет фона
            if Color <> clWindow then
              // цвет задан
              IntlXls.Sheets[0].Cell[IntlCol, IntlRow].FillPatternForeColor :=
                TColorToClosestXColor(Color);
          end // if
          else
            // просто активизируем ячейку (иначе ниже невозможно добавить бордюры)
            IntlXls.Sheets[0].AsString[IntlCol, IntlRow] := »;
 
          // бордюр слева есть?
          with Borders.Left do
            if LineHeight > 0 then
            // настраиваем
            begin
              // цвет
              IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderLeftColor :=
                TColorToClosestXColor(Color);
              // толщина
              if LineHeight = 1 then
                // тонка
                IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderLeftStyle
                  := cbsThin
              else if LineHeight in [1, 2] then
                // средняя толщина
                IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderLeftStyle :=
                  cbsMedium
              else
                // толстая
                IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderLeftStyle
                  := cbsHair;
            end; // if, with
          // бордюр сверху есть?
          with Borders.Top do
            if LineHeight > 0 then
            // настраиваем
            begin
              // цвет
              IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderTopColor :=
                TColorToClosestXColor(Color);
              // толщина
              if LineHeight = 1 then
                // тонка
                IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderTopStyle
                  := cbsThin
              else if LineHeight in [1, 2] then
                // средняя толщина
                IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderTopStyle :=
                  cbsMedium
              else
                // толстая
                IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderTopStyle
                  := cbsHair;
            end; // if, with
          // бордюр справа есть?
          with Borders.Right do
            if LineHeight > 0 then
            // настраиваем
            begin
              // цвет
              IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderRightColor :=
                TColorToClosestXColor(Color);
              // толщина
              if LineHeight = 1 then
                // тонка
                IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderRightStyle
                  := cbsThin
              else if LineHeight in [1, 2] then
                // средняя толщина
                IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderRightStyle :=
                  cbsMedium
              else
                // толстая
                IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderRightStyle
                  := cbsHair;
            end; // if, with
          // бордюр снизу есть?
          with Borders.Bottom do
            if LineHeight > 0 then
            // настраиваем
            begin
              // цвет
              IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderBottomColor :=
                TColorToClosestXColor(Color);
              // толщина
              if LineHeight = 1 then
                // тонка
                IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderBottomStyle
                  := cbsThin
              else if LineHeight in [1, 2] then
                // средняя толщина
                IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderBottomStyle :=
                  cbsMedium
              else
                // толстая
                IntlXls.Sheets[0].Cell[IntlCol, IntlRow].BorderBottomStyle
                  := cbsHair;
            end; // if, with
          // объединение нужно?
          if ((Range.Width > 1) or (Range.Height > 1)) and
            ((IntlMainCol = IntlCol) and (IntlMainRow = IntlRow)) then
            // объединяем
            IntlXls.Sheets[0].MergedCells.Add(IntlCol, IntlRow,
              IntlCol + Range.Width — 1, IntlRow + Range.Height — 1);
          // пользователь нажал кнопку прерывания экспорта?
          if btnCancel.Tag = 2 then
            // да, выходим
            Break;
        end; // with
      end; // for
      // обновляем статус
      prgrbrStatus.Position := prgrbrStatus.Position + 1;
      Application.ProcessMessages;
      // пользователь нажал кнопку прерывания экспорта?
      if btnCancel.Tag = 2 then
        // да, выходим
        Break;
    end; // for
    // пользователь нажал кнопку прерывания экспорта?
    if btnCancel.Tag <> 2 then
    // нет
    begin
      // на левый верхний угол
      IntlXls.Sheet[0].TopRow := 0;
      IntlXls.Sheet[0].LeftCol := 0;
      IntlXls.Sheet[0].Selection.ActiveRow := 0;
      IntlXls.Sheet[0].Selection.ActiveCol := 0;
 
      // статус
      prgrbrStatus.Position := prgrbrStatus.Max;
      Application.ProcessMessages;
      // записываем в файл
      IntlXls.FileName := AFileName;
      IntlXls.Write;
      // все успешно
      Result := UNIRPT_OK;
 
    end // if
    else
      // да
      Result := UNIRPT_GENERATE_ABORT;
 
  finally
    // освобождаем память
    IntlXls.Free;
  end; // try..finally
end; // function ExportToExcelXls

3.7
3
голоса

Рейтинг статьи

Features

Library design

• Native pascal object oriented code
• No external dll libraries are required
• No dependency on Excel or Calc installation (no OLE)
• Full unicode support even for non-unicode Delphi versions (D7, D2007 etc.)
• Write-On-The-Fly and Read-On-The-Fly: export and import huge tables without the need to store the whole document in memory.
• Reasonably fast (see performance table below).

Officially supported platforms

• Delphi 5, 6, 7, 2005, 2006, 2007: VCL + full unicode support thanks to WideString.
• Delphi 2009, 2010, XE: VCL
• Delphi XE2, XE3, XE4, XE5, XE6, XE7, XE8, 10 Seattle, 10.1 Berlin: VCL + FireMonkey, 32bit + 64bit Windows, Mac OSX.
  Important notice: Delphi ARM compiler (iOS) was not tested yet and may be unsupported.
• Lazarus 1.0.8: 32bit + 64bit Windows, Linux and Mac OSX (XLS: Little Endian platforms only)

Template Engine

• Currently only loading of XLSX/XLTX and XLS/XLT templates is supported.
• Automatically replace cell values and modify cells.
• Automatically add and process rows as they are defined in the template.
• Save the generated template in all formats OExport supports: XLSX/ODS/XLS/CSV!

Feature Overview

See the following files for a fast feature overview. These files have been directly exported with OExport:

• XLSX: oexport-fulldemo.xlsx
• ODS: oexport-fulldemo.ods
• XLS: oexport-fulldemo.xls

You can generate those files with the demo application you find in the FREE package (see download tab).
They have not been edited after the export in any way.
Please note that XLS exporter doesn’t support images and charts and therefore you won’t see them in the exported XLS file.
The full source code that was used to generate them
can be obtained from the documentation.

Feature Matrix

= Supported;

= Partially supported;

= Not supported;

= Not available

Feature	Export	Import
XLSX	ODS	XLS	CSV	XLSX	ODS	XLS	CSV
Cell types: string, number, percent, currency, scientific, fraction, time, date, datetime
Rich text in cells
Custom number format
Hyperlinks for string cells
Formulas for all cell types
Cell, row, column and worksheet formatting: horizontal + vertical alignment, wrap text, font, background color, borders (color, size and style), text orientation and rotation
Column widths + row heights
Column + row grouping
Conditional formatting
Data validation
Column + row span (merged cells)
Print settings: page header & footer, page orientation, page margins, page order, page breaks, print scale, table centering, repeat columns & rows, grid lines, table headers
Fixed cells (window fixed scrolling)
Named cells
Cell & worksheet protection: with and without password
Autofilter
Comments
Images: JPEG, PNG, GIF, TIFF  + fill, border, shadow
Charts: bars, columns, lines, areas, bubble, scatter; different line, fill, marker and axes styles, sizes, colors; titles …

Row and column limits

OExport is able to read and write the maximum permitted row and column counts of every supported format.
The limits are the following:

Performance

The performance of OExport may vary on used compiler. The best figures are reached
with Delphi 2009 and newer.
The following times were measured on an old laptop from 2007
(Intel Core 2 Duo, 1.8 GHz, 4.0 GB RAM, Win 7 32bit).
Files consisted of 1 million string cells
with shared strings table (SST) either off or on.

OFiller

• OFiller: fill DOCX (Word 2007-2013), ODT (OpenOffice Writer), XLSX (Excel 2007-2013), XLS (Excel 97-XP), ODS (OpenOffice Calc) templates

License

OEXPORT LICENSE INFORMATION
===========================


Copyright (C) 2011-2017 Ondrej Pokorny
  http://www.kluug.net

This license is applicable to all files distributed in this archive if not
stated differently.
The commercial part of the license text (FULL version) applies to orders
after March 14th, 2017.


*** BEGIN LICENSE BLOCK *****

OExport 2.x LICENSE
-------------------

 1) You may use OExport if:
     a. You use the FREE version.

        OR

     b. You have a commercial license for the FULL version.

 2) Limitations of the FREE version
     a. There are no limitations per workplace. You can use OExport FREE
        both for commercial and non-commercial purposes.

     b. Only the first worksheet will be exported or imported and a maximum
        of 40 rows and 10 columns.

     c. You may not modify, decompile, disassemble, reverse engineer or
        translate OExport FREE.

 3) Limitations of the FULL version
     a. Only developers who work for the license holder company may use OExport.
        That includes freelancers but only in projects assigned to them by the license
        holder company.

     b. The number of active developers who use OExport may not exceed the total number
        of licensed developers that the license(s) of the holder company provide(s) for.

 4) Transfer of FULL version licenses

     a. Licenses may be transferred to new developers who work for the
        license holder company if all other requirements are met (especially point 3b).

     b. The license may be transferred only as a whole to a different company.
        Example: you buy a 3-developer license. You may transfer it completely to
        a different company. You may not split the license and transfer 1-developer
        license to a different company and keep 2-developer license.

 4) License validity

     a. The license is perpetual.

     b. You get 2 years of free updates and new releases, starting from the day
        of purchase. After this period you can order extra 2 years of updates
        (starting from the day of update expiration) for 60% of the license price
        at the moment of update expiration.

 5) You may NOT use OExport for:
     a. Writing libraries and applications that are in direct or indirect
        competition with OExport or tools whose main purpose is providing OExport
        functionality. An example would be to build a public XLSX- ODS- or
        XLS-Export library or a conversion tool etc. OExport functionality
        has to be an extension to an existing application (e.g. export in
        an accounting software).
        If you need a special license, please contact the author.

 6) Redistribution of the source code and the DCU's
     a. OExport source code and DCU's may not be redistributed on any kind
        of media or offered for download on any internet server without
        the author's explicit permission.

 7) Redistribution in binary form
     a. If you do not have a FULL commercial license, you have to attribute
        OExport in e.g. the About Dialog of your software.
        The attribution must contain the name ("OExport") and my homepage
        ("http://www.kluug.net").

     b. If you do have a license for the FULL version, no attribution is required.

 8) Additional software licensed with OExport
     a. If you purchase OExport, you also get a special OXml commercial license.
        This license allows you to use OXml only as part of OExport (because
        OExport uses OXml for handling XLSX and ODS files).
        You are not allowed to use OXml separately - in this case you have
        to obtain OXml commercial license as well.
        This paragraph applies to OXml which is located in OXml directory.

 9) Limited Warranty
     a. THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
        EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
        WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
        THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS
        WITH YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF
        ALL NECESSARY SERVICING, REPAIR OR CORRECTION. IN NO EVENT SHALL
        KLUUG.NET OR ANY OTHER PARTY WHO MAY HAVE DISTRIBUTED THE SOFTWARE AS
        PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL,
        SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR
        INABILITY TO USE THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA
        OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
        PARTIES OR A FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER
        PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
        POSSIBILITY OF SUCH DAMAGES.


***** END LICENSE BLOCK *****

Commercial license

All commercial licenses include full source code of OExport that can be used
on all officially supported platforms.

You may order a roality-free commercial license for a specified number of developers using OExport in your company.
A commercial license allows you to use OExport in any kind of application commercial or freeware that does not break the Section 4. of the license («DLL library»).

You also get 2 years free updates and new releases with priority email support.
With these resources you can add XLSX/ODS support to your applications quickly and with ease.

Go to OExport online help.

Pricing & Order

Online orders are managed by PayPal. I also accept bank transfers to my bank account.
In this case, please send me an email with your billing address and I send you my account number.

You receive an invoice per email after your payment.

All prices are without VAT.

I offer you a 30-days money-back guarantee if you can’t use OExport for
what is advertised on this page (because of bugs, compatibility problems etc.).

Commercial licenses & help access

Change log

OEXPORT RELEASE INFORMATION
===========================

  Version 2.37 (2023-01-01)
    Bug fixes
      - Recalculation engine: fix equal and not-equal operator for strings and booleans
      - make compatible with latest OXml
      - XLS: fix error when last string was interrupted by a record break
      - fix default column properties for XLSX


  Version 2.36 (2022-03-25)
    Bug fixes
      - ExcelCellWidthToPx to interface
      - Remove OWideSupp_Vcl.pas
      - Fix loading XLSX without theme file


  Version 2.35 (2021-09-30)
    New features
      - Delphi 11 support


  Version 2.34 (2021-06-09)
    Bug fixes
      - fix TExportRange.ImportAsXLSX for column and row ranges
      - TExportCell.DoCalculateColWidth: optimization for empty text
      - Recalculate formulas: fix SUBTOTAL
      - force saving XLS RPN formulas even if they haven't been created internally
      - new property RecalculateFormulasOnExport
      - RecalculateFormulas - allow non-numeric cells for range and function recalculation (e.g. the concatenate function works on string RecalculateFormulas - fix setting of result value for various cell types
      - OOLEStorage: EOOleStorageException in case of an empty file
      - (breaking change) change RecalculateFormulas parameters to set and recalculate formulas before exporting just once
      - Fix TOExportTemplate.StartProcessingRows


  Version 2.33 (2021-02-02)
    New features
      - OExportTemplate: allow to work with specific sheets only
      - Functions: add SUBTOTAL

    Bug fixes
      - Read XLSX: fix palette
      - OFiller: merge also text nodes without rPr node if they have texts
      - OFiller: replace loses international characters
      - TExportCell.Transform: try to convert values
      - OExport: fix Excel 1900 is leap year
      - GetTextExtent - try various DPI settings because of Excel comment boxes
      - OExport: NormSheetName as class function
      - Sheet: fix forbidden characters in sheet name


  Version 2.32 (2020-07-24)
    New features
      - Delphi 10.4 packages

    Bug fixes
      - OExport fix invalid '>'
      - TExportCellComment.DoCalculateSize: more width


  Version 2.31 (2020-05-12)
    Bug fixes
      - various bug fixes


  Version 2.30 (2019-07-27)
    New features
      - Delphi 10.3.2 support (with MacOS 64bit support)
      - OFiller: TOFillerXLSX.ReplaceCellAtAddress

    Bug fixes
      - Fix multithreading support
      - OExportRTF: fix last char & line feed offsets in StringCellToRichEdit
      - XLSReadString: always read flags (bug was when empty formula string token was read)
      - TOExport.RecalculateFormulas: use only GuessCellType for guessing and not for final cell type because it doesn't have to be correct
      - Fix formulas with named ranges in data validation


  Version 2.29 (2018-12-31)
    New features
      - Delphi 10.3 support
      - OFiller: add TReplaceImageSizeRatio.srImageSetSmaller
      - OFiller: add aAlign, aVAlign to ReplaceImage (supported in XLSX only)

    Bug fixes
      - OExport drawings: use position and size in Double precision
      - fix reading Excel 2016 documents
      - fix CalculateColWidthsRowHeights for hidden columns&rows
      - fix importing XLSX named cell col+row ranges


  Version 2.28 (2018-10-25)

    New features
      - Basic HTML Export (first simple version).

    Bug fixes
      - Update package names so that they do not collide with unit names
      - HTML exporter: fix column widths and row heights
      - OFiller: support header&footer in DOCX
      - OExport: fix column width on high-dpi systems
      - OFileUtils: fix GetUniqueFileName
      - HTML Export improvements
      - OFiller: TOFillerXLSX.ReplaceHyperlink
      - OFiller: TOFillerXLSX.DeleteImage
      - OFiller: fix image size
      - Fix selection if split is used.
      - Export cell: fix assign drawings
      - Formula recalculation engine: support IS* functions (IsBlank, IsErr, IsError, IsLogical, IsNA, IsNonText, IsNumber, IsRef, IsText)
      - Formula engine: support Count and CountA
      - OExport: support meta information (XLSX, ODS)
      - NoGUI: move LCLProc to interface uses
      - Add TExportWorkSheet.DeleteEmptyRows
      - RPNFormula: support VLookup
      - RPNFormula: fix IsSingleOperatorAfterThisOperator
      - XLSX: fix loading boolean cells without assigned value
      - Fix RNP Column/Row types
      - Update dir ignore properties
      - Rename IntegerList to OIntegerList to avoid name collisions
      - VCL: Fix ExecuteSaveDialog not returning filename
      - OZip: add IsValid stream overload
      - OFiller: better exception for invalid file format
      - XLS formula import: check valid worksheet index
      - XLS palette: don't use default and system colors because Excel cannot open cell property dialog if they are used.
      - Add AutoFilter button width to calculated column width
      - Handle Excel limit of 1024 page breaks.
      - TExportCell.AssignTo: add CalculateColWidth
      - Add EXCEL_REC_CODEPAGE and EXCEL_REC_WINDOWPROTECT
      - OExport: fix formula call stack
      - Add TOExporterText.DeleteEmptyCellsFromEnd
      - XLS export: fix record order. Fix target pane index in EXCEL_REC_PANE
      - TOExporterText: new WriteBOM property


  Version 2.27 (2017-04-10)

    New features
      - OFiller: support named cells.
      - initialize OExportDateFormat and OExportTimeFormat directly in OExport
      - formula recalculation: add support for MID, LEN, IF, FIND functions
      - add XLS support for SUMIF(), COUNTIF() (no recalculation yet).

    Bug fixes
      - fix mouse wheel not working in Excel 2000
      - fix too wide columns for calculated cells
      - XLS: fix writing long strings to SST
      - PaperType support
      - OExport_Vcl: fix multithreading
      - Fix Delphi 7 performance bottleneck when loading XLSX with a lot of different strings.
      - add ANSI encoding support, CSV: ForceEscapeChar
      - add support for Text() function.
      - Fix Exyz (E1, E2 ...) evaluation
      - CSV exporter: use EscapeChar only if the text must be escaped.
      - fix reading negative RK value.
      - TOExport: add enumerators to WorkSheets, Rows, Cells.
      - fix Id collision when comments and images are used in one sheet.
      - don't move cells in string constants
      - TExportHeaders: add Items[] property
      - TExportCellRange: fix SetBorder=crbAll
      - fix truncation of date only and time only values.
      - OFiller: XLSX: remove formula values in ReplaceCellsEnd - they might be invalid.
      - OFiller: fix XLSX ReplaceCell SharedStrings handling.
      - OFiller: support replacing float values in XLSX via ReplaceCell.
      - OFiller: fix removing tabulators.

    Installation
      * If you want to update OExport, you have to update OXml as well (OXml is included in the zip package too).
        If you use packages, you have to recompile them! (Both OXml and OExport packages).



  Version 2.26 (2016-04-27)

    New features
      - support of prefixed XLSX documents (typically from Mac OSX).
      - added support for comment images.
      - added OExportXLSXCustom (support of custom files in an XLSX container).
      - implement secondary y-axis support for XLSX
      - implement TOExporterText.DecimalSeparator
      - hyperlinks: cell hyperlinks, tooltip support
      - OFiller: support duplicating rows
      - OFiller: intelligent token merge for DOCX
      - OFiller: add TOMergerDOCX
      - Delphi 10.1 Berlin support

    Bugfixes
      - fix hyperlink bug
      - fix a speed problem of on-the-fly export and keep memory consumption low if hyperlinks are used
      - added Polish translation (from Michal Glebowski).
      - fix relative formula evaluation if reference cell doesn't exist.
      - fix formula for TExportCellEmpty
      - fix problem with replacing n to m in formatting strings.
      - use TOHashedStrings in TExporterXLSX_HyperLinks
      - fix AV in TExportNamedCells.Remove

    Installation
      * If you want to update OExport, you have to update OXml as well (OXml is included in the zip package too).
        If you use packages, you have to recompile them! (Both OXml and OExport packages).



  Version 2.25 (2015-12-07)

    Bugfixes
      - renamed ZLib* units to OZLib* units to solve issues with duplicate names
      - fixed conditional formatting and data validation assignment in templates
      - added TExportCols InsertColWithCells, DeleteColWithCells, AssignColWithCells
      - Writeable TExportImage.Ext; make RecalculateFormulas public
      - Added MODE Delphi switches for FPC

    Installation
      * If you want to update OExport, you have to update OXml as well (OXml is included in the zip package too).
        If you use packages, you have to recompile them! (Both OXml and OExport packages).



  Version 2.24 (2015-09-16)

    New features
      + Delphi 10 Seattle support.

    Bugfixes
      * prevent AV during import of XLSX comments.
      * fixed TExportRow.AddCellVariant
      * added ApplicationVersion and set default values for Application/ApplicationVersion to meet Excel 2007 due to LibreOffice compatibility.
      * check for circular references in formula recalculation
      * fixed ROW() and COLUMN() functions



  Version 2.23 (2015-08-26)

    New features
      + New property TExportWindowSettings.View.
      + New property TOExport.AutoAdjustFormulas - adjust formulas when inserting/deleting rows/cells (the same that Excel does).
          False by default.
      + New properties TExportChartAxis.MaxValue and .MinValue.
      + OFiller procedure ReplaceImage changed to function - it returns number of replaced images.
      + Added new translations. Now OExport supports the following languages:
          English, Czech, German, Danish, French, Hungarian, Dutch, Russian
      + Multiple chart support (TExportChart.SubCharts).
      + Support for enhanced TExportConditionalFormatting and TExportDataValidation ranges - row, col and custom ranges.
        + New property TExportWorkSheet.ConditionalFormattingList.
        + New property TExportWorkSheet.DataValidationList.
        * You can use the lists above for adding CondForm or DataVal for custom ranges.
      + Added TOExportTemplate.FindStringCellsByStrPos. With it you can find a cell that contains a substring.
    Bugfixes
      * Images in cells with colspan were not exported.
      * Fixed bug in DOCX ReplaceImage.
      * XLS relative formula bug fix.
      * Recalculate formulas when loading XLS and cell type doesn't match formula result.
      * OFloatToFraction bug fix.
      * ODS cells with colspan bug fix.
      * TOOleStorage.ReadDirectoryEntry bug workaround.
      - Removed TOFileStream from OFileUtils.pas. TOFileStream is declared in OWideSupp.pas in OXml.

    Installation
      * If you want to update OExport, you have to update OXml as well (OXml is included in the zip package too).
        If you use packages, you have to recompile them! (Both OXml and OExport packages).



  Version 2.22 (2015-04-28)

    New features
      + TCellHAlignment - new options cahCenterContinuous, cahDistributed.
      + XLS formulas support references accross worksheets.
      + TExportChartData.ShowLabels changed from Boolean to TExportChartDataShowLabels.
        ! Use [] for false.
        ! Use [eslValue] for true.
      + TExportChartAxis has new properties: ExcelNumberFormat, OriginAt, OriginValue
      + TExportWorkSheet has new properties: Visibility and NewCellStringFormat
      + TExportWindowSettings has new properties: ShowFormulas and ShowZeros
      + Added data validation support: TExportCell.DataValidation
      + Added support of named cells within a sheet: TExportWorkSheet.NamedCells
      * Improved formula recalculation engine and XLS formula support.
      * Bug fix: zero date/time was exported as empty cell.
      * Removed TPAbbrevia dependency. OExport now uses native ZLib on all platforms. As a result,
        export in Lazarus, Delphi XE and older is faster and uses less memory.
      * Improved image export: images are not loaded into memory if they are
        exported from files.
      * Some other small improvements and bug fixes.


(Please see the installation package for a complete change log).