Закрыть уже открытый Excel

[brick08]

ДД!
пишу программу, которая делает расчеты и выгружает данные в Excel. И при формировании нового отчета нужно закрыть уже открытую пользователем книгу, чтобы перезаписать данные, но как это сделать не могу понять. Пишу так:

procedure CheckFileOpen(NameFile:string);
var i:integer;
s:string;
begin
  try
    for i:=1 to MyExcel.WorkBooks.Count do
    s:=MyExcel.WorkBooks.Item[i].FullName;
    if (NameFile=s) then
      MyExcel.WorkBooks.Item[i].close;
  except
    MessageBox(0,'Îøèáêà çàêðûòèÿ ôàéëà','Îøèáêà',MB_OK+MB_ICONERROR);
  end;
end;
procedure TForm1.Button175Click(Sender: TObject);
   var    
   FileName:string;
   begin
  MyExcel := CreateOleObject(ExcelApp);
  MyExcel.Visible :=false;
  WBk := MyExcel.WorkBooks.Open(strOtchet);
  Sheet := WBk.WorkSheets[ExtractFileName('Отчет')].Select;
 ....
MyExcel.DisplayAlerts:= false;
 WBk.Save;
 FileName:=GetSpecialPath(CSIDL_DESKTOPDIRECTORY)+'\Отчет1.xls';
 CheckFileOpen(FileName);
 Wbk.Activate;
 MyExcel.activeworkbook.SaveAs(FileName);
 MyExcel.quit;
 MyExcel:=Unassigned;
 end;

Но при поиске в CheckFileOpen перебирает только открытые программой книги, а открытые пользователем пропускает. как сделать чтобы закрыть уже открытый файл Excel?