Excel - Export ohne Excel - Problem beim erzeugen

[GHorn]

@ alphaflight83:

chemiker hat ja schon auf seinen Link in #19 hingewiesen. Hier
noch einige zusätzliche Erläuterungen zum Quelltext von chemiker:

Delphi-Quellcode:

const
   XLS_WORKBOOK  = $5;           // nur Workbook und separate Sheets
   XLS_WORKSSHEET= $10;          // Sheet or dialogue record (s.S.136 Dokument s. oben)
   XLS_BOF       = $809;         // BIFF5 bis BIFF8  (s.S.135 Dokument s. oben)
   XLS_BIFFVER   = $600;         // BIFF8 (s.S.136 Dokument s. oben)
   XLS_LABEL     = $204;         // (s.S.187, 5.63 Dokument s. oben)
   XLS_EOF       = $A0;          // (s.S.161, 5.37 Dokument s. oben)
   XLS_EXCEL_VERSION = 1;

type
  TXLS_BOFRec= packed record     // Start des Datenblockes
    RecCode: Word;               // $809 BOF
    RecLaenge: Word;             // Record Länge  // Komplett 16/ normal 8
    BIFFVersion: Word;           // $600 BiffVersions-Nummer 8
    Bereich: Word;               // $10 = Worksheet
    ExcelVersion: Word;          // muss nicht angegeben werden (z.B. 2719=Excel 2000)
    ExcelDatum: Word;            // muss nicht angegeben werden
  end;

Delphi-Quellcode:

procedure TXLS_DateiClass.XLS_BOFRecDatenFuellen;
begin
  with FBOF do
    begin
      RecCode:= XLS_BOF ;            // $809
      RecLaenge:= 8;
      //BIFFVersion:= XLS_BIFFVER;   // $600 BIFF8
      BIFFVersion:= 1;               // kein BIFF8
      Bereich:= XLS_WORKSSHEET;      // $10
      ExcelVersion:= 1;
      ExcelDatum:= 0;
    end;
end;

Setze ich die BIFF-Version auf 8 durch $600, erhalte ich auch diese schmucken
Kästchen und Sonderzeichen. BIFF8 ist Unicodefähig. Aber in der erzeugten Datei
sind die Texte / Daten, die eigentlich in die Zellen geschrieben werden sollen,
unvollständig bzw. verschoben.
Excel liest (parst) diese Streams und erwartet an einer bestimmten Position auch
bestimmte Angaben für die Formatierung usw. Stehen an diesen Stellen aber z.B.
Texte für die Zellen, muß das schief gehen. Das Problem ist also, den Buffer des
Streams korrekt zu füllen. Insbesondere, was die Zeichenlängen und Zeilenendezeichen
betrifft.

Gruß
Gerald

