急！用delphi打开Excel文件，修改后，在Delphi中如何保存？？？？

Question

var XLApp，workbook ，sheet,myRange: variant;
   
   XLApp:=createOleObject('Excel.Application');   
   XLApp.WorkBooks.Add(A_FileName);  //A_FileName：一个已存在的文件
   workbook := XLApp.workbooks[1];
   sheet:=workbook.worksheets[1];
   XLApp.displayAlerts:=false;
   XLApp.ScreenUpdating:=true;  myRange:=XLSheet.Range[XLSheet.cells[1,1],XLSheet.cells[2,2]];
  myRange.Font.Name:='宋体';   workbook.save ;问：
  上面一段程序，修改保存运行没有出错，
  为什么再次用 Excel 打开此文件，发觉并未修改？？？
  怎么上面的程序有什么问题?

Answer 1

var XLApp: variant;
... 
     XLApp:=CreateOLEobject('Excel.Application');
     XLApp.WorkBooks.Open(A_FileName);
     XLApp.Sheets.item[1].Range.[XLApp.Sheets.item[1].cells.[1,1],XLSheet.cells[2,2]].Font.Name:='宋体';
     XLApp.ActiveWorkBook.Saved := true;
     XLApp.WorkBooks.Close;
     XLApp.Quit;