VC中操作Excel方法集锦（1）

1、MSDN   上的代码，很好的例子

#include   "excel8.h "


    //   OLE   Variant   for   Optional.
            COleVariant   VOptional((long)DISP_E_PARAMNOTFOUND,   VT_ERROR);

            _Application   objApp;
            _Workbook   objBook;
            Workbooks   objBooks;
            Worksheets   objSheets;
            _Worksheet   objSheet;
            Range   objRange;
            VARIANT   ret;

            //   Instantiate   Excel   and   open   an   existing   workbook.
            objApp.CreateDispatch( "Excel.Application ");
            objBooks   =   objApp.GetWorkbooks();
            objBook   =   objBooks.Open( "C://Test.xls ",
                                VOptional,   VOptional,   VOptional,   VOptional,
                                VOptional,   VOptional,   VOptional,   VOptional,
                                VOptional,   VOptional,   VOptional,   VOptional);
            objSheets   =   objBook.GetWorksheets();
            objSheet   =   objSheets.GetItem(COleVariant((short)1));

            //Get   the   range   object   for   which   you   wish   to   retrieve   the
            //data   and   then   retrieve   the   data   (as   a   variant   array,   ret).
            objRange   =   objSheet.GetRange(COleVariant( "A1 "),   COleVariant( "C8 "));
            ret   =   objRange.GetValue();

            //Create   the   SAFEARRAY   from   the   VARIANT   ret.
            COleSafeArray   sa(ret);

            //Determine   the   array 's   dimensions.
            long   lNumRows;
            long   lNumCols;
            sa.GetUBound(1,   &lNumRows);
            sa.GetUBound(2,   &lNumCols);

            //Display   the   elements   in   the   SAFEARRAY.
            long   index[2];
            VARIANT   val;
            int   r,   c;
            TRACE( "Contents   of   SafeArray/n ");
            TRACE( "=====================/n/t ");
            for(c=1;c <=lNumCols;c++)
            {
                  TRACE( "/t/tCol   %d ",   c);
            }
            TRACE( "/n ");
            for(r=1;r <=lNumRows;r++)
            {
                  TRACE( "Row   %d ",   r);
                  for(c=1;c <=lNumCols;c++)
                  {
                        index[0]=r;
                        index[1]=c;
                        sa.GetElement(index,   &val);
                        switch(val.vt)
                        {
                        case   VT_R8:
                              {
                                    TRACE( "/t/t%1.2f ",   val.dblVal);
                                    break;
                              }
                        case   VT_BSTR:
                              {
                                    TRACE( "/t/t%s ",(CString)val.bstrVal);
                                    break;
                              }

                        case   VT_EMPTY:
                              {
                                    TRACE( "/t/t <empty> ");
                                    break;
                              }
                        }
                  }
                  TRACE( "/n ");
            }

            //Close   the   workbook   without   saving   changes
            //and   quit   Microsoft   Excel.
            objBook.Close(COleVariant((short)FALSE),   VOptional,   VOptional);
            objApp.Quit();

2、不错的一篇文章

在VC中彻底玩转Excel  
 
作者：龚敏       来源：子玉山庄       更新：10/8/2004  

      如今Excel是越来越重要了，在我们自己开发的程序中不免要和Excel打交道了。利用Automation技术，我们可以在不去了解
数据库的情况下玩转Excel，而且你会发现一切竟如此轻松！
        好了，咱们开始吧，我不喜欢用长篇累牍的代码来故弄玄虚，所以下面的代码都是切中要害的片段，总体上是个连贯的过程，
包括启动Excel，读取数据，写入数据，以及最后的关闭Excel，其中还包括了很多人感兴趣的合并单元格的处理。
        特别说明以下代码需要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的动态连接库
  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());  
 
  #include   "excel8.h "


  //*****
  //得到当前活跃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();                   
 
3、另一篇不错的文章

在Visual   C++   中调用Excel   2000  
2001-06-14   19:02:39   程   蓬  
   
      在开发软件时，经常要将数据输出到Excel   2000中，在Excel   2000中对该数据进行进一步地格式化处理或进行计算处理。在Visual   Basic中处理起来较简单，Excel   2000的VB编程帮助中有较为详细的介绍。在Visual   C++中如何进行处理了？利用Excel   2000的ActiveX   Automate功能，处理起来同VB中类似。但要注意以下几点：    
