VC++ 中操作EXCEL总结(转).doc

VC+ 中操作EXCEL总结（转）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 arrays dimensions. long lNumRows; long lNumCols; sa.GetUBound(1, &lNumRows); sa.GetUBound(2, &lNumCols); /Display the elements in the SAFEARRAY. long index2; VARIANT val; int r, c; TRACE(Contents of SafeArrayn); TRACE(=nt); for(c=1;c=lNumCols;c+) TRACE(ttCol %d, c); TRACE(n); for(r=1;r=lNumRows;r+) TRACE(Row %d, r); for(c=1;c=lNumCols;c+) index0=r; index1=c; sa.GetElement(index, &val); switch(val.vt) case VT_R8: TRACE(tt%1.2f, val.dblVal); break; case VT_BSTR: TRACE(tt%s,(CString)val.bstrVal); break; case VT_EMPTY: TRACE(tt); 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 FilesMicrosoft OfficeofficeExcel9.OLB(D:Program FilesMicrosoft 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:exceltestMyTemplate.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_