Ich habe ein Programm, welches alle Exceldateien (gleicher Aufbau) eines Pfades einliest und dann Werte zwischenspeichert.
Derzeit sind das ca. 8000 Dateien und es dauert einige Stunden, bis das Programm durch ist.
Hier die Code Schnipsel
Delphi-Quellcode:
if OpenXlsWorkBook(fName, WSName, WBk, WS) then begin
....
KalkData.Kunde := WS.Cells.Item[arZellBezüge[Kunde, 1], arZellBezüge[Kunde, 2]].Value;
....
if WBk <> Nil then begin
SaveChanges := Save;
WBk.Close(SaveChanges, EmptyParam, EmptyParam, lcidXls);
WBk := NIL;
end;
Sieht hier jemand Optimierungsmöglichkeiten?