Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: Einige Tausend Daten an Excel Übergeben

  Alt 11. Mai 2007, 06:42
Hallo René,

ich vermute, dass du eine ähnliche Performanz erzielst, wenn du die gleiche Art der Zellenaddressierung verwendest.

Delphi-Quellcode:
begin
  // ...
  XApp.Workbooks.Open(ExtractFilePath(ParamStr(0)) + 'Inventur.xls');
  sheet := XApp.WorkBooks[1].WorkSheets[1]; // oder über den Namen ...

  //Einfügen
  for r:=1 to 200-1 do
  begin
    // sheet.Cells[row, col] := '55';
    sheet.Cells[r, 1] := 'Typ:';
    sheet.Cells[r, 2] := 'Bezeichnung:';
    sheet.Cells[r, 3] := 'Bezeichnung:';
    sheet.Cells[r, 4] := 'Bezeichnung:';
    sheet.Cells[r, 5] := 'Bezeichnung:';
    sheet.Cells[r, 6] := 'Bezeichnung:';
    sheet.Cells[r, 7] := 'Bezeichnung:';
    sheet.Cells[r, 8] := 'Bezeichnung:';
  end;
  // ...
Freundliche Grüße
  Mit Zitat antworten Zitat