VC操作EXCEL表格附带两个小例子.docVIP

C+读取Excel的XLS文件的方法有很多，但是也许就是因为方法太多，大家在选择的时候会很疑惑。由于前两天要做导表工具，比较了常用的方法，总结一下写个短文，1. OLE的方式这个大约是最常用的方式，这个方式其实启动了一个EXCEL的进程在背后读写EXCEL文件，这个方式的最大好处是什么事情都能做。包括设置EXCEL的格式，增加删除Sheet，读写单元格，等等。功能几乎是最全的，而且使用起来也不是特别的难。其基本方法都是使用导出的.h文件进行OLE操作，但是由于OLE的接口说明文档不多，想非常完美的使用她们也不是太容易，好在例子也很多。网上普遍认为OLE速度慢，EXCEL的OLE读写方式也基本一样。但是读取速度可以改进，如果在读取的加载整个Sheet的Range的全部数据，而不是一个个单元格读取，那么速度还是相对不错。想想原理也很简单，整体读取减少了OLE的交互次数。OLE的写入方式一般只能几个进行比较方便，所以速度可能要快很多。我自己的亲身体会是，一个EXCEL文件，100多列的字段，如果采用一个个单元格的读取方式，1s大约3条左右的记录，如果整体读取，速度可以提高几十倍。OLE读写EXCEL方式功能很强大，读取速度还可以，但写入速度不高，当然这个方式不可能移植的，而且你必须安装了EXCEL。2.Basic EXCEL 方式这是CodeProject上的一个推荐开源工程了，/KB/office/BasicExcel.aspx作者是基于EXCEL的文件格式进行的处理。但是为什么叫Basic EXCEL呢。他不支持很多东西，公式，文件格式，表格合并等（有人说中文支持也不好），所以可以认为他只支持最基本的EXCEL表格，我自己的尝试是如果这个EXCEL文件有其他元素（公式，格式等），使用Basic EXCEL读取会失败。OLE读写EXCEL方式功能比较弱，由于是直接根据文件格式操作，读写速度都不错，你也不需要按照EXCEL，另外这个方式是可以移植的，但是有一些成本，其代码比较晦涩难懂，而且没有注释，另外即使在Windows平台上，告警也很多。3.Sourceforge 上的几个EXCEL库。Sourceforge 上有几个开源的的EXCEL库，但是完善的不多，有的是为了PHP读写EXCEL准备的，包括libXLS，XLSlib，SmartEXCEL等。我下载了几个实验了一下，在Widonws都没有编译成功。也罢了。4.ODBC的方式这个亲身没有尝试过，但是按照原理，应该只能读写。速度吗，ODBC的速度本来就是出名的慢了。/document/viewdoc/?id=4215.ADO的方式ADO的方式听说应该就是使用OLEDB的方式。和OLE的方式应该没有本质区别。我看了看例子也和OLE很像6.LibXL LibXL 是一个收费的EXCEL的库。/按照他的说明，他可以不依赖EXCEL读取XLS文件。包括设置格式等。看例子操作应该很简单。但是是否可以移植到Linux平台，我估计难度也不小。呵呵。由于要收费，没有法子测试了。7.网上一些号称不用OLE读取EXCEL例子初步看了一下，这个应该是网上探索EXCEL格式文档的例子。可以实际操作的方式不强。一、直接通过ODBC读、写Excel表格文件首先，我们要明白的是，VC是通过ODBC来访问Excel表格的，也就是说，VC将Excel表格，当作数据库来处理。当然了，也可以通过读以tab键隔开的文件来处理这样的文件，但是，我还是更加愿意用读取数据库的方式来访问Excel表格。第二，既然是数据库，那么，就需要建立一个与该库对应的dsn，这个，而且，在建立dsn之前，首先要确定，已经安装了Excel的驱动。第三，要访问数据库中的表格，就要先打开该表格，如此，就需要一个与之对应的RecordSet想要通过ODBC直接读、写Excel表格文件，首先，应确保ODBC中已安装有Excel表格文件的驱动MICROSOFTEXCELDRIVER(*.XLS)。然后，可根据下面步骤进行：1.在StdAfx.h文件中加入：#include#include2.通过ODBC直接创建Excel文件(暂定文件名：Demo.xls)/创建并写入Excel文件voidCRWExcel:WriteToExcel()CDatabasedatabase;CStringsDriver=MICROSOFTEXCELDRIVER(*.XLS);/Excel安装驱动CStringsExcelFile=c:demo.xls;/要建立的Excel文件CStringsSql;TRY/创建进行存取的字符串sSql.Format(DRIVER=%s;DSN=;FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=%s;DBQ=%s,sDriver,sExcelFile,sExcelFile);/创建数据库(既Excel表格文件)if(database.OpenEx(sSql,CDatabase:noOdbcDialog)/创建表结构(姓名、年龄)sSql=CREATETABLEdemo(NameTEXT,AgeNUMBER);database.ExecuteSQL(sSql);/插入数值sSql=INSERTINTOdemo(Name,Age)VALUES(徐景周,26);database.ExecuteSQL(sSql);sSql=INSERTINTOdemo(Name,Age)VALUES(徐志慧,22);database.ExecuteSQL(sSql);sSql=INSERTINTOdemo(Name,Age)VALUES(郭徽,27);database.ExecuteSQL(sSql); /sSql = LINSERT INTO Grade (序号,射杀方,被射杀方,时间) VALUES ( + mStr0 + L, + mStr1 +L, + mStr2 +L, + mStr3 +L); mStr0为字符串类型/关闭数据库database.Close();CATCH_ALL(e)TRACE1(Excel驱动没有安装:%s,sDriver);END_CATCH_ALL;3.通过ODBC直接读取Excel文件(暂定文件名：Demo.xls)/读取Excel文件voidCRWExcel:ReadFromExcel()CDatabasedatabase;CStringsSql;CStringsItem1,sItem2;CStringsDriver;CStringsDsn;CStringsFile=Demo.xls;/将被读取的Excel文件名/检索是否安装有Excel驱动MicrosoftExcelDriver(*.xls)sDriver=GetExcelDriver();if(sDriver.IsEmpty()/没有发现Excel驱动AfxMessageBox(没有安装Excel驱动!);return;/创建进行存取的字符串sDsn.Format(ODBC;DRIVER=%s;DSN=;DBQ=%s,sDriver,sFile);TRY/打开数据库(既Excel文件)database.Open(NULL,false,false,sDsn);CRecordsetrecset(&database);/设置读取的查询语句.注意此处表名的写法，excel里的表默认为系统表，所以访问表时表明应为表明$sSql=SELECTName,AgeFROMdemoORDERBYName;/执行查询语句recset.Open(CRecordset:forwardOnly,sSql,CRecordset:readOnly);/获取查询结果while(!recset.IsEOF()/读取Excel内部数值recset.GetFieldValue(Name,sItem1);recset.GetFieldValue(Age,sItem2);/移到下一行recset.MoveNext();/关闭数据库database.Close();CATCH(CDBException,e)/数据库操作产生异常时.AfxMessageBox(数据库错误:+e-m_strError);END_CATCH; 4. 获取ODBC中Excel驱动函数CStringCRWExcel:GetExcelDriver()charszBuf2001;WORDcbBufMax=2000;WORDcbBufOut;char*pszBuf=szBuf;CStringsDriver;/获取已安装驱动的名称(涵数在odbcinst.h里)if(!SQLGetInstalledDrivers(szBuf,cbBufMax,&cbBufOut)return;/检索已安装的驱动是否有Excel.doif(strstr(pszBuf,Excel)!=0)/发现!sDriver=CString(pszBuf);break;pszBuf=strchr(pszBuf,0)+1;while(pszBuf1!=0);returnsDriver;二、通过OLE/COM实现对Excel表格的操作1、添加OLE/COM支持。首先，应用程序必须添加对OLE/COM的支持，才能导入OLE/COM组件。本文使用的是MFC对话框程序，在创建工程的向导中选中Automation选项即可为程序自动添加相应的头文件和OLE库初始化代码。通过查看源代码，可以知道在stdafx.h的头文件中，添加了OLE/COM很多类所需添加的头文件。#include / MFC 自动化类同时，在应用程序类的InitInstance函数中，添加了OLE/COM的初始化代码，如下所示：/ 初始化 OLE 库if (!AfxOleInit()AfxMessageBox(IDP_OLE_INIT_FAILED);return FALSE;2、导入并封装Excel中的接口Excel作为OLE/COM库插件，定义好了各类交互的接口，这些接口是跨语言的接口。VC可以通过导入这些接口，并通过接口来对Excel的操作。由于本文只关心对Excel表格中的数据的读取，主要关注几个_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range等几个接口。Excel的各类接口的属性、方法可以通过MSDN的Office Development进行查询。VS2010导入OLE/COM组件的接口的步骤为：Project-Class Wizard-Add Class-MFC Class From TypeLib，先选择要导入的组件所在的路径，即Excel.exe所在的路径，然后再选择要导入的Excel类型库中的接口。在完成接口导入后，VS2010将自动为导入的接口创建相应的实现类，用于对接口属性和方法的实现。由于标准的C+没有属性访问器，只能添加一个两个存取函数来实现对属性的访问，通过在属性名称前加上get_和put_前缀分别实现对属性的读写操作。即，由VC自动完成C+类对接口的封装。本文所导入的接口对应的类和头文件的说明如下所示3、导入Excel的整个类型库接口对应类只是对接口的属性和方法进行了封装，而Excel中的数据类型，如枚举类型却并为并不能使用，因此，为了更方便的操作Excel，还需要导入Excel的数据类型。通过查看导入接口对应的头文件可以发现，在所有导入接口的头文件中，都会有这么行：#import D:Program FilesMicrosoft OfficeOffice12EXCEL.EXE no_namespace这行代码的作用是导入Excel整个类型库到工程中。由VS2010自动产生的导入代码存在以下几个问题：（1）如果导入了多个接口，每个头文件都会把类型库导入一次，如果引用多个头文件，会导致类型库重复导入。（2）Excel类型库中有些类型会跟MFC类库的某些类型冲突。（3）Excel类型库的某些类型跟其他Office和VB的某些库相关，如果不导入相关库，将导致这些类型无法使用。以上三点问题的解决方法如下：（1）仅在_Application接口对应头文件中导入Excel类型库。（2）对冲突的类型进行重命名。（3）在导入Excel类型库之前，先导入Office和VB的相关库。更改后的导入类型库的代码如下：/*导入Office的类型库*/#import C:Program FilesCommon FilesMicrosoft SharedOFFICE12MSO.DLL rename(RGB, MSORGB) rename(DocumentProperties, MSODocumentProperties)using namespace Office;/*导入VB的类型库*/#import C:Program FilesCommon FilesMicrosoft SharedVBAVBA6VBE6EXT.OLBusing namespace VBIDE;/*导入Excel的类型库*/#import D:Program FilesMicrosoft OfficeOffice12EXCEL.EXE rename(DialogBox, ExcelDialogBox) rename(RGB, ExcelRGB) rename(CopyFile, ExcelCopyFile) rename(ReplaceText, ExcelReplaceText) no_auto_excludeUsing namespace Excel;编译程序后，会在Debug或Release目录下生成三个文件mso.tlh、vbe6ext.tlh和excel.tlh。通过打开文件可知，该三个文件的命名空间分别是Office、VBIDE和Excel。导入了Excel的整个类型库后，就可以使用Excel中的所有类型了。4、操作Excel步骤操作Excel的主要步骤如下：（1）创建一个Excel应用程序。（2）得到Workbook的容器。（3）打开一个Workbook或者创建一个Workbook。（4）得到Workbook中的Worksheet的容器。（5）打开一个Worksheet或者创建一个WorkSheet。（6）通过Range对WorkSheet中的单元格进行读写操作。（7）保存Excel。（8）释放资源。5、批量处理Excel表格VC通过OLE/COM操作Excel，是通过进程间的组件技术。因此，每次读写Excel中的单元格时，都要进行进程间的切换。当数据量大，如果一个单元格一个单元格的读取，主要的时间都花费在进程切换中。因此读取多个单元格，将可有效的提高程序的运行效率。对多个单元格的读写操作可以通过CRange中以下两个成员函数来完成。VARIANT get_Value2();void put_Value2(VARIANT& newValue);其中，输入参数newValue只要输入一个二维数组，即可实现向Excel中一次写入多个单元格的值。其中，VARIANT中实现二维数据的方法可参考/xianyunhe/archive/2011/09/13/2174703.html当然，在对CRange类进行操作之前，要设置CRange类对应的单元格。6、Excel表格的保存（1）如果要保存打开的工作簿，使用CWorkbook类的Save函数就可以保存工作簿，原文件将被覆盖。（2）如果是新创建的工作簿，或者是要另存为，可使用CWorkbook类的SaveAs函数。SaveAs的参数比较多。其中，第1个参数是设置要保存文件的路径；第2个参数是设置文件的格式，可在MSDN中查看枚举类型XlFileFormat来了解Excel的文件格式。经过测试，在本文所用的测试环境中，Excel2003的文件格式是xlExcel8，Excel2007的文件格式是xlExcel4。7、获取当前Excel的版本可以通过CApplication的get_Version函数来获得Excel的版本，其中，Excel2007的主版本号是12，Excel2003的主版本号是11。8、示例源代码主要代码如下：m_ListCtrl.SetExtendedStyle(LVS_REPORT | LVS_EX_FULLROWSELECT); CApplication ExcelApp; CWorkbooks books; CWorkbook book; CWorksheets sheets; CWorksheet sheet; CRange range; LPDISPATCH lpDisp = NULL; /创建Excel 服务器(启动Excel) if(!ExcelApp.CreateDispatch(_T(Excel.Application),NULL) AfxMessageBox(_T(启动Excel服务器失败!); return -1; /*判断当前Excel的版本*/ CString strExcelVersion = ExcelApp.get_Version(); int iStart = 0; strExcelVersion = strExcelVersion.Tokenize(_T(.), iStart); if (_T(11) = strExcelVersion) AfxMessageBox(_T(当前Excel的版本是2003。); else if (_T(12) = strExcelVersion) AfxMessageBox(_T(当前Excel的版本是2007。); else AfxMessageBox(_T(当前Excel的版本是其他版本。); ExcelApp.put_Visible(TRUE); ExcelApp.put_UserControl(FALSE); /*得到工作簿容器*/ books.AttachDispatch(ExcelApp.get_Workbooks(); /*打开一个工作簿，如不存在，则新增一个工作簿*/ CString strBookPath = _T(C:tmp.xls); try /*打开一个工作簿*/ lpDisp = books.Open(strBookPath, vtMissing, vtMissing, vtMissing, vtMissing, vtMissing, vtMissing, vtMissing, vtMissing, vtMissing, vtMissing, vtMissing, vtMissing, vtMissing, vtMissing); book.AttachDispatch(lpDisp); catch(.) /*增加一个新的工作簿*/ lpDisp = books.Add(vtMissing); book.AttachDispatch(lpDisp); /*得到工作簿中的Sheet的容器*/ sheets.AttachDispatch(book.get_Sheets(); /*打开一个Sheet，如不存在，就新增一个Sheet*/ CString strSheetName = _T(NewSheet); try /*打开一个已有的Sheet*/ lpDisp = sheets.get_Item(_variant_t(strSheetName); sheet.AttachDispatch(lpDisp); catch(.)/*创建一个新的Sheet*/lpDisp = sheets.Add(vtMissing, vtMissing, _variant_t(long)1), vtMissing);sheet.AttachDispatch(lpDisp);sheet.put_Name(strSheetName);system(pause);/*向Sheet中写入多个单元格,规模为10*10 */lpDisp = sheet.get_Range(_variant_t(A1), _variant_t(J10);range.AttachDispatch(lpDisp);VARTYPE vt = VT_I4; /*数组元素的类型，long*/SAFEARRAYBOUND sabWrite2; /*用于定义数组的维数和下标的起始值*/sabWrite0.cElements = 10;sabWrite0.lLbound = 0;sabWrite1.cElements = 10;sabWrite1.lLbound = 0;COleSafeArray olesaWrite;olesaWrite.Create(vt, sizeof(sabWrite)/sizeof(SAFEARRAYBOUND), sabWrite);/*通过指向数组的指针来对二维数组的元素进行间接赋值*/long (*pArray)2 = NULL;olesaWrite.AccessData(void *)&pArray);memset(pArray, 0, sabWrite0.cElements * sabWrite1.cElements * sizeof(long);/*释放指向数组的指针*/olesaWrite.UnaccessData();pArray = NULL;/*对二维数组的元素进行逐个赋值*/long index2 = 0, 0;long lFirstLBound = 0;long lFirstUBound = 0;long lSecondLBound = 0;long lSecondUBound = 0;olesaWrite.GetLBound(1, &lFirstLBound);olesaWrite.GetUBound(1, &lFirstUBound);olesaWrite.GetLBound(2, &lSecondLBound);olesaWrite.GetUBound(2, &lSecondUBound);for (long i = lFirstLBound; i = lFirstUBound; i+)index0 = i;for (long j = lSecondLBound; j = lSecondUBound; j+)index1 = j;long lElement = i * sabWrite1.cElements + j; olesaWrite.PutElement(index, &lElement);/*把ColesaWritefeArray变量转换为VARIANT,并写入到Excel表格中*/VARIANT varWrite = (VARIANT)olesaWrite;range.put_Value2(varWrite);system(pause);/*根据文件的后缀名选择保存文件的格式*/CString strSaveAsName = _T(C:new.xlsx);CString strSuffix = strSaveAsName.Mid(strSaveAsName.ReverseFind(_T(.);XlFileFormat NewFileFormat = xlOpenXMLWorkbook;if (0 = strSuffix.CompareNoCase(_T(.xls)NewFileFormat = xlExcel8;book.SaveAs(_variant_t(strSaveAsName), _variant_t(long)NewFileFormat), vtMissing, vtMissing, vtMissing, vtMissing, 0, vtMissing, vtMissing, vtMissing, vtMissing, vtMissing);system(pause);/*读取Excel表中的多个单元格的值，在listctrl中显示*/VARIANT varRead = range.get_Value2();COleSafeA