第1页 / 共9页
第2页 / 共9页
第3页 / 共9页
第4页 / 共9页
第5页 / 共9页
第6页 / 共9页
第7页 / 共9页
第8页 / 共9页
VS2010下利用C++实现对Excel的编程.docx
通过 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
同时，在应用程序类的 InitInstance 函数中，添加了 OLE/COM 的初始化代码，
如下所示：
// 初始化 OLE 库
if (!AfxOleInit())
{
// MFC 自动化类
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、示例源代码
主要代码如下：
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 sabWrite[2]; /*用于定义数组的维数和下标的起始值*/
sabWrite[0].cElements = 10;
sabWrite[0].lLbound = 0;
sabWrite[1].cElements = 10;
sabWrite[1].lLbound = 0;
COleSafeArray olesaWrite;
olesaWrite.Create(vt, sizeof(sabWrite)/sizeof(SAFEARRAYBOUND), sabWrite);
/*通过指向数组的指针来对二维数组的元素进行间接赋值*/
long (*pArray)[2] = NULL;
olesaWrite.AccessData((void **)&pArray);
memset(pArray, 0, sabWrite[0].cElements * sabWrite[1].cElements * sizeof(long));
/*释放指向数组的指针*/
olesaWrite.UnaccessData();
pArray = NULL;
/*对二维数组的元素进行逐个赋值*/
long index[2] = {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++)
{
index[0] = i;
for (long j = lSecondLBound; j <= lSecondUBound; j++)
{
index[1] = j;
long lElement = i * sabWrite[1].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();
COleSafeArray olesaRead(varRead);
VARIANT varItem;
CString strItem;
lFirstLBound = 0;
lFirstUBound = 0;
lSecondLBound = 0;
lSecondUBound = 0;
olesaRead.GetLBound(1, &lFirstLBound);
olesaRead.GetUBound(1, &lFirstUBound);
olesaRead.GetLBound(2, &lSecondLBound);
olesaRead.GetUBound(2, &lSecondUBound);
memset(index, 0, 2 * sizeof(long));
m_ListCtrl.InsertColumn(0, _T(""), 0, 100);
for (long j = lSecondLBound; j<= lSecondUBound; j++)
{
CString strColName = _T("");
strColName.Format(_T("%d"), j);
m_ListCtrl.InsertColumn(j, strColName, 0, 100);
}
for (long i = lFirstLBound; i <= lFirstUBound; i++)
{
CString strRowName = _T("");
strRowName.Format(_T("%d"), i);
m_ListCtrl.InsertItem(i-1, strRowName);
index[0] = i;
for (long j = lSecondLBound; j <= lSecondUBound; j++)
{
index[1] = j;
olesaRead.GetElement(index, &varItem);
switch (varItem.vt)
{
case VT_R8:
{
}
strItem.Format(_T("%d"), (int)varItem.dblVal);
case VT_BSTR:
{
}
strItem = varItem.bstrVal;
case VT_I4:
strItem.Format(_T("%ld"), (int)varItem.lVal);
{
}
default:
{
}
}
m_ListCtrl.SetItemText(i-1, j, strItem);
}
}
相关推荐
2023年江西萍乡中考道德与法治真题及答案.doc
2012年重庆南川中考生物真题及答案.doc
2013年江西师范大学地理学综合及文艺理论基础考研真题.doc
2020年四川甘孜小升初语文真题及答案I卷.doc
2020年注册岩土工程师专业基础考试真题及答案.doc
2023-2024学年福建省厦门市九年级上学期数学月考试题及答案.doc
2021-2022学年辽宁省沈阳市大东区九年级上学期语文期末试题及答案.doc
2022-2023学年北京东城区初三第一学期物理期末试卷及答案.doc
2018上半年江西教师资格初中地理学科知识与教学能力真题及答案.doc
2012年河北国家公务员申论考试真题及答案-省级.doc
2020-2021学年江苏省扬州市江都区邵樊片九年级上学期数学第一次质量检测试题及答案.doc
2022下半年黑龙江教师资格证中学综合素质真题及答案.doc
