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