转帖：Automation Excel By OLE (vc++)

最新推荐文章于 2024-09-18 19:02:02 发布

buyicn

最新推荐文章于 2024-09-18 19:02:02 发布

阅读量2k

点赞数

分类专栏： C/C++ 文章标签： excel microsoft application 服务器 mfc library

C/C++ 专栏收录该内容

33 篇文章 0 订阅

订阅专栏

描述：使用VC打开EXCEL文件，添加、修改、读取记录，设置单元格属性等.

这几天写了一个相关程序,算点心得吧.

处理Excel中数据,这是方法一.

MSDN References:
Title: HOWTO: Use MFC to Automate Excel & Create/Format a New Workbook
Article ID: Q178749
Title: HOWTO: Create an Automation Project Using MFC and a Typ Library
Article ID: Q179706
SUMMARY
This article shows how to automate Microsoft Excel using the Microsoft Foundation Class (MFC) library.
The article describes a technique for using OLE automation to create/format a Microsoft Excel workbook; it introduces several methods/properties (from the Microsoft Excel type library) for adding data to the worksheet and formatting the worksheet.

从classwizard中add class处from type library,去office的安装目录下引入excel.exe(这是office 2003的选择,其他版本都是用Exceln.olb文件,n是版本),服务器就算引入了,这时会弹出对话框,要求加入一些类,这些类都是一些接口,里面有大量的方法,类的对象表征着excel文件的一个个部分,常用的有这几个 _application,workbooks,_workbook,worksheets,_worksheet,Range,它们分别代表不同的意义._application代表了EXCEL服务器,workbooks表示整个Excel服务器(表现为一个.xls文件)里所有的表,(可以通过" 新建"得到多个表,即MDI程序里的一个视窗一样,所有的视窗就是workbooks), _workbook就是一个表,相当于MDI中的一个视窗, worksheets表示所有的表单,每个表都可能有很多表单(建立一个Excel文件之后,打开,可以看到有sheet1,sheet2等,所有这些 sheetn就组成了worksheets), _worksheet就表示一个表单, range表示元素的集合. 搞清楚上面这几个名词的意思非常重要.

从类型库中引入上述各个类后，可以在excel.h和excel.cpp中看到各个类的声明和定义

// 参数声明
CString sPath; // EXCEL文件的绝对路径
_Application exlapp;
_Workbook wbk;
Workbooks wbks;
_Worksheet wht;
Worksheets whts;
Range range,usedRange;
Interior it; // 用于修改单元格颜色等属性

// 在程序开始或APP初始化的时候初始化COM库
if (CoInitialize(NULL)!=0)
{
AfxMessageBox("初始化COM支持库失败!");
exit(1);
}

// 在程序结束的时候释放COM库
CoUninitialize();

// 创建Excel服务器
if(!exlapp.CreateDispatch("Excel.Application"))
{
     AfxMessageBox("无法启动Excel服务器!");
     return;
}
// exlapp.SetVisible(TRUE);    // 使Excel可见
// exlapp.SetUserControl(TRUE); // 允许其它用户控制Excel,否则Excel将一闪即逝.

// 打开一个EXCEL文件(参数sFile为该文件的绝对路径)
COleVariant avar((long)DISP_E_PARAMNOTFOUND,VT_ERROR);
if(!exlapp.CreateDispatch("Excel.Application",NULL)) //启动服务器
{
AfxMessageBox("无法启动Excel服务器!");
return;
}
sPath = sFile;

wbks.AttachDispatch(exlapp.GetWorkbooks());
wbk.AttachDispatch(wbks.Open(sPath,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar));
whts.AttachDispatch(wbk.GetWorksheets());
wht.AttachDispatch(whts.GetItem(variant_t("sheet1")));

usedRange.AttachDispatch(wht.GetUsedRange());
range.AttachDispatch(usedRange.GetRows());
row = range.GetCount()+1; // 得到当前使用的行数
range.AttachDispatch(wht.GetCells()); // 得到当前Sheet的所有元素

// 添加(修改)第N行第M列的单元格中记录(参数var)
range.AttachDispatch(wht.GetCells());
range.SetItem(_variant_t(long(N)),_variant_t(long(M)),_variant_t(var));

// 读取第N行第M列单元格的记录
range.AttachDispatch(wht.GetCells());
_variant_t var;
var = range.GetItem(_variant_t(long(N)),_variant_t(long(M)));
CString sVal = _bstr_t(var);
double dblVal = (double)var;　//　其他类推

// 修改第N行第M列单元格颜色(参数color)
range.AttachDispatch((range.GetItem (_variant_t(long(N)), _variant(long(M)))).pdispVal);
it = range.GetInterior();
it.SetColor(color);
it.DetachDispatch();
range.AttachDispatch(wht.GetCells());

// 设置单元格字体颜色，大小等属性，需引入Excel类型库的Font类　操作可以参考MSDN上述几个文献
...

// 关闭和退出
COleVariant avar((long)DISP_E_PARAMNOTFOUND,VT_ERROR);
wbk.Save(); // SaveAs()
wbk.Close(_variant_t(true),COleVariant(sPath),avar);
wbks.Close();
exlapp.Quit();

也可以用模板文件创建EXCEL文件,此外,还可以加速读写Excel表格速度,可以参考MSDN那几篇文章或者其他资料

如果只关心数据，不需要对EXCEL文件操作（比如：排版，修改文字属性，单元格属性等），还可以通过数据库连接的方式，请参考相应的文章(Open Database,OLEDB等）

偶的转载备注：

（1）本文转载自：http://hi.baidu.com/onlylzx/blog/item/20ffbf24f5c18537c89559d3.html。

（2）标注为红色的部分的代码，用于修改单元格的背景色（在网上搜罗了很久，终于找到了，谢谢百度的这位朋友^_^）