Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx)

**Bernhard Geyer**

Zum

10jähigen Jubiläum kommt die Anforderung wieder hoch Excel-Dateien (xls/xlsx) native ohne installiertes Excel laden zu können.

Welch aktuellen Komponenten wären hier in 2018 zu empfehlen.
- Darf was kosten
- Muss im Quellcode vorliegen
- Sollte noch gepflegt sein (jedenfalls wenn Sie nicht kostenlos verfügbar sind)
- Muss nicht unbedingt Plattformunabhängig sein (FMX, iOS, Android)

**timog**

FlexCell von TMS oder SpreadSheat von DevExpress fallen mir spontan ein.

**mkinzler**

https://github.com/Avemey/zexmlss

http://www.kluug.net/xlsx-ods-delphi.php

**dummzeuch**

Wir verwenden

NativeExcel, allerdings scheinen die auf dem Stand von Delphi XE4 stehengeblieben zu sein:

Zitat:

NativeExcel works with Delphi 4, 5, 6, 7, 2005, 2006, 2007, 2009, 2010, XE, XE2, XE3 and XE4.

**Delphi.Narium**

Schau mal bitte hier den vierten Betrag an:

https://stackoverflow.com/questions/...t-having-excel

Das könnte eventuell eine Lösung sein, die man sich relativ schnell selbst bauen kann.

Ist letztlich "nur" 'ne HTML-Datei mit der Endung xls.

Excel kann damit umgehen und für einen reinen Datenaustausch könnte das durchaus reichen.

Eine Minimalversion in Pascalsacript für meinen Editor sieht so aus:

zusammenfalten · markieren

Delphi-Quellcode:

			program Test;

procedure CreateXLS(ADataSet: TDataSet; AFileName : String; ASheetName : String);

var

        i  : Integer;

        sl : TStringList;

begin

  sl := TStringList.Create;

  sl.Add('<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns="http://www.w3.org/TR/REC-html40">');

  sl.Add('<head>');

  sl.Add('<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">');

  sl.Add('<!--[if gte mso 9]>');

  sl.Add('<xml>');

  sl.Add('  <x:ExcelWorkbook>');

  sl.Add('    <x:ExcelWorksheets>');

  sl.Add('      <x:ExcelWorksheet>');

  sl.Add(Format('     <x:Name>%s</x:Name>',[ASheetName]));

  sl.Add('        <x:WorksheetOptions>');

  sl.Add('          <x:Selected/>');

  sl.Add('          <x:Panes>');

  sl.Add('            <x:Pane>');

  sl.Add('             <x:Number>1</x:Number>');

  sl.Add('             <x:ActiveRow>1</x:ActiveRow>');

  sl.Add('            </x:Pane>');

  sl.Add('          </x:Panes>');

  sl.Add('          <x:ProtectContents>False</x:ProtectContents>');

  sl.Add('          <x:ProtectObjects>False</x:ProtectObjects>');

  sl.Add('          <x:ProtectScenarios>False</x:ProtectScenarios>');

  sl.Add('        </x:WorksheetOptions>');

  sl.Add('      </x:ExcelWorksheet>');

  sl.Add('    </x:ExcelWorksheets>');

  sl.Add('  </x:ExcelWorkbook>');

  sl.Add('</xml>');

  sl.Add('<![endif]-->');

  sl.Add('</head>');

  sl.Add('<body>');

  sl.Add('<table x:str>');

  ADataSet.First;

  while not ADataSet.EoF do begin

    sl.Add('<tr>');

    for i := 0 to ADataSet.Fields.Count - 1 do sl.Add(Format('<td x:num>%s</td>',[ADataSet.Fields.Fields[i].AsString]));

    sl.Add('</tr>');

    ADataSet.Next;

  end;

  sl.Add('</table>');

  sl.Add('</body>');

  sl.Add('</html>');

  sl.SaveToFile(AFileName);

  sl.Free;

end;

begin

  CreateXLS(DataSet,'c:\temp\Dateiname.xls','Sheetname');

end.

Excel kann die daraus resultierende Datei problemlos öffnen.

**zeras**

Zitat von timog:

FlexCell von TMS oder .....

Dies nutze ich auch, wobei ich nur relativ wenig Funktionen nutze, wie
- neuen Reiter anlegen
- einzelne Zellen beschreiben

Alles in allem für mich sehr gut.

**himitsu**

Zitat:

Eine Minimalversion in Pascalsacript für meinen Editor sieht so aus:

Aber ist *.XLS (das alte binäre Format) hier nicht bissl falsch?

Im Grunde ist das ja ein "Teil" des *.XLSX (eine ZIP mit XML-Dateien drin)

