Excel - Export ohne Excel - Problem beim erzeugen

[Bernhard Geyer]

Zitat:

Zitat von Zerolith

Hmmm eigentl. Hast ja recht. Bloß bin ich davon ausgegangen das ms. Excel unicode unterstützt.

oder nicht?

Macht es. Bloß wenn der gerwählte Font keine Zeichen hat kann Excel auch nichts machen.

[Zerolith]

Tahoma und Arial haben unicode zeichen...
wenn ich die DAtei dann aufmach, und manuell irgendwelche Kyrillischen zeichen oder so eingibt funktioniert das ja auch ganz prima

[alphaflight83]

Muss das hier mal wiederbeleben.
Mit Delphi 2009 brauche ich hier nun auch Unicode.
Wenn ich in der Funktion

Delphi-Quellcode:

procedure TXLSExport.Write(const Col, Row: Word; const Value: string);

für Value AnsiString statt String verwende funktoniert die Funktion wie früher,
allerdings will ich ja nun auch Unicode in den Exports benutzen.
Die Frage von Zerolith wurde damals nicht beantwortet.
Auch ich bekomme Kästchen in den Feldern, allerdings "nur" jedes zweite Zeichen.
Die Länge der Strings wäre an sich richtig, nur dass eben immer ein Kästchen reingequetscht wird,
wodurch die Hälfte des Strings unter den Tisch fällt.
Als Standard Schriftart habe ich in Excel Arial Unicode MS eingestellt,
es liegt also definitiv nicht an Excels Schriftart.

Kann das an der Dereferenzierung liegen?

Delphi-Quellcode:

XlsStream.WriteBuffer(Pointer(AValue)^, L);

Hab unlängst mal gelesen, dass die Dereferenzierung mit "Pointer" nicht so richtig funktioniert !?!

Edit: Anscheinend nicht, auch die Spezifizierung durch PWideString, bzw PUnicodeString bringt keinen Effekt

[Chemiker]

Hallo alphaflight83,

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

Excel-Unit
Bis bald Chemiker

[toms]

Zitat:

Zitat von Chemiker

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

TXLSExport schreibt ja auch direkt ohne OLE etc.

[alphaflight83]

Zitat:

Zitat von Chemiker

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

Ah, hab grade gesehen, dass du Änderungen für D2009 eingefügt hast, dann werde ich mir das nochmal zu Gemüte führen.
Danke mal dafür.

[GHorn]

Hi,
ich brüte auch gerade über diesem Thema.

@Chemiker:
Setze ich

Delphi-Quellcode:

BIFFVersion:= XLS_BIFFVER   // XLS_BIFFVER = $600

um mit BIFF8 zu arbeiten, bekomme ich auch so niedliche Kästchen.
Allerdings nicht in allen Feldern. Hauptsächlich in Zeichenfeldern, die
Ziffern enthalten.
Die Anpassung an D2009 habe ich auch probiert - allerdings ohne Erfolg.
Die Kästchen und kryptischen Zeichen bleiben.

Grund für die Anpassung an BIFF8 ist die Notwendigkeit, mehr als ein
Worksheet zu erstellen und mit Daten zu füllen. Soweit ich das bisher
in Erfahrung bringen konnte, ist dafür BIFF8 erforderlich. Oder nicht??
Wie erstelle ich weitere Worksheets und gebe ihnen noch treffende Namen?

Im Übrigen ist Dein Tool super. Danke dafür.

Aktuell: D2007, Daten aus BlackFish (Unicode) und Excel 2003 (SP3).

Gruß,
Gerald

[alphaflight83]

So jetzt kann ich mich wieder mal diesem Thema zuwenden.

Hab das jetzt mal ausprobiert und Chemikers Funktion verwendet,
allerdings bleiben auch hier noch die Kästchen-Steuerzeichen hinter jedem Char in der Tabelle.
Die Änderung bewirkt immerhin, dass die Strings nicht abgeschnitten werden.

Mit TXLSExport erreicht man das durch Änderung der Prozedur Write

Delphi-Quellcode:

procedure TXLSExport.Write(const Col, Row: Word; const Value: String);
var L: Word;
begin
  L := Length(Value) * SizeOf(Char); // <- 
  CXlsLabel[1] := 8 + L;
  CXlsLabel[2] := Row;
  CXlsLabel[3] := Col;
  CXlsLabel[5] := L;
  fs.WriteBuffer(CXlsLabel, SizeOf(CXlsLabel));
  fs.WriteBuffer(Pointer(Value)^, L);
end;

Aber, wie gesagt, die Kästchen sind in beiden Fällen weiterhin da.
Die Stringlänge bei TXLSExport vor der Änderung wäre an sich wie gesagt auch richtig,
wenn die Kästchen den String nicht dehnen würden.

Kann es sein, dass noch ein De-/Codier-Schritt fehlt, um das zum laufen zu bringen?

Edit: Hab grade festgestellt, dass die Exportierung immer noch als Ansi abläuft.
Dann hat der Excel Export an sich erst mal gar nichts damit zu tun und ich muss eine Ebene drunter Fehlersuche betreiben.

[Chemiker]

Hallo alphafligt83, GHorn,

Zitat:

Zitat von GHorn

Aktuell: D2007, Daten aus BlackFish (Unicode) und Excel 2003 (SP3).

D2007 ist aber nicht UniCode fähig.

Man kann die Routinen natürlich erweitern um weitere Sheets in einem Workbook anzulegen, allerdings wird dadurch das ganze etwas aufgebläht.
Das gleiche gilt für Formatierungen, Schriftgröße usw.

Ich bin bisher nicht in die Verlegenheit gekommen Unicode zu benutzen, ich habe nur die Unit so angepasst das ich das StringGrid mit den Zufallswerten mit Delphi 2009 benutzen kann und eine Excel-Datei erhalte die alle Übertragen Daten in Excel 2007 anzeigt und nicht zum Teil die Daten abschneidet.

In diesem Link steht wie das Biff-Format aufgebaut ist: BIFF-Format
Bis bald Chemiker

[alphaflight83]

Momentan bin ich immer noch am suchen, wie ich einen TFileStream dazu bringe die Encoding auf UTF8 zu setzen.
Bei einem normalen SaveToFile ist das ja kein Ding

Delphi-Quellcode:

StringList.SaveToFile(ExportFilename, TEncoding.UTF8);

Aber beim Stream hab ich bisher noch keine Option gefunden.
Kann natürlich auch sein, dass ich das an anderer Stelle setzen muss !?!