Laufzeit Excelzugriff extrem langsam

[pertzschc]

Hallo in die Runde,
ich schreibe in einer Schleife eine Menge von Excelfiles, worin sich immer x-Datenzeilen befinden und z.B. durch laufende Zähler über alle Files zu einander gehören.
Ich benutze aktuell folgendes Coding zum Befüllen der Exceldateien:

Delphi-Quellcode:

procedure TForm1.TestCases_UploadFiles_SaveFiles;
var
  excel_obj_src: OleVariant;
  excel_obj_tar, WS: OleVariant;
  zeile, spalte: integer;
  strValue, fileNameTemp, fileNameBase, fileNameExt: string;
  directory, filename, fromFile, toFile: String;
  tcCnt, tcNum, fiCnt, ActCnt, ActioCnt, aa, bb, cc, dd, i: integer;
  tempBPTestCase: TTestCase;
  tempTCActivity: TTCActivity;
  tempTCAction: TTCAction;
begin
  fileNameTemp := ExtractFileName(self.sFileName);
  fileNameExt := ExtractFileExt(fileNameTemp);
  fileNameBase:= System.IOUtils.TPath.GetFileNameWithoutExtension(fileNameTemp);
  self.StatusBar1.SimplePanel := true;
  self.StatusBar1.SimpleText := ' Schreibe Daten...';
  self.ProgressBar2.Visible := true;
  self.ProgressBar2.Enabled := true;
  self.ProgressBar2.Position := 0;

  // anzahl files
  fiCnt := StrToInt(self.edtCntFiles.Text);
  tcCnt := StrToInt(self.edtCntTestCases.Text);
  if fiCnt <> 0 then
  begin
    tcNum:=0;
    // schleife über die files
    for aa := 1 to fiCnt do
    begin
      SetProgressBar2(aa,fiCnt);
      fromFile := GetDirDesktop() +
        '\testdata\UploadTemplate.xlsx';
      filename := fileNameBase + '__'+FormatWithLeadingZero(4, tcCnt)+'TC'+ '__' + FormatWithLeadingZero(4, aa)+fileNameExt;
      directory := GetDirDesktop() + '\testdata\gen';
      ErstelleDir(directory);
      toFile := directory + '\' + filename;
      System.IOUtils.TFile.Copy(fromFile, toFile, true);
      if System.SysUtils.FileExists(toFile) then
      begin
        try
          excel_obj_tar := CreateOleObject('Excel.Application');
          excel_obj_tar.Workbooks.Open(toFile);
          WS := excel_obj_tar.Worksheets.Item['Test Cases'];
          WS.Activate;
          // lstTestCases.Clear;
          if lstTestCases.Count > 0 then
          begin
            tempBPTestCase := TTestCase(lstTestCases.Items[0]);
          end;
          if tempBPTestCase <> nil then
          begin
            zeile := 2;
            // schleife über test case anzahl
            for bb := 1 to tcCnt do
            begin
              tcNum:=tcNum+1;
              // test case daten
              strValue := FormatWithLeadingZero(4, tcNum) + ' - ' +
                tempBPTestCase.Test_Case_Name;
              WS.Cells.Item[zeile, 1].Value := strValue;
           // hier werden weitere Spalten mit Daten gefüllt.
              zeile := zeile + 1;
              excel_obj_tar.ActiveWorkbook.Save;
            end;
          end;
        finally
          if not VarIsEmpty(excel_obj_tar) then
          begin
            excel_obj_tar.DisplayAlerts := false;
            excel_obj_tar.ActiveWorkbook.Save;
            excel_obj_tar.ActiveWorkbook.Close;
            excel_obj_tar.Quit;
          end;
        end;
      end;
    end;
  end;
end;

Das Coding selber ist relativ schnell durchlaufen (ca. 30sec.) und anschließend schreibt mein Programm noch weiter die eigentlichen Files (ca. 5-10 min.).
Kann ich daran etwas beschleunigen?
Viele Grüße, Christoph

[TiGü]

Ist es notwendig in der äußeren Schleife das OLE-Objekt excel_obj_tar immer wieder neu erstellen und zu zerstören?
Musst du in der inneren Schleife jedes Mal beim Schreiben einer Zelle excel_obj_tar.ActiveWorkbook.Save; aufrufen oder würde es einmalig danach reichen?
Die Zeilen fromFile := GetDirDesktop() + 'testdata\UploadTemplate.xlsx'; und directory := GetDirDesktop() + '\testdata\gen'; sowie ErstelleDir(directory); brauchen meiner Meinung nach auch nicht in der äußeren Schleife zu sein, scheint mir unnötig.

[jaenicke]

Dass der Zugriff über OLE recht langsam ist, ist klar. Das mag noch optimiert werden können (z.B. wie schon vorgeschlagen, indem immer die gleiche Instanz verwendet wird), aber wirklich schnell ist das nie.

Sinnvoller wäre, die Dateien direkt zu schreiben, wenn die Geschwindigkeit eine Rolle spielt. Dafür gibt es ja genügend fertige Lösungen wie z.B. TMS FlexCel for VCL & FMX.

[Bernhard Geyer]

Yepp. Native ohne Ole/Excel ist es viel schneller.
Und in diversen (gefühlt immer mehr umgebungen) wird man mit dem Zugriff über OLE scheitern.
Sei es das kein Excel installiert ist, falsch installiert ist oder irgendeine Sicherheitseinstellung sagt, das dein Programm Excel nicht per OLE nutzen darf.

[Lemmy]

Für den Zugriff auf Excel (odt, csv...) kann ich echt OExport von http://www.kluug.net/ empfehlen! Stefan hilft bei Problemen in der Regel recht schnell und fixt auch mal was kurzfrisitg, wenn eine spezielle Formel mal nicht will.

Grüße

[Delphi.Narium]

Das Langsamste bei der Arbeit mit Excel ist das sichtbare Arbeiten. Eventuell hilft hier (zusätzlich zu den weiteren Vorschläge) noch folgende Änderung:

Delphi-Quellcode:

excel_obj_tar := CreateOleObject('Excel.Application');
excel_obj_tar.Visible := false;

[Sherlock]

Ich mach das OLE Zeugs schon lange nicht mehr, aber das sieht sehr nach Late binding aus, und das kostet extrem viel Performance gegenüber einem early binding, umzusetzen zB per Import der Typbibliothek und indem man nicht OLEVariants verwendet.

[hoika]

Hallo,

Zitat:

und anschließend schreibt mein Programm noch weiter die eigentlichen Files (ca. 5-10 min.).

Wo ist der Code dafür?
Oder ist das der ".Save"-Code unten?

[mandras]

Das Save liegt innerhalb der Schleife "for bb := 1 to tcCnt do ..."

Muß das so sein? Wie groß ist tcCnt so im Durchschnitt?
Es wäre doch wahrscheinlich besser, das Save hinter die Schleife anzuordnen.

[pertzschc]

Danke für alle Hinweise, die ich jetzt umgesetzt habe und es wird dadurch schneller.
Der Save pro geschriebenen Test Case Objekt habe ich rausgenommen.
Ich werde es jetzt aus Zeitgründen bei dem LATE-Binding/OLE-Ansatz belassen und später mal den anderen ausprobieren.

Viele Grüße, Christoph