VC实现对Excel表格的操作

转载请注明原文网址：

http://www.cnblogs.com/xianyunhe/archive/2011/09/25/2190485.html

通过VC实现对Excel表格的操作的方法有多种，如：通过ODBC数据库实现，通过解析Excel表格文件，通过OLE/COM的实现。本文主要研究通过OLE/COM实现对Excel表格的操作。

 

本文源码的应用环境说明：

Windows XP SP3

Microsoft Visual Studio 2010

Microsoft Office Excel 2007

 

1、添加OLE/COM支持。

首先，应用程序必须添加对OLE/COM的支持，才能导入OLE/COM组件。

本文使用的是MFC对话框程序，在创建工程的向导中选中Automation选项即可为程序自动添加相应的头文件和OLE库初始化代码。

通过查看源代码，可以知道在stdafx.h的头文件中，添加了OLE/COM很多类所需添加的头文件。

#include <afxdisp.h>        // 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++类对接口的封装。

 

本文所导入的接口对应的类和头文件的说明如下所示：

 

Excel接口	导入类	头文件	说明
_Application	CApplicaton	Application.h	Excel应用程序。
Workbooks	CWorkbooks	Workbooks.h	工作簿的容器，里面包括了Excel应用程序打开的所有工作簿。
_Workbook	CWorkbook	Workbook.h	单个工作簿。
Worksheets	CWorksheets	Worksheets.h	单个工作簿中的Sheet表格的容器，包括该工作簿中的所有Sheet。
_Worksheet	CWorksheet	Worksheet.h	单个Sheet表格。
Range	CRange	Range.h	一定数量的单元格，可对单元格进行单个或多个单元格进行操作。

 

3、导入Excel的整个类型库

接口对应类只是对接口的属性和方法进行了封装，而Excel中的数据类型，如枚举类型却并为并不能使用，因此，为了更方便的操作Excel，还需要导入Excel的数据类型。

通过查看导入接口对应的头文件可以发现，在所有导入接口的头文件中，都会有这么行：

#import "D:\\Program Files\\Microsoft Office\\Office12\\EXCEL.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 Files\\Common Files\\Microsoft Shared\\OFFICE12\\MSO.DLL" \

rename("RGB", "MSORGB") \

rename("DocumentProperties", "MSODocumentProperties")

using namespace Office;

 

/*导入VB的类型库*/

#import "C:\\Program Files\\Common Files\\Microsoft Shared\\VBA\\VBA6\\VBE6EXT.OLB"

using namespace VBIDE;

 

/*导入Excel的类型库*/

#import "D:\\Program Files\\Microsoft Office\\Office12\\EXCEL.EXE" \

rename("DialogBox", "ExcelDialogBox") \

rename("RGB", "ExcelRGB") \

rename("CopyFile", "ExcelCopyFile") \

rename("ReplaceText", "ExcelReplaceText") \

no_auto_exclude

Using 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中实现二维数据的方法可参考

http://www.cnblogs.com/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、示例源代码

主要代码如下：

[cpp]  view plain copy print ?

