[原創(chuàng)]在VC中徹底玩轉(zhuǎn)Excel
    如今Excel是越來(lái)越重要了，在我們自己開(kāi)發(fā)的程序中不免要和Excel打交道了。利用Automation技術(shù)，我們可以在不去了解
數(shù)據(jù)庫(kù)的情況下玩轉(zhuǎn)Excel，而且你會(huì)發(fā)現(xiàn)一切竟如此輕松！
    好了，咱們開(kāi)始吧，我不喜歡用長(zhǎng)篇累牘的代碼來(lái)故弄玄虛，所以下面的代碼都是切中要害的片段，總體上是個(gè)連貫的過(guò)程，
包括啟動(dòng)Excel，讀取數(shù)據(jù)，寫(xiě)入數(shù)據(jù)，以及最后的關(guān)閉Excel，其中還包括了很多人感興趣的合并單元格的處理。
    特別說(shuō)明以下代碼需要MFC的支持，而且工程中還要包含EXCEL2000的定義文件：EXCEL9.H，EXCEL9.CPP

*****************************************************************************************************************

 //*****
 //變量定義
 _Application app;    
 Workbooks books;
 _Workbook book;
 Worksheets sheets;
 _Worksheet sheet;
 Range range;
 Range iCell;
 LPDISPATCH lpDisp;    
 COleVariant vResult;
 COleVariant
        covTrue((short)TRUE),
        covFalse((short)FALSE),
        covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);    
 
 
 //*****
 //初始化COM的動(dòng)態(tài)連接庫(kù)
 if(!AfxOleInit())  
 {
        AfxMessageBox("無(wú)法初始化COM的動(dòng)態(tài)連接庫(kù)!");
        return ;
     }   
 
 
 //*****
 //創(chuàng)建Excel 2000服務(wù)器(啟動(dòng)Excel)
 if(!app.CreateDispatch("Excel.Application")) 
 {
  AfxMessageBox("無(wú)法啟動(dòng)Excel服務(wù)器!");
    return;
 }
 
 app.SetVisible(TRUE);          //使Excel可見(jiàn)
 app.SetUserControl(TRUE);      //允許其它用戶控制Excel
 

 //*****   
 //打開(kāi)c:\\1.xls
 books.AttachDispatch(app.GetWorkbooks());
 lpDisp = books.Open("C:\\\\1.xls",      
   covOptional, covOptional, covOptional, covOptional, covOptional,
   covOptional, covOptional, covOptional, covOptional, covOptional,
   covOptional, covOptional );    
  
     
 //*****
 //得到Workbook
 book.AttachDispatch(lpDisp);
 
 
 //*****
 //得到Worksheets 
 sheets.AttachDispatch(book.GetWorksheets()); 
 
 
 //*****
 //得到當(dāng)前活躍sheet
 //如果有單元格正處于編輯狀態(tài)中，此操作不能返回，會(huì)一直等待
 lpDisp=book.GetActiveSheet();
 sheet.AttachDispatch(lpDisp); 
  

 //*****
 //讀取已經(jīng)使用區(qū)域的信息，包括已經(jīng)使用的行數(shù)、列數(shù)、起始行、起始列
 Range usedRange;
 usedRange.AttachDispatch(sheet.GetUsedRange());
 range.AttachDispatch(usedRange.GetRows());
 long iRowNum=range.GetCount();                   //已經(jīng)使用的行數(shù)
 
 range.AttachDispatch(usedRange.GetColumns());
 long iColNum=range.GetCount();                   //已經(jīng)使用的列數(shù)
  
 long iStartRow=usedRange.GetRow();               //已使用區(qū)域的起始行，從1開(kāi)始
 long iStartCol=usedRange.GetColumn();            //已使用區(qū)域的起始列，從1開(kāi)始
  
  
 //*****
 //讀取第一個(gè)單元格的值
 range.AttachDispatch(sheet.GetCells()); 
 range.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal );
 COleVariant vResult =range.GetValue();
 CString str;
 if(vResult.vt == VT_BSTR)       //字符串
 {
  str=vResult.bstrVal;
 }
 else if (vResult.vt==VT_R8)     //8字節(jié)的數(shù)字 
 {
  str.Format("%f",vResult.dblVal);
 }
 else if(vResult.vt==VT_DATE)    //時(shí)間格式
 {
  SYSTEMTIME st;
     VariantTimeToSystemTime(&vResult.date, &st);
 }
 else if(vResult.vt==VT_EMPTY)   //單元格空的
 {
  str="";
 }  
 
 
 //*****
 //讀取第一個(gè)單元格的對(duì)齊方式，數(shù)據(jù)類(lèi)型:VT_I4
 //讀取水平對(duì)齊方式
 range.AttachDispatch(sheet.GetCells());
 iCell.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
 vResult.lVal=0;
 vResult=iCell.GetHorizontalAlignment();
 if(vResult.lVal!=0)
 {
  switch (vResult.lVal)
  {
  case 1:      //默認(rèn)
   break;
  case -4108:  //居中
   break;
  case -4131 : //靠左
   break;
  case -4152 : //靠右
   break;
  }
 
 }
  
 //垂直對(duì)齊方式
 iCell.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
 vResult.lVal=0;
 vResult=iCell.GetVerticalAlignment();
 if(vResult.lVal!=0)
 {
  switch (vResult.lVal)
  {
  case -4160 :  //靠上
   break;
  case -4108 :  //居中
   break;
  case -4107 :  //靠下
   break;
  }
 
 }
 
  
 //*****
 //設(shè)置第一個(gè)單元格的值"HI,EXCEL!"
 range.SetItem(COleVariant(1),COleVariant(1),COleVariant("HI,EXCEL!")); 
 

 //*****
 //設(shè)置第一個(gè)單元格字體顏色:紅色
 Font font;
 range.AttachDispatch(sheet.GetCells());
 range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
 font.SetColor(COleVariant((long)0xFF0000));  
 
 
 //*****
 //合并單元格的處理
 //包括判斷第一個(gè)單元格是否為合并單元格，以及將第一個(gè)單元格進(jìn)行合并
 Range unionRange;
 range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal );
  
 vResult=unionRange.GetMergeCells();    
 if(vResult.boolVal==-1)             //是合并的單元格    
 {
  //合并單元格的行數(shù) 
  range.AttachDispatch (unionRange.GetRows ());
  long iUnionRowNum=range.GetCount (); 
   
  //合并單元格的列數(shù)
  range.AttachDispatch (unionRange.GetColumns ());
  long iUnionColumnNum=range.GetCount ();   
  
  //合并區(qū)域的起始行，列
  long iUnionStartRow=unionRange.GetRow();       //起始行，從1開(kāi)始
  long iUnionStartCol=unionRange.GetColumn();    //起始列，從1開(kāi)始
  
 }
 else if(vResult.boolVal==0)   
 {//不是合并的單元格}
 
 //將第一個(gè)單元格合并成2行，3列
 range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)3)));
 unionRange.Merge(COleVariant((long)0));   //合并單元格
 
 
 //*****
 //將文件保存為2.xls 
 book.SaveAs(COleVariant("C:\\\\2.xls"),covOptional,covOptional, \\
  covOptional,covOptional,covOptional,0,\\
  covOptional,covOptional,covOptional,covOptional);  
  
  
 //*****
 //關(guān)閉所有的book，退出Excel 
 book.Close (covOptional,COleVariant(OutFilename),covOptional);
 books.Close();      
 app.Quit();         
 
*****************************************************************************************************************
                                       
                                作者  ：龔敏
                                 Email : truetable@truetable.com
                                 主頁(yè)  ：http://www.truetable.com