Description | create an Microsoft Excel SpreadSheet File in BIFF8 Format (Excel 97/2000/XP) > *.XLS |
Version | v0.96 |
Date | 04.12.2011 |
System | Win32 |
Personality | Delphi 2010-XE / Delphi 7-XE |
Support | www.delphipraxis.net/164833-e.html |
License | MPL v1.1 , GPL v3.0 or LGPL v3.0 |
Eine kleine Klasse, welches binäre Excel-Dateien im BIFF8 Format erstellen kann.
Die selbsterstellten Dateien lassen sich auch wieder auslesen.
Da aktuell noch keine große Behandlung von fremden/unbekannten Steuercodes implementiert ist, ist es auch fast nie möglich fremderstellte Dateien zu öffnen, aber eigentlich wurde diese Klasse eh nur für einen Excel-Export entwickelt.
Eine Beispielkomponente, für den Export eines TStringGrid, ist ebenfalls mit beigelegt.
[code lang=“delphi“]TExcelFile = class(TComponent)constructor Create(Owner: TComponent); override;
destructor Destroy; override;
function Rows: Integer;
function Cols: Integer;
function Size: TPoint;
property CellType [Col, Row: Integer]: TExcelType read GetCellType;
property Cell [Col, Row: Integer]: Variant read GetVarCell write SetVarCell;
property StrCell [Col, Row: Integer]: AnsiString read GetStrCell write SetStrCell;
property IntCell [Col, Row: Integer]: LongInt read GetIntCell write SetIntCell;
property FloatCell[Col, Row: Integer]: Double read GetFloatCell write SetFloatCell;
procedure Clear;
procedure SaveToStream (Stream: TStream; SaveEmptyCells: Boolean = False);
procedure SaveToFile (FileName: String; SaveEmptyCells: Boolean = False);
procedure LoadFromStream(Stream: TStream); // Achtung, nur begrennz nutzbar
procedure LoadFromFile (FileName: String); //
end;[/code]