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:

zusammenfalten · markieren

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

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.

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.

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.