program excelexport1;
uses sysutils, laz_fpspreadsheet,fpspreadsheet, fpsTypes;
var aWbk: TsWorkbook;
aWst: TsWorksheet;
aDir:string;
begin
//create edit save close, open edit save test
aDir:=ExtractFilePath(ParamStr(0));
aWbk := TsWorkbook.Create;
aWbk.AddWorksheet('Tabelle1');
if aWbk.GetWorksheetCount=0 then aWbk.AddWorksheet('Tabelle1');
if aWbk.GetWorksheetCount>0 then aWst := aWbk.GetWorksheetByIndex(0)
else aWst := nil;
try
if Assigned(aWst) then begin
aWst.WriteText(0,4,'Formulas lost?');
aWst.WriteNumber(1,1,1); aWst.WriteNumber(1,2,2);
aWst.WriteFormula(1,3,'B2+C2');
aWst.WriteFormula(1,4,'SUM(B2:D2)');
aWbk.WriteToFile(aDir+'test7.ods', sfOpenDocument, true);
end;
aWbk.Free;
Writeln('Document created here: '+aDir+'test7.ods'+LineEnding+
'Open, view and close it.'+LineEnding+
'Press [enter] when you are ready to edit it.'+LineEnding);
ReadLn;
//NOw reopen and edit it
aWbk := TsWorkbook.Create;
aWbk.ReadFromFile(aDir+'test7.ods', sfOpenDocument);
if aWbk.GetWorksheetCount>0 then aWst := aWbk.GetWorksheetByIndex(0)
else aWst := nil;//
if Assigned(aWst) then begin
aWst.WriteText(0,1,TimeToStr(now));
aWbk.WriteToFile(aDir+'test7.ods', sfOpenDocument, true);
end;
finally
aWbk.Free;
end;
Writeln('Now reopen it and check the formulas.'+LineEnding+
'Press [enter] to close the application.'+LineEnding);
ReadLn;
end.