Excel Stringgrid in (vorhandene) Excel abspeichern

[p80286]

Mit folgendem Schnipsel, kann man aus einem Stringgrid in eine Excel-Tabelle schreiben:

Delphi-Quellcode:

if forcestring then begin
      excel.activesheet.Cells.NumberFormat := '@';
  end;
  for i:=0 to sg.rowcount-1 do begin
    for j:=0 to sg.colcount-1 do begin
      zelle:=sg.cells[j,i];
      {----  Fehler 800A03EC  bei mehr als 255 Spalten!}
      excel.activesheet.cells(i+1,j+1):=zelle;  {cells1..x/1..y }
    end;
  end;

(um den Spaltenfehler hab ich mich damals leider nicht mehr gekümmert)

Damit wird auch 007 übernommen.

Gruß
K-H