请高手看一下这个简单的过程

 目的就是写入一个字符串到指定的位置中，但是运行的时候老是提示我“是否保存对”a.xls"的修改，晕死   procedure wtexcel(str1:string;x1,x2:integer);
var     Sheet:Variant;
 excel:Variant;
begin
        excel:=CreateOleObject('Excel.Application');
  excel.WorkBooks.Open(ExtractFileDir(Application.ExeName)+'\a.xls');
  Sheet:=excel.WorkBooks[excel.WorkBooks.Count].WorkSheets[1];
  sheet.Cells[x1,x2]:=str1; // if not excel.ActiveWorkBook.Saved then
  // excel.ActiveWorkBook.Saved:=true;
  // excel.WorkBooks.Close;
       excel.quit;
      end;