VC下删除Excel工作表

BOOL DeleteExcelSheet(CString sExcelFilePath, CString sSheetName)
{

   _Worksheet m_wsExcelSingle;
 Worksheets m_wsExcels;
 _Workbook m_wbExcelSingle;
 Workbooks m_wbExcels;
 _Application m_appExcel;

  //创建Excel 2000服务器(启动Excel)
 if (!m_appExcel.CreateDispatch("Excel.Application",NULL))
 {
  MessageBox(NULL,"创建Excel服务失败!","提示",MB_OK|MB_ICONWARNING);
  return FALSE;
 }
 m_appExcel.SetVisible(false); 
 m_appExcel.SetAlertBeforeOverwriting(FALSE);//禁用覆盖提示
 m_appExcel.SetDisplayAlerts(FALSE);//禁止显示警告提示

 m_wbExcels.AttachDispatch(m_appExcel.GetWorkbooks(),true);
 m_wbExcelSingle.AttachDispatch(m_wbExcels.Add(_variant_t(sExcelFilePath)));
 //得到Worksheets
 m_wsExcels.AttachDispatch(m_wbExcelSingle.GetWorksheets(),true);
 m_wsExcelSingle.AttachDispatch(m_wsExcels.GetItem(_variant_t(sSheetName)),true);

 

//我在测试时此处已注释部份不用要也成功，如果不成功则加上
 /*m_rangeExcel.AttachDispatch(m_wsExcelSingle.GetUsedRange(), TRUE);
 
 m_rangeExcel.Clear();

 m_wbExcelSingle.SaveAs( COleVariant(sExcelFilePath),
  _variant_t(vtMissing),
  _variant_t(vtMissing),
  _variant_t(vtMissing),
  _variant_t(vtMissing),
  _variant_t(vtMissing),
  0,
  _variant_t(vtMissing),
  _variant_t(vtMissing),
  _variant_t(vtMissing),
  _variant_t(vtMissing));
*/

    m_wsExcelSingle.Delete();

 m_wbExcelSingle.SaveAs( COleVariant(sExcelFilePath),
  _variant_t(vtMissing),
  _variant_t(vtMissing),
  _variant_t(vtMissing),
  _variant_t(vtMissing),
  _variant_t(vtMissing),
  0,
  _variant_t(vtMissing),
  _variant_t(vtMissing),
  _variant_t(vtMissing),
  _variant_t(vtMissing));

 //释放对象
 
 //COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
 //m_wbExcelSingle.Close( covOptional, COleVariant( sExcelFilePath ), covOptional );
 //m_wbExcels.Close();
 //m_rangeExcel.ReleaseDispatch();
 m_wsExcelSingle.ReleaseDispatch();
 m_wsExcels.ReleaseDispatch();
 m_wbExcelSingle.ReleaseDispatch();
 m_wbExcels.ReleaseDispatch();
 m_appExcel.ReleaseDispatch();
 m_appExcel.Quit();

 return TRUE;
}