Richedittext nach Excel exportieren ?

[messie]

So gehts beim mir:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  wb: ExcelWorkbook;
  ws: ExcelWorkSheet;
  r: Range;
begin
  try
    xl.Connect;
    wb := xl.Workbooks.Open('c:\SonntagsDemo.xls',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,GetUserDefaultLCID);
    ws := wb.Sheets.Get_Item(1) as ExcelWorkSheet;
    r := ws.Range['B1', 'B1'];
    r.Value2 := RichEdit1.Lines.Text;
  finally
    xl.Workbooks.Close(GetUserDefaultLCID);
    xl.Disconnect;
  end;
end;

Beim Schließen gibt's noch die Speicherabfrage, das direkte "stille" Speichern ist mir nicht gelungen. Das mit dem Get_Item habe ich in der Excel97.pas rausgesucht, das wird nämlich in der IDE nicht angeboten.

Grüße, Messie