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.

**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)

**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.

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)

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, 14: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.874 Beiträge Delphi 11 Alexandria	#3 AW: Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx) 30. Apr 2018, 14:41 https://github.com/Avemey/zexmlss http://www.kluug.net/xlsx-ods-delphi.php Markus Kinzler
	Zitat

dummzeuch Online Registriert seit: 11. Aug 2012 Ort: Essen 1.680 Beiträge Delphi 10.2 Tokyo Professional	#4 AW: Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx) 30. Apr 2018, 15: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

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 44.342 Beiträge Delphi 12 Athens	#6 AW: Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx) 30. Apr 2018, 18:38 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) Ein Therapeut entspricht 1024 Gigapeut.
	Zitat

zeras Registriert seit: 11. Mär 2007 Ort: Saalkreis 1.651 Beiträge Delphi 12 Athens	#7 AW: Delphi-Only Read(Writer) für Excel-Dokumente (xls/xlsx) 30. Apr 2018, 17: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