用代码操作OleContainer显示的excel里的替换(100分)

DELPHI中,在edit1.text里输入查找数据,在edit2.text里输入替换内容.按确定后实现OleContainer里excel的数据为edit1.text的内容修改为edit2.text的代码.(即excel中的替换功能).要详细代码.

begin
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.workBooks.Open('D:/1212.xls'); //打开已存在工作簿
// ExcelApp.Cells.Replace(What:='112',Replacement:='2222',LookAt:=xlPart,_SearchOrder:=xlByRows,MatchCase:=False,SearchFormat:=False,_ReplaceFormat:=False);
//if not ExcelApp.ActiveWorkBook.Saved then //工作表保存：
//ExcelApp.ActiveSheet.PrintPreview;
ExcelApp.ActiveWorkBook.SaveAs('d:/1001.xls'); //工作表另存为
ExcelApp.ActiveWorkBook.Saved := True; // 放弃存盘
ExcelApp.WorkBooks.Close; //关闭工作簿
ExcelApp.Quit;
end;

接受答案了.