Forum: Programmieren allgemein
Delphi
by zeras,
19. Jul 2020
Nun ist wieder etwas Zeit für mein Projekt. Ich nutze nun die MD5 und das klappt ganz gut.
Des Weiteren hatte ich noch beim Öffnen der Exceltabelle ReadOnly auf True gesetzt. Das sollte nun für eine Optimierung reichen.
Danke nochmals für alle Tipps.
Forum: Programmieren allgemein
Delphi
by zeras,
12. Jul 2020
Nein, ich habe eine Excel Instanz vorher geöffnet, die dann für alle Tabellen genutzt wird.
Ich habe nochmal nachgeschaut. Das Workbook wird in diesem Falle nicht gespeichert, sondern nur geschlossen.
Forum: Programmieren allgemein
Delphi
by zeras,
12. Jul 2020
Die MD5-Checksumme ist neben dem Dateidatum auch eine Idee.
Gibt es in Delphi Funktionen, die direkt die MD5 Checksumme ausspucken oder muss man sich das selbst zusammenbauen?
Forum: Programmieren allgemein
Delphi
by zeras,
12. Jul 2020
Ja, so in der Art fiel mir das vorhin auch ein.
Ich hatte erst einmal das Programm geschrieben, damit ich überhaupt an die Daten komme und nun habe ich bemerkt, dass es "ewig" dauert.
Wie Uwe oben beschrieben hat, kann ich ja auchmal flexcel versuchen. Aber das Merken der das Dateidatums wird wohl die schnellste Lösung sein.
Forum: Programmieren allgemein
Delphi
by zeras,
12. Jul 2020
Ich lese nur Daten aus den Exceltabellen aus. Immer an gleichen Stellen, immer die gleiche Anzahl und immer dasselbe Tabellenblatt. Nur, dass es ca. 8000 Exceldateien sind. Und es werden täglich einige mehr.
Das jeweilige Tabellenblatt hat benutzt 9 Spalten und 71 Zeilen. Könnte ich da das Array komplett einlesen und mir dann die entsprechenden Werte auslesen?
Derzeit kopiere ich jede...
Forum: Programmieren allgemein
Delphi
by zeras,
12. Jul 2020
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
if OpenXlsWorkBook(fName, WSName, WBk, WS) then begin
....
KalkData.Kunde := WS.Cells.Item, arZellBezüge].Value;