Richedittext nach Excel exportieren ?

[Vader]

wau,

ja er hat den text 'marabu' in eine neue excelmappe in tabelle4 in die zelle B1 exportiert, nicht schlecht !
ich brauche das aber in eine schon erstellte exceldatei, und den code habe ich bis jetzt programmiert:

Delphi-Quellcode:

//   excel öffnen


 function TForm1.OpenExcel : Boolean;   
begin
  Result:=True;
  Try
    ExcelApplication1.Connect;
    ExcelApplication1.UserControl := False;
    ExcelApplication1.AskToUpdateLinks[FLCID]:=False;
  Except
    Result:=False;
    end;
end;


//   excel activieren


procedure TForm1.Excelactive2Click(Sender: TObject);
begin
 exceldateiffnen1.Enabled:=OpenExcel;
  excelclose1.Enabled:=exceldateiffnen1.Enabled;
end;



//   exceldatei öffnen


procedure TForm1.Exceldateiffnen1Click(Sender: TObject);
var
  FExcelFilename  : OleVariant;
begin
  FExcelFilename:='c:\alle.xls';
  ExcelApplication1.Workbooks.Open(FExcelFilename,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,FLCID);
  ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Item['alle.xls']);
  ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets.Item['Tabelle1'] as _WorkSheet);
end;

und jetzt würde ich einen umgestrickten code brauchen so wie von marabu wie ich den richedittext in die tabelle 1 von alle.xls exportiere ????

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject); 
var 
  wb: ExcelWorkbook; 
  ws: ExcelWorkSheet; 
  cellrange: Range; 
begin 
  xl.Connect; 
  wb := xl.WorkBooks.Add(null, GetUserDefaultLCID); 
  ws := wb.Sheets.Add(null, null, 1, null, GetUserDefaultLCID) as ExcelWorkSheet; 
  cellrange := ws.Range['B1', 'B1']; 
  cellrange.Value2 := 'marabu'; 
  xl.Disconnect; 
end;

mfg vader