Excel操作——删除工作表

 

       研究一阵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),

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

 

     return 0;

}

 

       函数的两个参数分别是：Excel文件的路径和WorkSheet的名称。