VC获取Excel所有工作表名，并将其显示到一个CListCtrl控件中

最新推荐文章于 2020-04-12 21:19:00 发布

wxfy1977

最新推荐文章于 2020-04-12 21:19:00 发布

阅读量2.9k

点赞数

分类专栏： VC编程文章标签： excel 工作 application null

本文链接：https://blog.csdn.net/wxfy1977/article/details/3839251

版权

VC编程专栏收录该内容

18 篇文章 1 订阅

订阅专栏

获取所有工作表名，并将其显示到一个CListCtrl控件中

BOOL GetExcelSheetList(CString sExcelFile, CListCtrl &listMx)
{

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

if (!m_appExcel.CreateDispatch("Excel.Application",NULL))
{
MessageBox(NULL,"创建Excel服务失败!","提示",MB_OK|MB_ICONWARNING|MB_TOPMOST);
return FALSE;
}
m_appExcel.SetVisible(false);
m_wbExcels.AttachDispatch(m_appExcel.GetWorkbooks(),true);
m_wbExcelSingle.AttachDispatch(m_wbExcels.Add(_variant_t(sExcelFile)));

m_wsExcels.AttachDispatch(m_wbExcelSingle.GetWorksheets(),true);
for(int j=1;j<=m_wsExcels.GetCount();j++)
{
m_wsExcelSingle.AttachDispatch( m_wsExcels.GetItem( COleVariant( long( j ) ) ), TRUE );
CString sVal = m_wsExcelSingle.GetName();

  int nItem = listMx.GetItemCount();
  listMx.InsertItem(nItem,sVal);
}

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

return TRUE;
}