Excel操作——删除工作表

来源：互联网发布：什么软件看书全编辑：程序博客网时间：2024/06/06 02:40

研究一阵Excel了，也知道调用_WorkSheet对象的Delete方法就可以删除工作表，但试了很多次都不成功，经过反复试验，发现原来必须先把工作表中的数据清空，才能删除。有人说不用，我想可能是Office版本的差别的，我用Office2003肯定是这样，2007也许就不用了。

把代码贴出来，方法没有问题。

int CIOExcel::deleteWorkSheet( CString strFilePath, CString strSheetName )

{

int nRetVal = 0;

// 打开文件，获取激活的Sheet

LPDISPATCH lpDisp = NULL;

COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

// 打开文件

lpDisp = m_oWorkBooks.Open( strFilePath,

_variant_t(vtMissing),

_variant_t(vtMissing) );

// 获得活动的WorkBook( 工作簿)

m_oWorkBook.AttachDispatch( lpDisp, TRUE );

// 获得工作表集

m_oWorkSheets.AttachDispatch( m_oWorkBook.GetSheets(), TRUE );

// 获得指定的工作表

m_oWorkSheet.AttachDispatch( m_oWorkSheets.GetItem( COleVariant( strSheetName ) ), TRUE );

m_oCurrRange.AttachDispatch( m_oWorkSheet.GetUsedRange(), TRUE );

// 清空数据

m_oCurrRange.Clear();

// 先保存一下

m_oWorkBook.SaveAs( COleVariant(strFilePath),

_variant_t(vtMissing),

_variant_t(vtMissing) );

// 删除工作表

m_oWorkSheet.Delete();

// 再先保存一下

m_oWorkBook.SaveAs( COleVariant(strFilePath),

_variant_t(vtMissing),

_variant_t(vtMissing) );

m_oWorkBook.Close( covOptional, COleVariant(strFilePath), covOptional );

m_oWorkBooks.Close();

return 0;

}