Laufzeit Excelzugriff extrem langsam

[jaenicke]

Du meinst sowas?

Delphi-Quellcode:

uses
  System.Win.ComObj, System.Variants;

procedure ExportToExcel;
var
  ExcelApp, Workbook, Worksheet: Variant;
  DataArray: Variant;
  i, j, Rows, Cols: Integer;
begin
  ExcelApp := CreateOleObject('Excel.Application');
  ExcelApp.Visible := True; // oder eben False wegen der Geschwindigkeit, aber in dem Beispiel soll man das Ergebnis in Excel sehen
  Workbook := ExcelApp.Workbooks.Add;
  Worksheet := Workbook.Worksheets[1];

  // Beispieldaten
  Rows := 100;
  Cols := 5;

  DataArray := VarArrayCreate([1, Rows, 1, Cols], varVariant);
  for i := 1 to Rows do
    for j := 1 to Cols do
      DataArray[i, j] := 'Wert ' + IntToStr(i) + ',' + IntToStr(j);

  Worksheet.Range[Worksheet.Cells[1, 1], Worksheet.Cells[Rows, Cols]].Value := DataArray;

  // hier nur zur Anzeige im Besipiel
  Worksheet.Columns.AutoFit;
end;