Delphi对Excel文件的操作（3）——删除

//path:文件路径
//RecipeName：要删除的表单名称
function DeleteRecipe(path:string;RecipeName:string):Boolean;
var
i:Integer;
index:Integer;
flag:boolean=false;
MsExcel, MsExcelWorkBook, MsExcelWorkSheet: Variant;
begin
  Result:=False;
  try
    MsExcel := CreateOleObject('Excel.Application');
    try
      MsExcelWorkBook := MsExcel.Workbooks.Open (path);
      try
        //先判断当前是否已存在该表单
        for i := 1 to MsExcel.Sheets.Count do
        begin
          if (RecipeName = MsExcel.Sheets[i].Name) then          //找到要删除的表格
          begin
            MsExcel.DisplayAlerts:=false;                 //不将Excel显示到桌面
            MsExcel.Sheets[i].delete;                        //删除表单
            Result := True;
            flag := true;                                       
            break;
          end;

        end;

        if not flag then
        begin
          showmessage('不存在该表单！');
        end;

        MsExcel.DisplayAlerts:=false;
        MsExcel.ActiveWorkBook.Save;

    finally
        MsExcel.WorkBooks.Close;
      end;
    finally
      MsExcel.Quit;
      MsExcel := Unassigned;
    end;
  except
    ShowMessage('写入文件失败');
    result:= false;
  end;
end;