VC下删除Excel工作表

来源：互联网发布：长海医院人工智能编辑：程序博客网时间：2024/06/02 03:21

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();

//释放对象

//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;
}