MFC读取Excel例子(OLE/COM)

原文链接：http://blog.sina.com.cn/s/blog_71265dc90101b3wh.html

//*****
  //变量定义
  _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的动态连接库
  if(!AfxOleInit())   
  {
                AfxMessageBox("无法初始化COM的动态连接库!");
                return  ;
          }     
 
 
  //*****
  //创建Excel  2000服务器(启动Excel)
  if(!app.CreateDispatch("Excel.Application")) 
  {
    AfxMessageBox("无法启动Excel服务器!");
        return;
  }
 
  app.SetVisible(TRUE);                    //使Excel可见
  app.SetUserControl(TRUE);            //允许其它用户控制Excel
 

  //*****     
  //打开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()); 
 
 
  //*****
  //得到当前活跃sheet
  //如果有单元格正处于编辑状态中，此操作不能返回，会一直等待
  lpDisp=book.GetActiveSheet();
  sheet.AttachDispatch(lpDisp); 
   

  //*****
  //读取已经使用区域的信息，包括已经使用的行数、列数、起始行、起始列
  Range  usedRange;
  usedRange.AttachDispatch(sheet.GetUsedRange());
  range.AttachDispatch(usedRange.GetRows());
  long  iRowNum=range.GetCount();                                      //已经使用的行数
 
  range.AttachDispatch(usedRange.GetColumns());
  long  iColNum=range.GetCount();                                      //已经使用的列数
   
  long  iStartRow=usedRange.GetRow();                              //已使用区域的起始行，从1开始
  long  iStartCol=usedRange.GetColumn();                        //已使用区域的起始列，从1开始
   
   
  //*****
  //读取第一个单元格的值
  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字节的数字 
  {
    str.Format("%f",vResult.dblVal);
  }
  else  if(vResult.vt==VT_DATE)        //时间格式
  {
    SYSTEMTIME  st;
          VariantTimeToSystemTime(&vResult.date,  &st);
  }
  else  if(vResult.vt==VT_EMPTY)      //单元格空的
  {
    str="";
  }   
 
 
  //*****
  //读取第一个单元格的对齐方式，数据类型:VT_I4
  //读取水平对齐方式
  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:            //默认
      break;
    case  -4108:    //居中
      break;
    case  -4131  :  //靠左
      break;
    case  -4152  :  //靠右
      break;
    }
 
  }
   
  //垂直对齐方式
  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;
    }
 
  }
 
   
  //*****
  //设置第一个单元格的值"HI,EXCEL!"
  range.SetItem(COleVariant(1),COleVariant(1),COleVariant("HI,EXCEL!")); 
 

  //*****
  //设置第一个单元格字体颜色:红色
  Font  font;
  range.AttachDispatch(sheet.GetCells());
  range.AttachDispatch((range.GetItem  (COleVariant(long(1)),  COleVariant(long(1)))).pdispVal);
  font.SetColor(COleVariant((long)0xFF0000));   
 
 
  //*****
  //合并单元格的处理
  //包括判断第一个单元格是否为合并单元格，以及将第一个单元格进行合并
  Range  unionRange;
  range.AttachDispatch(sheet.GetCells()); 
  unionRange.AttachDispatch(range.GetItem  (COleVariant((long)1),COleVariant((long)1)).pdispVal  );
   
  vResult=unionRange.GetMergeCells();       
  if(vResult.boolVal==-1)                          //是合并的单元格       
  {
    //合并单元格的行数 
    range.AttachDispatch  (unionRange.GetRows  ());
    long  iUnionRowNum=range.GetCount  (); 
     
    //合并单元格的列数
    range.AttachDispatch  (unionRange.GetColumns  ());
    long  iUnionColumnNum=range.GetCount  ();     
   
    //合并区域的起始行，列
    long  iUnionStartRow=unionRange.GetRow();              //起始行，从1开始
    long  iUnionStartCol=unionRange.GetColumn();        //起始列，从1开始
   
  }
  else  if(vResult.boolVal==0)     
  {//不是合并的单元格}
 
  //将第一个单元格合并成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);   
   
   
  //*****
  //关闭所有的book，退出Excel 
  book.Close  (covOptional,COleVariant(OutFilename),covOptional);
  books.Close();           
  app.Quit();                 
 
*****************************************************************************************************