**Delphi.Narium**

.XLS heißt nur, dass die Datei mit Excel verknüpft sein soll. Offensichtlich ist Excel die Dateiendung egal, solange es sich beim Dateiinhalt um ein für Excel gültiges und verarbeitbares Format handelt.

Und wenn man der Datei die Endung .XSLS gibt, kommt Excel damit auch klar. Und selbst, wenn die Dateiendung auf .Pauline geändert wird, kann Excel noch mit dem Inhalt umgehen, auf den kommt es letztlich an. Man kann die Dateiendung auch bei .html belassen und dann die HTML-Datei mit Excel öffnen.

Das Ergebnis ist immer gleich.

Die starre Verbindung von Dateiendung und Inhalt ist doch schon seit mehrere Windowsgenerationen obsolet, über die Dateiendung verknüpft man eigentlich nurnoch, welches Programm bei 'nem Doppelklick im Explorer ... für das Öffnen der Datei vorgesehen ist. Die meisten Programme prüfen beim Öffnen einer Datei, ob sie mit dem Inhalt umgehen können oder auch nicht.

Wenn ich 'ne Datei per Drag&Drop auf ein Programm ziehe, schaue ich nicht auf die Dateiendung, mich interessiert nur, ob das Programm mit der Datei arbeiten kann.

'ne FireBird-Datenbank ist doch nicht nur dann eine FireBird-Datenbank, wenn die Dateiendung .fdb ist, die kann auch .dbf sein und wird deshalb nicht zu 'ner DBase-Datei.

Und noch lange nicht alle Dateien mit der Endung .DOC sind Worddokumente oder können mit Word sinnvoll bearbeitet werden.

**mkinzler**

Hilft hier aber nicht, da ja Dateien geöffnet werden sollen nicht erzeugt. Und dann könnte man auch einfach csv-Dateien erzeugen, diese werden auch problemlos von Excel akzeptiert.

**juergen**

Ich kann dir die

Axolot-XLSReadWriteII-Komponente empfehlen!
Es ist ein durchgängiges Konzept erkennbar, viele Funktionen, Fehlerbehebung erfolgte schnell und ist aktuell. Source wird bei der Kaufversion geliefert.
Das ist schon meine 3. Excel Komponente und die erste, mit welcher ich rund rum zufrieden bin.

Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx)

Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx)

AW: Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx)

AW: Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx)

AW: Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx)

AW: Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx)

AW: Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx)

AW: Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx)

AW: Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx)

AW: Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx)

AW: Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx)

Forumregeln

timog Registriert seit: 26. Sep 2006 Ort: Landkreis Oldenburg (Oldb) 117 Beiträge Delphi 10.2 Tokyo Enterprise	#2 AW: Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx) 30. Apr 2018, 15:33 FlexCell von TMS oder SpreadSheat von DevExpress fallen mir spontan ein. Timo Real Programmers are surprised when the odometers in their cars don't turn from 99999 to 9999A.
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.858 Beiträge Delphi 11 Alexandria	#3 AW: Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx) 30. Apr 2018, 15:41 https://github.com/Avemey/zexmlss http://www.kluug.net/xlsx-ods-delphi.php Markus Kinzler
	Zitat

dummzeuch Registriert seit: 11. Aug 2012 Ort: Essen 1.605 Beiträge Delphi 10.2 Tokyo Professional	#4 AW: Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx) 30. Apr 2018, 16:35 Wir verwenden NativeExcel, allerdings scheinen die auf dem Stand von Delphi XE4 stehengeblieben zu sein: Zitat: NativeExcel works with Delphi 4, 5, 6, 7, 2005, 2006, 2007, 2009, 2010, XE, XE2, XE3 and XE4. Thomas Mueller
	Zitat

zeras Registriert seit: 11. Mär 2007 Ort: Saalkreis 1.633 Beiträge Delphi 12 Athens	#6 AW: Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx) 30. Apr 2018, 18:47 Zitat von timog: FlexCell von TMS oder ..... Dies nutze ich auch, wobei ich nur relativ wenig Funktionen nutze, wie - neuen Reiter anlegen - einzelne Zellen beschreiben Alles in allem für mich sehr gut. Matthias Es ist nie falsch das Richtige zu tun! - Mark Twain
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.858 Beiträge Delphi 11 Alexandria	#9 AW: Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx) 30. Apr 2018, 21:16 Hilft hier aber nicht, da ja Dateien geöffnet werden sollen nicht erzeugt. Und dann könnte man auch einfach csv-Dateien erzeugen, diese werden auch problemlos von Excel akzeptiert. Markus Kinzler
	Zitat