VC读取EXCEL文件

VC读取 EXCEL文件[ 2005-9-16 11:16:00 | By: 阿木 ] 在 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文件的头部，＃i nclude "ExcelTestDlg.h"语句之下，增加 ： ＃i nclude "comdef.h" ＃i nclude "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(); } 添加完以上程序后，可运行看结果。