// Excel應(yīng)用對象_Application  m_oExcelApp;   // Excel程序_Worksheet  m_oWorkSheet;   // 工作表_Workbook  m_oWorkBook;   // 工作簿W(wǎng)orkbooks  m_oWorkBooks;  // 工作簿集合Worksheets  m_oWorkSheets;  // 工作表集合Range  m_oCurrRange;   // 使用區(qū)域

if (CoInitialize(NULL)!=0){    AfxMessageBox("初始化COM支持庫失敗!");    exit(1);}

if (!m_oExcelApp.CreateDispatch( _T( "Excel.Application" ), NULL ) ){   ::MessageBox( NULL, _T( "創(chuàng)建Excel服務(wù)失敗！" ), _T( "錯誤提示！" ), MB_OK | MB_ICONERROR);   exit(1);}//設(shè)置為顯示m_oExcelApp.SetVisible(FALSE);m_oWorkBooks.AttachDispatch( m_oExcelApp.GetWorkbooks(), TRUE ); //沒有這條語句，下面打開文件返回失敗。LPDISPATCH lpDisp = NULL;COleVariant covTrue((short)TRUE);COleVariant covFalse((short)FALSE);COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); Range  oCurCell;// 打開文件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 );// 獲得活動的WorkSheet( 工作表 )m_oWorkSheet.AttachDispatch( m_oWorkBook.GetActiveSheet(), TRUE );// 獲得使用的區(qū)域Range( 區(qū)域 )m_oCurrRange.AttachDispatch( m_oWorkSheet.GetUsedRange(), TRUE );// 獲得使用的行數(shù)long lgUsedRowNum = 0;m_oCurrRange.AttachDispatch( m_oCurrRange.GetRows(), TRUE );lgUsedRowNum = m_oCurrRange.GetCount();// 獲得使用的列數(shù)long lgUsedColumnNum = 0;m_oCurrRange.AttachDispatch( m_oCurrRange.GetColumns(), TRUE );lgUsedColumnNum = m_oCurrRange.GetCount();// 讀取Sheet的名稱CString strSheetName = m_oWorkSheet.GetName();//得到全部Cells，此時,CurrRange是cells的集合m_oCurrRange.AttachDispatch( m_oWorkSheet.GetCells(), TRUE );// 遍歷整個Excel表格CStringArray* arrayStr;arrayStr = new CStringArray[lgUsedRowNum];for ( int i = 0; i < lgUsedRowNum; ){   for ( int j = 1; j <= lgUsedColumnNum; )   {   oCurCell.AttachDispatch( m_oCurrRange.GetItem( COleVariant( (long)(i + 1)), COleVariant( (long)j ) ).pdispVal, TRUE );   VARIANT varItemName = oCurCell.GetText();   CString strItemName;   strItemName = varItemName.bstrVal;//         AfxMessageBox( strItemName );   // 判斷是否是合并的單元格   VARIANT varMerge = oCurCell.GetMergeCells();   if ( varMerge.boolVal == -1 )   {//             AfxMessageBox( _T( "是合并的單元格!" ) );   }   else if ( varMerge.boolVal == 0 )   {//             AfxMessageBox( _T( "不是合并的單元格!" ) );   }   arrayStr[i].Add( strItemName );   j++;   }   i++;}// 更新列表控件數(shù)據(jù)m_pExcelOperDlg->initListCtrlColumn( lgUsedColumnNum );m_pExcelOperDlg->updateListCtrlData( arrayStr, lgUsedRowNum );// 釋放二維數(shù)組delete[] arrayStr;// 關(guān)閉m_oWorkBook.Close( covOptional, COleVariant( strFilePath ), covOptional );m_oWorkBooks.Close();// 釋放m_oCurrRange.ReleaseDispatch();m_oWorkSheet.ReleaseDispatch();m_oWorkSheets.ReleaseDispatch();m_oWorkBook.ReleaseDispatch();m_oWorkBooks.ReleaseDispatch();m_oExcelApp.ReleaseDispatch();m_oExcelApp.Quit();  // 這條語句是推出Excel程序，任務(wù)管理器中的EXCEL進程會自動結(jié)束。