1. View Code   
2.   
3.     m_ListCtrl.SetExtendedStyle(LVS_REPORT | LVS_EX_FULLROWSELECT);  
4.   
5.     CApplication ExcelApp;  
6.     CWorkbooks books;  
7.     CWorkbook book;  
8.     CWorksheets sheets;  
9.     CWorksheet sheet;  
10.     CRange range;  
11.     LPDISPATCH lpDisp = NULL;  
12.   
13.     //创建Excel 服务器(启动Excel)  
14.     if(!ExcelApp.CreateDispatch(_T("Excel.Application"),NULL))  
15.     {  
16.         AfxMessageBox(_T("启动Excel服务器失败!"));  
17.         return -1;  
18.     }  
19.   
20.     /*判断当前Excel的版本*/  
21.     CString strExcelVersion = ExcelApp.get_Version();  
22.     int iStart = 0;  
23.     strExcelVersion = strExcelVersion.Tokenize(_T("."), iStart);  
24.     if (_T("11") == strExcelVersion)  
25.     {  
26.         AfxMessageBox(_T("当前Excel的版本是2003。"));  
27.     }  
28.     else if (_T("12") == strExcelVersion)  
29.     {  
30.         AfxMessageBox(_T("当前Excel的版本是2007。"));  
31.     }  
32.     else  
33.     {  
34.         AfxMessageBox(_T("当前Excel的版本是其他版本。"));  
35.     }  
36.   
37.     ExcelApp.put_Visible(TRUE);  
38.     ExcelApp.put_UserControl(FALSE);  
39.   
40.     /*得到工作簿容器*/  
41.     books.AttachDispatch(ExcelApp.get_Workbooks());  
42.   
43.     /*打开一个工作簿，如不存在，则新增一个工作簿*/  
44.     CString strBookPath = _T("C:\\tmp.xls");  
45.     try  
46.     {  
47.         /*打开一个工作簿*/  
48.         lpDisp = books.Open(strBookPath,   
49.             vtMissing, vtMissing, vtMissing, vtMissing, vtMissing,  
50.             vtMissing, vtMissing, vtMissing, vtMissing, vtMissing,   
51.             vtMissing, vtMissing, vtMissing, vtMissing);  
52.         book.AttachDispatch(lpDisp);  
53.     }  
54.     catch(...)  
55.     {  
56.         /*增加一个新的工作簿*/  
57.         lpDisp = books.Add(vtMissing);  
58.         book.AttachDispatch(lpDisp);  
59.     }  
60.       
61.   
62.     /*得到工作簿中的Sheet的容器*/  
63.     sheets.AttachDispatch(book.get_Sheets());  
64.   
65.     /*打开一个Sheet，如不存在，就新增一个Sheet*/  
66.     CString strSheetName = _T("NewSheet");  
67.     try  
68.     {  
69.         /*打开一个已有的Sheet*/  
70.         lpDisp = sheets.get_Item(_variant_t(strSheetName));  
71.         sheet.AttachDispatch(lpDisp);  
72.     }  
73.     catch(...)  
74.     {  
75.         /*创建一个新的Sheet*/  
76.         lpDisp = sheets.Add(vtMissing, vtMissing, _variant_t((long)1), vtMissing);  
77.         sheet.AttachDispatch(lpDisp);  
78.         sheet.put_Name(strSheetName);  
79.     }  
80.   
81.     system("pause");  
82.   
83.     /*向Sheet中写入多个单元格,规模为10*10 */  
84.     lpDisp = sheet.get_Range(_variant_t("A1"), _variant_t("J10"));  
85.     range.AttachDispatch(lpDisp);  
86.   
87.     VARTYPE vt = VT_I4; /*数组元素的类型，long*/  
88.     SAFEARRAYBOUND sabWrite[2]; /*用于定义数组的维数和下标的起始值*/  
89.     sabWrite[0].cElements = 10;  
90.     sabWrite[0].lLbound = 0;  
91.     sabWrite[1].cElements = 10;  
92.     sabWrite[1].lLbound = 0;  
93.   
94.     COleSafeArray olesaWrite;  
95.     olesaWrite.Create(vt, sizeof(sabWrite)/sizeof(SAFEARRAYBOUND), sabWrite);  
96.   
97.     /*通过指向数组的指针来对二维数组的元素进行间接赋值*/  
98.     long (*pArray)[2] = NULL;  
99.     olesaWrite.AccessData((void **)&pArray);  
100.     memset(pArray, 0, sabWrite[0].cElements * sabWrite[1].cElements * sizeof(long));  
101.   
102.     /*释放指向数组的指针*/  
103.     olesaWrite.UnaccessData();  
104.     pArray = NULL;  
105.   
106.     /*对二维数组的元素进行逐个赋值*/  
107.     long index[2] = {0, 0};  
108.     long lFirstLBound = 0;  
109.     long lFirstUBound = 0;  
110.     long lSecondLBound = 0;  
111.     long lSecondUBound = 0;  
112.     olesaWrite.GetLBound(1, &lFirstLBound);  
113.     olesaWrite.GetUBound(1, &lFirstUBound);  
114.     olesaWrite.GetLBound(2, &lSecondLBound);  
115.     olesaWrite.GetUBound(2, &lSecondUBound);  
116.     for (long i = lFirstLBound; i <= lFirstUBound; i++)  
117.     {  
118.         index[0] = i;  
119.         for (long j = lSecondLBound; j <= lSecondUBound; j++)  
120.         {  
121.             index[1] = j;  
122.             long lElement = i * sabWrite[1].cElements + j;   
123.             olesaWrite.PutElement(index, &lElement);  
124.         }  
125.     }  
126.   
127.     /*把ColesaWritefeArray变量转换为VARIANT,并写入到Excel表格中*/  
128.     VARIANT varWrite = (VARIANT)olesaWrite;  
129.     range.put_Value2(varWrite);  
130.   
131.     system("pause");  
132.   
133.     /*根据文件的后缀名选择保存文件的格式*/  
134.      CString strSaveAsName = _T("C:\\new.xlsx");  
135.     CString strSuffix = strSaveAsName.Mid(strSaveAsName.ReverseFind(_T('.')));  
136.     XlFileFormat NewFileFormat = xlOpenXMLWorkbook;  
137.     if (0 == strSuffix.CompareNoCase(_T(".xls")))  
138.     {  
139.         NewFileFormat = xlExcel8;  
140.     }  
141.     book.SaveAs(_variant_t(strSaveAsName), _variant_t((long)NewFileFormat), vtMissing, vtMissing, vtMissing,   
142.         vtMissing, 0, vtMissing, vtMissing, vtMissing,   
143.         vtMissing, vtMissing);  
144.   
145.     system("pause");  
146.   
147.     /*读取Excel表中的多个单元格的值，在listctrl中显示*/  
148.     VARIANT varRead = range.get_Value2();  
149.     COleSafeArray olesaRead(varRead);  
150.   
151.     VARIANT varItem;  
152.     CString strItem;  
153.     lFirstLBound = 0;  
154.     lFirstUBound = 0;  
155.     lSecondLBound = 0;  
156.     lSecondUBound = 0;  
157.     olesaRead.GetLBound(1, &lFirstLBound);  
158.     olesaRead.GetUBound(1, &lFirstUBound);  
159.     olesaRead.GetLBound(2, &lSecondLBound);  
160.     olesaRead.GetUBound(2, &lSecondUBound);  
161.     memset(index, 0, 2 * sizeof(long));  
162.     m_ListCtrl.InsertColumn(0, _T(""), 0, 100);  
163.     for (long j = lSecondLBound; j<= lSecondUBound; j++)  
164.     {  
165.         CString strColName = _T("");  
166.         strColName.Format(_T("%d"), j);  
167.         m_ListCtrl.InsertColumn(j, strColName, 0, 100);  
168.     }  
169.     for (long i = lFirstLBound; i <= lFirstUBound; i++)  
170.     {  
171.         CString strRowName = _T("");  
172.         strRowName.Format(_T("%d"), i);  
173.         m_ListCtrl.InsertItem(i-1, strRowName);  
174.   
175.         index[0] = i;  
176.         for (long j = lSecondLBound; j <= lSecondUBound; j++)  
177.         {  
178.             index[1] = j;  
179.             olesaRead.GetElement(index, &varItem);  
180.   
181.             switch (varItem.vt)  
182.             {  
183.             case VT_R8:  
184.                 {  
185.                     strItem.Format(_T("%d"), (int)varItem.dblVal);  
186.                 }  
187.   
188.             case VT_BSTR:  
189.                 {  
190.                     strItem = varItem.bstrVal;  
191.                 }  
192.   
193.             case VT_I4:  
194.                 {  
195.                     strItem.Format(_T("%ld"), (int)varItem.lVal);  
196.                 }  
197.   
198.             default:  
199.                 {  
200.   
201.                 }  
202.             }  
203.   
204.             m_ListCtrl.SetItemText(i-1, j, strItem);  
205.         }  
206.     }  
207.   
208.   
209.   
210.     /*释放资源*/  
211.     sheet.ReleaseDispatch();  
212.     sheets.ReleaseDispatch();  
213.     book.ReleaseDispatch();  
214.     books.ReleaseDispatch();  
215.     ExcelApp.Quit();  
216.     ExcelApp.ReleaseDispatch();  

示例源代码的工程文件的下载链接如下：

http://files.cnblogs.com/xianyunhe/ReadWriteExcel.rar

 

参考资料

（1）http://www.cnblogs.com/xianyunhe/archive/2011/09/13/2174703.html

（2）http://hfp0601.blog.163.com/blog/static/228483522011031104718762/

（3）http://www.cppblog.com/sleepwom/archive/2009/10/03/97804.html

（4）http://www.rondebruin.nl/saveas.htm