在Visual C++ 中调用Excel 2000

在Visual   C++   中调用Excel   2000   
    

    
  --------------------------------------------------------------------------------  
     
   
  在开发软件时，经常要将数据输出到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();    
  }    
  添加完以上程序后，可运行看结果。