Dataset-Daten als XLS-Datei ohne Excel abspeichern

[kamel08]

Hallo Chemiker;

toller Beitrag, danke.
Ich habe das Problem bisher anders, aber mit mehr Aufwand gelöst
und möchte nun gerne Deinen Code nutzen,
der eigentlich auch einwandfrei funktioniert.
Beim Testen trat aber ein rätselhafter Fehler auf:
Wenn ich mir mit 'ShowMessage(xls.XLSDateiName)' den Dateinamen anzeigen lassen möchte,
hängt sich die IDE auf.
Woran liegt das

Delphi-Quellcode:

procedure TForm1.VergleichsmusterExportButtonClick(Sender: TObject);
var XLS: TXLS_DateiClass;
begin
     XLS:= TXLS_DateiClass.Create;
     try
        xls.XLSDateiName:= 'Musternahme.XLS';
        XLS.XLSDataSet:= Musternahme; // Musternahme ist ein TClientDataSet
        XLS.XLS_DateiErstellen;
        Musternahme.First;
     finally
        ShowMessage(xls.XLSDateiName); // << Hier entsteht der Fehler, Delphi hängt sich auf 
        XLS.Free;
     end;
end;