VC Excel

[原创]在VC中彻底玩转Excel
    如今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的发言:
请问各位高手,从哪里得onclick=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));

这样改了还是不能用,Font是哪儿来的哦!  回复  更多评论
 
# re: [转]在VC中彻底玩转Excel
2007-10-19 15:11 | 唐特

Font 和 _Application,Workbooks等等这些东西一样, 是打开excel.exe(excel9.olb) 的时候添加的class  回复  更多评论
 
# re: [转]在VC中彻底玩转Excel
2008-01-16 11:19 | HU

请教一个问题,现在出现了OFFICE 2007,在2000中做的程序,在2007下无法启动EXCEL服务,就是CreateDispatch失败。
但是,运行的环境既有2007,也会有老版本的EXCEL,这种情况下,怎么办?怎么让程序更有通用性?谢谢!!!!  回复  更多评论
 
# re: [转]在VC中彻底玩转Excel
2008-01-25 10:55 | 想飞的星期

请问怎么知道我createdispatch出来的excel已经关闭了??我还想每次重用同一个excel进程,怎么办?  回复  更多评论
 
# re: [转]在VC中彻底玩转Excel
2008-03-28 14:56 | lamorak

你好,请教一下,我在做数据导入到excel中的程序,将3个文件的数据导入没有问题,我为了做测试,将这3个文件复制了44次,就是145个文件的数据,总共有6702314行,200M的数据量,转换到75M数据的时候,Excel就不给转了,就弹出Excel中“value,range,GetIDsOfNames”函数出错,Excel大小有限制吗?我这个差不多就是做9×3文件循环数据插入,第10个循环就错了。我每次转一个文件后都加了Sleep(2000),能帮忙解决一下吗?  回复  更多评论


本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/vicozo/archive/2009/04/12/4067804.aspx
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
_Application   ExcelApp;    
  Workbooks   wbsMyBooks;    
  _Workbook   wbMyBook;    
  Worksheets   wssMysheets;    
  _Worksheet   wsMysheet;    
  Range   rgMyRge;    
  //创建Excel   2000服务器(启动Excel)    
   
  if   (!ExcelApp.CreateDispatch("Excel.Application",NULL))    
  {    
  AfxMessageBox("创建Excel服务失败!");    
  return;  
  }    
  //得到路径  
  char   cCurrentDir[255];  
  ::GetCurrentDirectory(255,   cCurrentDir);  
  CString   str   =   cCurrentDir;  
  int   iPos   =   str.ReverseFind('\\');  
  CString   str1   =   str.Left(iPos);  
  CString   strDirectory;  
  strDirectory   =   _tcsdup(str1   +   "\\MyTemplate.xlt");    
  //利用模板文件建立新文档    
  wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);    
  wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t(strDirectory)));    
  //得到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("名称"));    
  rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)2),_variant_t("时间"));  
  rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)3),_variant_t("信息"));  
  rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)4),_variant_t("级别"));  
  rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)5),_variant_t("确认时间"));  
  rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)6),_variant_t("人"));  
  rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)7),_variant_t("啊啊"));  
  rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)8),_variant_t("cc"));  
  rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)9),_variant_t("gh元"));  
  rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)10),_variant_t("h"));  
  rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)11),_variant_t("dsf"));  
   
   
   
  //int   j=m_theListCtrl.GetItemCount();  
  //CString   str;  
  //str=m_theListCtrl.GetItemText(0,1);  
  //MessageBox(str);  
   
   
  for(int   i   =   2;   i   <   m_theListCtrl.GetItemCount()+2;   i++)  
  {  
  rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)1),_variant_t(m_theListCtrl.GetItemText(i-2,0)));  
  rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)2),_variant_t(m_theListCtrl.GetItemText(i-2,1)));  
  rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)3),_variant_t(m_theListCtrl.GetItemText(i-2,2)));  
  rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)4),_variant_t(m_theListCtrl.GetItemText(i-2,3)));  
  rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)5),_variant_t(m_theListCtrl.GetItemText(i-2,4)));  
  rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)6),_variant_t(m_theListCtrl.GetItemText(i-2,5)));  
  rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)7),_variant_t(m_theListCtrl.GetItemText(i-2,6)));  
  rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)8),_variant_t(m_theListCtrl.GetItemText(i-2,7)));  
  rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)9),_variant_t(m_theListCtrl.GetItemText(i-2,8)));  
  rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)10),_variant_t(m_theListCtrl.GetItemText(i-2,9)));  
  rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)11),_variant_t(m_theListCtrl.GetItemText(i-2,10)));  
   
  }  
   
  //得到所有的列    
  rgMyRge.AttachDispatch(wsMysheet.GetColumns(),true);    
   
   
  //得到第一列   //设置列宽    
  rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)1),vtMissing).pdispVal,true);    
  rgMyRge.SetColumnWidth(_variant_t((long)15));    
   
  rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)2),vtMissing).pdispVal,true);    
  rgMyRge.SetColumnWidth(_variant_t((long)15));    
   
  rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)3),vtMissing).pdispVal,true);    
  rgMyRge.SetColumnWidth(_variant_t((long)16));    
   
  rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)4),vtMissing).pdispVal,true);    
  rgMyRge.SetColumnWidth(_variant_t((long)15));    
   
  rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)5),vtMissing).pdispVal,true);    
  rgMyRge.SetColumnWidth(_variant_t((long)15));    
   
  //显示excel表  
  wbMyBook.SetSaved(true);    
  ExcelApp.SetVisible(true);    
  //wbMyBook.PrintPreview(_variant_t(false));    
   
  //释放对象    
  rgMyRge.ReleaseDispatch();    
  wsMysheet.ReleaseDispatch();    
  wssMysheets.ReleaseDispatch();    
  wbMyBook.ReleaseDispatch();    
  wbsMyBooks.ReleaseDispatch();    
  ExcelApp.ReleaseDispatch();   