edit: Die Seitenangaben beziehen sich auf das Dokument compdocfileformat.pdf
(s. Beitrag #19).

[alphaflight83]

@Chemiker: Ich nehme alles zurück und behaupte das Gegenteil
War gestern Nachmittag wohl einfach zu viel für mich.
@GHorn: Danke für die Zusatzinfos. Das hilft mir mal ein Stück weiter.
Werd mich dann mal wieder meinem Chaos hier zuwenden.

[Chemiker]

Hallo mschaefer,

Zitat von mschaefer:

Dass Biff-Format ist auch bei kommerziellen Komponenten nicht vollständig umgesetzt.

Was wohl auch daran lag, dass MS das lange unter Verschluss gehalten hat. Ich habe eine Vsiual Studio Version 6 Prof., dort war sogar ein Hex-Edit Programm dabei, um Dateien im BIFF 5 Format zu analysieren, aber auf BIFF 8 – Format angewendet half es nur noch bedingt.

Bis bald Chemiker

[alphaflight83]

Nachtrag: Nachdem ich nun nach weiteren Recherchen feststellen musste, dass das Thema doch komplexer ist als zunächst angenommen,
hab ich mich am Montag dazu entschlossen die TXLSfile Component von SM-Software zu kaufen.
(Hätte ich schon am ersten Tag machen sollen, aber hinterher ist man ja bekanntlich immer schlauer)
Der Test war absolut zufriedenstellend, da die Funktionen und Möglichkeiten umfangreich sind und die Ausgabe jetzt besser aussieht als vorher.
Das Ganze war immerhin in viellerlei Hinsicht lehrreich, deshalb nochmal Danke an Alle.

[fs999]

Zitat von Chemiker:

Hallo alphaflight83,

in der CodeLib gibt es auch eine Unit um Excel-Dateien, ohne Excel zu erzeugen.

Excel-Unit
Bis bald Chemiker

Hallo Chemiker,

Ich habe eine kleine Änderung in deiner Excel-Unit gemacht um auch Zahlen einzugeben.

Delphi-Quellcode:

{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Unit:       XLSDateiUnit
letz.Ändr.: 11.06.2008
Version:    1.10
Funktion:   In diser Unit werden für das BIFF-Format die Records zur Verfügung
            gestellt.
            Änderungen für die Migration auf Delphi 2009 durchgeführt.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
unit XLSDateiUnit;

interface

uses Grids, Classes;

type
  TXLS_BOFRec= packed record     // Start des Datenblockes
    RecCode: Word;               // $809 BOF
    RecLaenge: Word;             // Record Länge  // Komplett 16/ normal 8
    BIFFVersion: Word;           // $ 600 BiffVersions-Nummer:8
    Bereich: Word;               // $10 = Workssheet
    ExcelVersion: Word;          // muss nicht angegeben werden 2719=Excel 2000
    ExcelDatum: Word;            // muss nicht angegeben werden
//    ExcelHistoryFlag: DWord;     // muss nicht angegeben werden
//    LetzteExcelVersion: DWord;   // muss nicht angegeben werden.
  end;

  TXLS_LABELRec= packed record    // String-Record von Excel
    RecCode: Word;                // $204 Bei Biff 8
    RecLaenge: Word;              // Record Länge // muss zuvor berechnet werden
    Row: Word;                    // Zeilen-Nr. beginnt bei 0
    Col: Word;                    // Spalten-Nr. beginnt bei 0
    IndexXFRec: Word;             // noch nicht ganz verstanden // erstmal=0
    ZellenStLeange: Word;         // Nur die ZellenString-Länge
  end;
// FS999 Änderung
  TXLS_NUMBERRec= packed record    // Number-Record von Excel
    RecCode: Word;                // $203 Bei Biff 8
    RecLaenge: Word;              // Record Länge // muss zuvor berechnet werden
    Row: Word;                    // Zeilen-Nr. beginnt bei 0
    Col: Word;                    // Spalten-Nr. beginnt bei 0
    IndexXFRec: Word;             // noch nicht ganz verstanden // erstmal=0
  end;
// Ende
  TXLS_EOFRec= packed record      // Ende des Datenblockes
    RecCode: Word;                // $A0
    RecLaenge: Word;              // 00  hat immer die Länge = 0
  end;

function XLS_BOFRecDatenFuellen(): TXLS_BOFRec;
// FS999 Ânderung
function XLS_FloatFuellen(const Zeile,Spalte: Word):TXLS_NUMBERRec;
// Ende
function XLS_StringFuellen(const Zeile,Spalte: Word; Wert: String):TXLS_LABELRec;
function XLS_EOFRecDatenFuellen(): TXLS_EOFRec;
function ZellenInhalt(Zeile, Spalte: Integer; Tab: TStringGrid): String;
function DatenInXLSDateiUebertragen(const XLS_LWPathDateiName: string;
                                    DatenStringGrid: TStringGrid): boolean;
implementation

uses
  SysUtils;

{------------------------------------------------------------------------------}
function XLS_BOFRecDatenFuellen(): TXLS_BOFRec;
begin
  with Result do
  begin
    RecCode:= $809;
    RecLaenge:= 8;
    BIFFVersion:= 1;   // Kann auch 1 sein
    Bereich:= $10;
    ExcelVersion:= 1;
    ExcelDatum:= 0;
//    ExcelHistoryFlag:=0;
//    LetzteExcelVersion:=0;
  end;
end;
// FS999 Änderung
{------------------------------------------------------------------------------}
function XLS_FloatFuellen(const Zeile,Spalte: Word):TXLS_NUMBERRec;
begin
  with Result do
  begin
    RecCode:= $203;
    RecLaenge:= 14;
    Row:= Zeile;
    Col:= Spalte;
    IndexXFRec:= 0;
  end;
end;
// Ende
{------------------------------------------------------------------------------}
function XLS_StringFuellen(const Zeile,Spalte: Word; Wert: String):TXLS_LABELRec;
begin
  with Result do
  begin
    RecCode:= $204;
    RecLaenge:= 8 + (Length(Wert)*SizeOf(Char)); // Änderung für Delphi 2009
    Row:= Zeile;
    Col:= Spalte;
    IndexXFRec:= 0;
    ZellenStLeange:= (Length(Wert)*SizeOf(Char));  // Änderung für Delphi 2009
  end;
end;
{------------------------------------------------------------------------------}
function XLS_EOFRecDatenFuellen(): TXLS_EOFRec;
begin
  with Result do
  begin
    RecCode:= $A;
    RecLaenge:= 0;
  end;
end;
{------------------------------------------------------------------------------}
function ZellenInhalt(Zeile, Spalte: Integer; Tab: TStringGrid): String;
begin
  Result:= Tab.Cells [Spalte, Zeile];
end;
{------------------------------------------------------------------------------}
function DatenInXLSDateiUebertragen(const XLS_LWPathDateiName: string;
                                    DatenStringGrid: TStringGrid): boolean;
var
  x, i: integer;
  XLSFileStream: TFileStream;
  XLS_BOF: TXLS_BOFRec;
  XLS_EOF: TXLS_EOFRec;
  XLS_St: TXLS_LABELRec;
  Inhalt: String;
begin
  XLSFileStream:= TFileStream.Create(XLS_LWPathDateiName, fmCreate);
  Result:= FALSE;
  try
    // XLS-File Anfang schreiben
    XLS_BOF:= XLS_BOFRecDatenFuellen();
    XLSFileStream.WriteBuffer(XLS_BOF,SizeOf(XLS_BOFRecDatenFuellen()));

    // Werte aus einem StringGrid lesen und in die XLS-Datei eintragen
    for x := 0 to DatenStringGrid.ColCount - 1 do    // Max. 254  Excel-Grenze
    begin
      for I := 0 to DatenStringGrid.RowCount - 1 do  // Max 65536 Excel-Grenze
      begin
        Inhalt:= ZellenInhalt(I, x, DatenStringGrid);
        XLS_St:= XLS_StringFuellen(I, x, Inhalt);
        XLSFileStream.WriteBuffer(XLS_St, Sizeof (XLS_St));
        XLSFileStream.WriteBuffer(Inhalt[1], (Length(Inhalt)*SizeOf(Char))); // Änderung für Delphi 2009
      end;
    end;
    // Werte eintragen Ende.

    // XLS-File Ende schreiben
    XLS_EOF:= XLS_EOFRecDatenFuellen();
    XLSFileStream.WriteBuffer(XLS_EOF,SizeOf(XLS_EOFRecDatenFuellen()));
    Result:= TRUE;
  finally
    // Datei wieder schliesen.
    XLSFileStream.Free;
  end;
end;

end.

Um es zu benutzen :

Delphi-Quellcode:

Var
  ...
  XLS_Fl: TXLS_NUMBERRec;
  n: Double;
begin

  ...

  n := 5.42;
  XLS_Fl:= XLS_FloatFuellen(r, c);
  XLSFileStream.WriteBuffer(XLS_Fl, Sizeof(XLS_Fl));
  XLSFileStream.WriteBuffer(n, 8);

  ...

end;

Bis bald,
Frederic

[Chemiker]

Hallo fs999,

Du kannst bei der Function auch direkt den Wert mitgeben:

Delphi-Quellcode:

// FS999 Änderung 
  TXLS_NUMBERRec= packed record    // Number-Record von Excel 
    RecCode: Word;                // $203 Bei Biff 8 
    RecLaenge: Word;              // Record Länge // muss zuvor berechnet werden 
    Row: Word;                    // Zeilen-Nr. beginnt bei 0 
    Col: Word;                    // Spalten-Nr. beginnt bei 0 
    IndexXFRec: Word;             // noch nicht ganz verstanden // erstmal=0
    Zahl: double;                 // Zahl double  
  end; 
// Ende

Aufruf dann:

Delphi-Quellcode:

// FS999 Änderung 
{------------------------------------------------------------------------------} 
function XLS_FloatFuellen(const Zeile,Spalte: Word; aWert: double):TXLS_NUMBERRec; 
begin 
  with Result do 
  begin 
    RecCode:= $203; 
    RecLaenge:= 14; 
    Row:= Zeile; 
    Col:= Spalte; 
    IndexXFRec:= 0;
    Zahl:= aWert;
  end; 
end; 
// Ende

Bis bald Chemiker