对于对象的属性值的读取或赋值，需要用GetProperty()或SetProperty(NewValue)函数，不能象VB中直接通过属性名称取值或赋值。例如：Worksheet.GetCount(),   Worksheet.SetName(“Sheet1”)。    
对集合对象中的成员对象的引用，必须使用集合对象的GetItem()函数。例如：Worksheets.GetItem(ColeVariant((long)1))或Worksheets.GetItem(ColeVariant(“Sheet1”))取得第一个工作表。    
        在COM接口中，时常用到Variant，BSTR，SafeArray数据类型。Variant数据类型是一个联合，可表示几乎所有的类型的数据，具体用法见MSDN中的相关介绍，类_variant_t是对VARIANT数据类型的封装。在Excel   2000的VB编程帮助中，如果提到某函数或属性需要一个值，该值的数据类型通常是Variant，在封装Excel   2000对象的类定义中，说明了具体需要的数据类型。BSTR是一个包括了字符串和字符串长度的数据结构，类_bstr_t是对BSTR数据类型的封装。在Excel   2000的VB编程帮助中提到的字符串通常指BSTR。具体函数参数或属性的数据类型，见封装该对象的类的定义。SafeArray是一个包括数组和数组边界的结构，数组边界外的内容不允许访问。在Excel   2000的VB编程帮助中提到的数组是指SafeArray。关于SafeArray的处理，请见MSDN的相关帮助。    
        对于缺省参数和缺省值。在VB中，函数的参数可以空缺，在VC++中不允许，必须将所有的参数填写完全。如果你希望指定某个参数为缺省值，根据参数数据类型的不同，可指定不同的缺省值。当参数数据类型为字符串时，可以用长度为0的字符串。如果参数是Variant类型，可用常量vtMissing，该常量在comdef.h中定义。也可用_variant_t(DISP_E_PARAMNOTFOUND,   VT_ERROR)产生一个Variant对象。    
        Excel对象中的集合对象有时包括的子对象是不一定的，例如：Range对象，可以表示Cell的集合，也可以表示Column的集合或Row的集合，Range.GetItem(1)可以返回Cell或Column或Row对象。    
        对对象的引用或传递对象，使用IDispatch类对象，有时利用Variant对IDispatch进行包装。    
        以下是一段源程序，演示如何启动Excel   2000，利用一个模板文件产生一个新文档，在该文档的”Sheet1”工作表的第一个单元中填写一段文字，设置第一列的列宽，然后调用一个模板中的宏，执行一段程序，最后打印预览该Excel文档。模板文件名称：MyTemplate.xlt。程序在Visual   C++   6.0   sp4，Windows   2000   Professional   sp-1下调试通过。    
        首先利用Visual   C++   6.0，建立一个MFC基于对话框的工程项目，共享DLL，Win32平台。工程名称ExcelTest。在主对话框中加入一个按钮，    
ID   IDC_EXCELTEST    
Caption   Test   Excel    
双击该按钮，增加成员函数void   CExcelTestDlg::OnExceltest()。    
在BOOL   CExcelTestApp::InitInstance()中，dlg.DoModal();之前增加代码：    
if   (CoInitialize(NULL)!=0)    
{    
AfxMessageBox( "初始化COM支持库失败! ");    
exit(1);    
}    
        在return   FALSE;   语句前，加入：CoUninitialize();    
        选择Menu-> View-> ClassWizade，打开ClassWizade窗口，选择Add   Class-> From   a   type   library，选择D:/Program   Files/Microsoft   Office/office/Excel9.OLB(D:/Program   Files/Microsoft   Office/是本机上Microsoft   Office   2000的安装目录，可根据个人机器上的实际安装目录修改)。选择_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range，加入新类，分别为_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range，头文件Excel9.h，源文件Excel9.cpp。    
        在ExcelTestDlg.cpp文件的头部，#include   "ExcelTestDlg.h "语句之下，增加   ：    
#include   "comdef.h "    
#include   "Excel9.h "    
        在void   CExcelTestDlg::OnExceltest()   函数中增加如下代码：    
void   CExcelTestDlg::OnExceltest()      
{    
_Application   ExcelApp;    
Workbooks   wbsMyBooks;    
_Workbook   wbMyBook;    
Worksheets   wssMysheets;    
_Worksheet   wsMysheet;    
Range   rgMyRge;    
//创建Excel   2000服务器(启动Excel)    
   
if   (!ExcelApp.CreateDispatch( "Excel.Application ",NULL))    
{    
AfxMessageBox( "创建Excel服务失败! ");    
exit(1);    
}    
//利用模板文件建立新文档    
wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);    
wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t( "g://exceltest//MyTemplate.xlt ")));    
//得到Worksheets    
wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true);    
//得到sheet1    
wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t( "sheet1 ")),true);    
//得到全部Cells，此时,rgMyRge是cells的集合    
rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);    
//设置1行1列的单元的值    
rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)1),_variant_t( "This   Is   A   Excel   Test   Program! "));    
//得到所有的列    
rgMyRge.AttachDispatch(wsMysheet.GetColumns(),true);    
//得到第一列    
rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)1),vtMissing).pdispVal,true);    
//设置列宽    
rgMyRge.SetColumnWidth(_variant_t((long)200));    
//调用模板中预先存放的宏    
ExcelApp.Run(_variant_t( "CopyRow "),_variant_t((long)10),vtMissing,vtMissing,    
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,    
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,    
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,    
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing);    
//打印预览    
wbMyBook.SetSaved(true);    
ExcelApp.SetVisible(true);    
wbMyBook.PrintPreview(_variant_t(false));    
//释放对象    
rgMyRge.ReleaseDispatch();    
wsMysheet.ReleaseDispatch();    
wssMysheets.ReleaseDispatch();    
wbMyBook.ReleaseDispatch();    
wbsMyBooks.ReleaseDispatch();    
ExcelApp.ReleaseDispatch();    
}    
        添加完以上程序后，可运行看结果。