Delphi & Excel & OLE Error 800A03EC

[p80286]

Hallo zusammen,

Das Zusammenspiel von Delphi und Excel ist ja schon des öfteren durchgekaut worden, darum muß ich da wohl nicht näher darauf eingehen.
um Daten in ein Excel-Sheet zu schreiben nutze ich folgenden Code:

Delphi-Quellcode:

for i:=0 to sg.rowcount-1 do begin
    for j:=0 to sg.colcount-1 do begin
      if forcestring then
        zelle:=''''+sg.cells[j,i]       { das Hochkomma erzwingt einen String in Excel!}
      else
        zelle:=sg.cells[j,i];
      excel.activesheet.cells(i+1,j+1):=zelle;  {cells1..x/1..y }
    end;
  end;

Das Funktioniert auch ganz gut. In Fällen wo der OLE-Error 800A03EC auftaucht, nutze ich forcestring um Excel davon abzuhalten, die übergebenen Daten zu falsch zu interpretieren.
Was natürlich dazu führt, das numerische Daten nicht mehr als solche erkannt werden.

Kennt Ihr einen "offiziellen" Weg um Daten sauber an Excel zu übergeben?

Gruß
K-H