本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/vicozo/archive/2009/04/12/4067835.aspx
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
SDK程序,没有用MFC。  
  用的是excel2003  
  //   StatisticsGen.cpp   :   Defines   the   entry   point   for   the   console   application.  
  //  
   
  #include   "stdafx.h"  
   
  int   _tmain(int   argc,   _TCHAR*   argv[])  
  {  
  // Dispatch   interface  
  IDispatch *pDispExcel;  
  // Temporary   variable   to   hold   names.  
  unsigned   short *ucPtr;  
  // ClSID   of   excel  
  CLSID clsidExcel;  
  // Return   value  
  HRESULT hr;  
   
   
  // Initialize   OLE   Libraries.  
  OleInitialize(NULL);  
   
   
  // Get   CLSID   for   Excel.Application   from   registry.  
  hr   =   CLSIDFromProgID(L"Excel.Application",   &clsidExcel);  
  if   (   FAILED(hr)   )  
  {  
  MessageBox(NULL,   "Excel   not   registered.",   "Error",   MB_OK);  
  goto   __exit;  
  }  
   
  ///////////////////////////////////////////////////////////////////////////////////////////////////  
  // Start   excel   and   get   its   IDispatch   pointer.  
  hr   =   CoCreateInstance(clsidExcel,   NULL,   CLSCTX_LOCAL_SERVER,   IID_IDispatch,   (void**)&pDispExcel);  
  if   (   FAILED(hr)   )  
  {  
  MessageBox(NULL,   "Couldn't   start   Excel.",   "Error",   MB_OK);  
  goto   __exit;  
  }  
   
  ///////////////////////////////////////////////////////////////////////////////////////////////////  
  // Get   the   'visible'   property's   DISPID.  
  DISPPARAMS dispParamsVisible   =   {   NULL,   NULL,   0,   0};  
  VARIANT parmVisible;  
  DISPID dispidNamed   =   DISPID_PROPERTYPUT;  
  DISPID dispVisible;  
   
  ucPtr   =   L"Visible";  
  pDispExcel->GetIDsOfNames(IID_NULL,   &ucPtr,   1,   LOCALE_USER_DEFAULT,   &dispVisible);  
   
  // Initialize   parameters   to   set   visible   property   to   true.  
  VariantInit(&parmVisible);  
  parmVisible.vt   =   VT_I4;  
  parmVisible.llVal   =   1;  
   
  //   One   argument.  
  dispParamsVisible.cArgs   =   1;  
  dispParamsVisible.rgvarg   =   &parmVisible;  
   
  // Handle   special-case   for   property-puts!  
  dispParamsVisible.cNamedArgs =   1;  
  dispParamsVisible.rgdispidNamedArgs =   &dispidNamed;  
   
  // Set   'visible'   property   to   true.  
  hr   =   pDispExcel->Invoke(dispVisible,   IID_NULL,   LOCALE_SYSTEM_DEFAULT,     DISPATCH_PROPERTYPUT   |   DISPATCH_METHOD,  
  &dispParamsVisible,   NULL,   NULL,   NULL);  
  VariantClear(&parmVisible);  
   
  if(FAILED(hr))    
  {  
  MessageBox(NULL,   "Set   visible!",   "Failed!",   MB_OK);  
  goto   __exit;  
  }  
   
   
  /////////////////////////////////////////////////////////////////////////////////////////////////////  
  OLECHAR*   szGetBooks   =   L"Workbooks";    
  DISPID dispGetWorkbooks;  
  VARIANT   varBooks;  
   
  hr   =   pDispExcel->GetIDsOfNames(IID_NULL,   &szGetBooks,   1,   LOCALE_USER_DEFAULT,   &dispGetWorkbooks);  
  if   (   FAILED(hr)   )  
  goto   __exit;  
   
  DISPPARAMS   dispParamsForGetBooks   =   {   NULL,   NULL,   0,   0};  
  hr   =   pDispExcel->Invoke(dispGetWorkbooks,   IID_NULL,   LOCALE_SYSTEM_DEFAULT,     DISPATCH_PROPERTYGET   |   DISPATCH_METHOD,  
  &dispParamsForGetBooks,   &varBooks,   NULL,   NULL);  
  if   (   FAILED(hr)   )  
  goto   __exit;  
   
   
  ///////////////////////////////////////////////////////////////////////////////////////////////////  
  // Open  
  IDispatch*   pDispBooks;  
  IDispatch*   pDispBook;  
   
  if   (   varBooks.vt   !=   VT_DISPATCH)  
  goto   __exit;  
  else  
  {  
  // Get   workbooks   dispatch   interface  
  pDispBooks   =   varBooks.pdispVal;  
   
  // Open  
  VARIANT   varRetBook;  
  VARIANTARG   varg;  
  varg.vt   =   VT_BSTR;  
  varg.bstrVal   =   _bstr_t("c:\\bool.xls");  
   
  DISPPARAMS   dpOpen=   {   &varg,   NULL,   1,   0   };  
   
  LPOLESTR   lpOpen   =   L"Open";  
  DISPID   dispOpen;  
   
  hr   =   pDispBooks->GetIDsOfNames(IID_NULL,   &lpOpen,   1,   LOCALE_USER_DEFAULT,   &dispOpen);  
  if   (   FAILED(hr)   )  
  goto   __exit;  
   
  hr   =   pDispBooks->Invoke(dispOpen,   IID_NULL,   LOCALE_SYSTEM_DEFAULT,   DISPATCH_PROPERTYGET   |   DISPATCH_METHOD,  
  &dpOpen,   &varRetBook,   NULL,   NULL);  
  if   (   FAILED(hr)   )  
  goto   __exit;  
   
   
  if   (   varRetBook.vt   !=   VT_DISPATCH   )  
  goto   __exit;  
  else  
  pDispBook   =   varRetBook.pdispVal;  
  }  
 

//   worksheets  
  IDispatch*   pDispSheets;  
  if   (   pDispBook   !=   NULL   )  
  {  
  DISPPARAMS   dpSheets   =   {NULL,   NULL,   0,   0};  
  DISPID dispSheets;  
  LPOLESTR   lpSheets   =   L"Worksheets";  
  VARIANT   varRetSheets;  
   
  hr   =   pDispBook->GetIDsOfNames(IID_NULL,   &lpSheets,   1,   LOCALE_USER_DEFAULT,   &dispSheets);  
  if   (   FAILED(hr)   )  
  goto   __exit;  
   
  hr   =   pDispBook->Invoke(dispSheets,   IID_NULL,   LOCALE_SYSTEM_DEFAULT,   DISPATCH_PROPERTYGET   |   DISPATCH_METHOD,  
  &dpSheets,   &varRetSheets,   NULL,   NULL);  
  if   (   FAILED(hr)   )  
  goto   __exit;  
   
   
  if   (   varRetSheets.vt   !=   VT_DISPATCH   )  
  goto   __exit;  
  else  
  pDispSheets   =   varRetSheets.pdispVal;  
  }  
   
  ///////////////////////////////////////////////////////////////////////////////////////////////////  
  // worksheet  
  IDispatch*   pDispSheet;  
  if   (   pDispSheets   !=   NULL   )  
  {  
  VARIANT     varRetSheet;  
   
  VARIANTARG   vargSheet;  
  vargSheet.vt   =   VT_I4;  
  vargSheet.intVal   =   1;  
   
  DISPPARAMS dpSheet   =   {   &vargSheet,   NULL,   1,   0   };  
   
  LPOLESTR   lpSheet   =   L"Item";  
  DISPID dispSheet;  
   
  hr   =   pDispSheets->GetIDsOfNames(IID_NULL,   &lpSheet,   1,   LOCALE_USER_DEFAULT,   &dispSheet);  
  if   (   FAILED(hr)   )  
  goto   __exit;  
   
  hr   =   pDispSheets->Invoke(dispSheet,   IID_NULL,   LOCALE_USER_DEFAULT,   DISPATCH_PROPERTYGET   |   DISPATCH_METHOD,    
  &dpSheet,   &varRetSheet,   NULL,   NULL);  
  if   (   FAILED(hr)   )  
  goto   __exit;  
   
   
  if   (   varRetSheet.vt   !=   VT_DISPATCH   )  
  goto   __exit;  
  else  
  pDispSheet   =   varRetSheet.pdispVal;  
  }  
   
  ///////////////////////////////////////////////////////////////////////////////////////////////////  
  IDispatch*   pDispRange;  
  if   (   pDispSheet   !=   NULL   )  
  {  
  LPOLESTR   lpCells   =   L"Cells";  
  DISPPARAMS   dpCells   =   {   NULL,   NULL,   0,   0   };  
  DISPID   dispCells;  
  VARIANT   varRetRange;  
   
  hr   =   pDispSheet->GetIDsOfNames(IID_NULL,   &lpCells,   1,   LOCALE_USER_DEFAULT,   &dispCells);  
  if   (   FAILED(hr)   )  
  goto   __exit;  
   
  hr   =   pDispSheet->Invoke(dispCells,   IID_NULL,   LOCALE_USER_DEFAULT,     DISPATCH_PROPERTYGET   |   DISPATCH_METHOD,  
  &dpCells,   &varRetRange,   NULL,   NULL);  
  if   (   FAILED(hr)   )  
  goto   __exit;  
   
   
  if   (   varRetRange.vt   !=   VT_DISPATCH   )  
  goto   __exit;  
  else  
  pDispRange   =   varRetRange.pdispVal;  
  }  
   
  ///////////////////////////////////////////////////////////////////////////////////////////////////  
  // put   value   in   Item   property  
  if   (   pDispRange   !=   NULL   )  
  {  
  LPOLESTR   lpRangeItem   =   L"Item";  
  DISPID   dispRangeItem;  
   
  hr   =   pDispRange->GetIDsOfNames(IID_NULL,   &lpRangeItem,   1,   LOCALE_USER_DEFAULT,   &dispRangeItem);  
  if   (   FAILED(hr)   )  
  goto   __exit;  
   
   
  VARIANT*   vargRangeItem   =   new   VARIANT[3];  
   
  for   (   int   i   =   0;   i   <   3;   i   ++   )  
  VariantInit(&vargRangeItem[i]);  
   
  vargRangeItem[0].vt   =   VT_I4;  
  vargRangeItem[0].intVal   =   1;  
  vargRangeItem[1].vt   =   VT_I4;  
  vargRangeItem[1].intVal   =   1;  
  vargRangeItem[2].vt   =   VT_I4;  
  vargRangeItem[2].intVal   =   1;  
   
  DISPPARAMS   dpRangeItem   =   {NULL,   NULL,   0,   0};  
  dpRangeItem.cArgs   =   3;  
  dpRangeItem.rgvarg   =   vargRangeItem;  
  dpRangeItem.cNamedArgs   =   1;  
  DISPID   dispIDRangeItem   =   DISPID_PROPERTYPUT;  
  dpRangeItem.rgdispidNamedArgs   =   &dispIDRangeItem;  
   
  EXCEPINFO   except;  
   
  hr   =   pDispRange->Invoke(dispRangeItem,   IID_NULL,   LOCALE_USER_DEFAULT,   DISPATCH_PROPERTYPUT   |   DISPATCH_METHOD,  
  &dpRangeItem,   NULL,   &except,   NULL);  
   
  delete   []vargRangeItem;  
   
  if   (   FAILED(hr)   )  
  goto   __exit;  
   
  }  
   
  ///////////////////////////////////////////////////////////////////////////////////////////////////  
  // Save  
  if   (   pDispBook   )  
  {  
  LPOLESTR   lpBookSave   =   L"Save";  
  DISPID   dispIDBookSave;  
   
  hr   =   pDispBook->GetIDsOfNames(IID_NULL,   &lpBookSave,   1,   LOCALE_USER_DEFAULT,   &dispIDBookSave);  
  if   (   FAILED(hr)   )  
  goto   __exit;  
   
  DISPPARAMS   dispBookSave   =   {   NULL,   NULL,   0,   0   };  
   
  hr   =   pDispBook->Invoke(dispIDBookSave,   IID_NULL,   LOCALE_USER_DEFAULT,   DISPATCH_METHOD,   &dispBookSave,   NULL,   NULL,   NULL);  
  if   (   FAILED(hr)   )  
  goto   __exit;  
  }  
   
  ///////////////////////////////////////////////////////////////////////////////////////////////  
  // quit  
  if   (   pDispExcel   )  
  {  
  LPOLESTR   lpExcelQuit   =   L"Quit";  
  DISPID   dispIDExcelQuit;  
   
  hr   =   pDispExcel->GetIDsOfNames(IID_NULL,   &lpExcelQuit,   1,   LOCALE_USER_DEFAULT,   &dispIDExcelQuit);  
  if   (   FAILED(hr)   )  
  goto   __exit;  
   
   
  DISPPARAMS   dispExcelQuit   =   {   NULL,   NULL,   0,   0   };  
   
  hr   =   pDispExcel->Invoke(dispIDExcelQuit,   IID_NULL,   LOCALE_USER_DEFAULT,   DISPATCH_METHOD,   &dispExcelQuit,  
  NULL,   NULL,   NULL);  
  if   (   FAILED(hr)   )  
  goto   __exit;  
   
  }  
   
  __exit:  
  if   (   pDispRange   )  
  pDispRange->Release();  
   
  if   (   pDispSheet   )  
  pDispSheet->Release();  
   
  if   (   pDispSheets   )  
  pDispSheets->Release();  
   
  if   (   pDispBook   )  
  pDispBook->Release();  
   
  if   (   pDispBooks   )  
  pDispBooks->Release();  
   
  if   (   pDispExcel   )  
  pDispExcel->Release();  
   
  OleUninitialize();  
   
  return   0;  
  } 


本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/vicozo/archive/2009/04/12/4067838.aspx

posted on 2011-02-15 08:58 wrh 阅读(2156) 评论(0)  编辑 收藏 引用


只有注册用户登录后才能发表评论。
【推荐】超50万行VC++源码: 大型组态工控、电力仿真CAD与GIS源码库
网站导航: 博客园   IT新闻   BlogJava   知识库   博问   管理


导航

<2010年12月>
2829301234
567891011
12131415161718
19202122232425
2627282930311
2345678

统计

常用链接

留言簿(18)

随笔档案

文章档案

收藏夹

搜索

最新评论

阅读排行榜

评论排行榜