VC++ 操作excel 转

VC Excel

 

在VC中彻底玩转Excel
原文：http://blog.csdn.net/vicozo/archive/2009/04/12/4067804.aspx
       如今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());  
 
 
 //*****
 //得到当前活跃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();          

关于excel.h和excel.cpp,要注意版本问题.
比如对excel xp, 类库是直接包含在excel.exe中. 因此你只要用加入类(add class)的方法,直接选中excel.exe,并选择对话框中的常用的几个类(如Rang)就可以编程了. 千万不要选所有的类,否则太大了.

作者：unionsoft 2003-11-29 11:00:34)

修改字体颜色的那段漏了一句，应为：  
   //*****  
   //设置第一个单元格字体颜色:红色  
   Font  font;  
   range.AttachDispatch(sheet.GetCells());  
   range.AttachDispatch((range.GetItem  (COleVariant(long(1)),  COleVariant(long(1)))).pdispVal);  
   font.AttachDispatch  (range.GetFont  ());  
   font.SetColor(COleVariant((long)0xFF0000));  

作者：zhengkuo 2003-12-2 10:50:00)

如果，程序既要安装在2000的计算机上，也可能安装在XP的机子上，有的用户还用97，（指的都是office）,可能会出现版本问题------其中比较麻烦的是--在app.quit()后，仍旧存在excel进程，如果这样？怎么解决？

作者：zhengkuo 2003-12-2 10:51:50)

请教高手，能否用vb控制excel做成dll，在arx中进行调用，因为毕竟vb与excel亲切

作者：unionsoft 2004-1-30 11:06:58)

以下是引用zhengkuo在2003-12-2 10:50:00的发言：
如果，程序既要安装在2000的计算机上，也可能安装在XP的机子上，有的用户还用97，（指的都是office）,可能会出现版本问题------其中比较麻烦的是--在app.quit()后，仍旧存在excel进程，如果这样？怎么解决？

兼容性问题：

        office2002-office97是向下兼容的，只要你不使用office2002中的新特性，程序在这些office版本中都好用

Excel程序不能退出的问题：
      1 . 不要使用#import导入类型库，如：#import "c://excel//excel.olb"
      2 . 程序结束时，确保所有IDispatch都释放了，如：app.ReleaseDispatch (); 

作者：easypower 2004-5-14 10:00:39)

還是不明白如何得到excel.cpp和excel.h這兩個文件,請指教

作者：jack1975 2004-6-24 16:43:03)

有版本问题时，可以加一个判断：1、首先通过  exlApp得到版本，比如9.0，10.0，11.0,10.0以后的版本注意open函数的参数为15个，即最后在增加两个covOptional，即可，另外，补充一下，判断当前是否有excel应用程序在运行，使之更舒服一些：

::CLSIDFromProgID(L"Excel.Application",&clsid); // from registry
 if(::GetActiveObject(clsid, NULL,&pUnk) == S_OK)

{
  VERIFY(pUnk->QueryInterface(IID_IDispatch,(void**) &pDisp) == S_OK);
  ExcelApp.AttachDispatch(pDisp);
  pUnk->Release();
  } 
else

 {
  if(!ExcelApp.CreateDispatch("Excel.Application")) {
   AfxMessageBox("Excel program not found");
   return 0;
  }

 }

 

作者：unionsoft 2004-12-13 12:36:09)

以下是引用zhmary在2004-12-10 11:30:10的发言：
请问各位高手，从哪里得 οnclick=Cswf() height=22 alt=Flash图片 src="skins/default/ubb/swf.gif" width=23 border=0>到Excel.cp...

Excel.cpp和Excel.h是从Excel的类型库中获取的，类型库类似C++中的头文件，包括接口，方法，属性的定义；类型库在Excel的安装目录可以找到，Excel的版本不同，这个类型库也不一样，如下所示：

Excel 95 and prior   :   xl5en32.olb
 Excel 97             :   excel8.olb
 Excel 2000           :   excel9.olb
 Excel 2002           :   excel.exe

具体的获取方法：

1 . 使用VC++新建立一个基于MFC的EXE工程

2 . 点击菜单"查看"-->"建立类向导"，此时会弹全"MFC ClassWizard"对话框

3 . 点击"Add Class"-->"From a type libray"，指定Excel的type libray，在Excel的安装目录下可以找到，如:"D://Microsoft Office//Office//EXCEL9.OLB"

4 . 在弹出的对话框中选择所需的类，按"确定"，Excel.cpp和Excel.h就产生了。

作者：yfy2003 2004-12-23 17:41:57)

lpDisp = books.Open("C:1.xls",      
   covOptional, covOptional, covOptional, covOptional, covOptional,
   covOptional, covOptional, covOptional, covOptional, covOptional,
   covOptional, covOptional );    

编译显示错误：

error C2660: 'Open' : function does not take 13 parameters

作者：xux4618 2005-4-6 8:48:51)

请问怎样才能增加一个工作表？

作者：梦幻神话 2005-4-6 15:50:40)

 Workbooks.AttachDispatch(ExcelApp.GetWorkbooks());
 Workbook.AttachDispatch(Workbooks.Open(FileName,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional));
 Worksheets.AttachDispatch(Workbook.GetWorksheets());
 Worksheet.AttachDispatch(Worksheets.GetItem((COleVariant((long)1))));

 Range.AttachDispatch(Worksheet.GetCells());
 iCell.AttachDispatch(Range.GetItem(COleVariant((long)2),COleVariant((long)2)).pdispVal);

 vResult = iCell.GetMergeCells();

 if(vResult.boolVal == -1)
 {
  AfxMessageBox("Yes");
  
  Range.AttachDispatch(iCell.GetRows());
  long row_num = Range.GetCount();

  Range.AttachDispatch(iCell.GetColumns());
  long col_num = Range.GetCount();

  CString str;
  str.Format("%d×%d",row_num,col_num);
  AfxMessageBox(str);
 }

请教：为什么str得到的结果都是1×1？（求合并单元格的原始行数和列数）。

谢谢。。。。。。。。。。

作者：unionsoft 2005-4-9 10:13:25)

首先你的Cells(2,2)是否处于合并单元格中

其次，你缺少了个关键语句：iCell.GetMergeArea())，你可以参考下面的语句

Range UnionRange;

UnionRange.AttachDispatch(iCell.GetMergeArea());  //先要获取合并区域

range.AttachDispatch (UnionRange.GetRows ());

long iRowNum = range.GetCount();             //合并单元格行数

range.AttachDispatch (UnionRange.GetColumns ());

long iColNum = Range.GetCount();            //合并单元格列数

    

我就想在excel里 实现,第一行为标题(居中)
第二行为时间(左对齐),下面为9列数据.最后一行为签名(左对齐)
怎么办?   回复   更多评论
  

#  re: [转]在VC中彻底玩转Excel

2006-11-26 17:24 | 好学者

修改字体颜色的那段漏了一句，应为：
//*****
//设置第一个单元格字体颜色:红色
Font font;
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
font.AttachDispatch (range.GetFont ());
font.SetColor(COleVariant((long)0xFF0000));