Excel操作——删除工作表

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

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

int CIOExcel::deleteWorkSheet(CStringstrFilePath,CStringstrSheetName)

{

intnRetVal= 0;

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

LPDISPATCHlpDisp=NULL;

COleVariantcovOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);

// 打开文件

lpDisp=m_oWorkBooks.Open(strFilePath,

_variant_t(vtMissing),

_variant_t(vtMissing),

_variant_t(vtMissing),

_variant_t(vtMissing),

_variant_t(vtMissing),

_variant_t(vtMissing),

_variant_t(vtMissing),

_variant_t(vtMissing),

_variant_t(vtMissing),

_variant_t(vtMissing),

_variant_t(vtMissing),

_variant_t(vtMissing),

_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),

_variant_t(vtMissing),

_variant_t(vtMissing),

_variant_t(vtMissing),

0,

_variant_t(vtMissing),

_variant_t(vtMissing),

_variant_t(vtMissing),

_variant_t(vtMissing),

_variant_t(vtMissing) );

// 删除工作表

m_oWorkSheet.Delete();

// 再先保存一下

m_oWorkBook.SaveAs(COleVariant(strFilePath),

_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),

_variant_t(vtMissing) );

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

m_oWorkBooks.Close();

return0;

}