最近在做个数据库程序,因为有些数据用户要求导出到Excel文件显示(需要报给其他单位)。所以查阅了一下相关的VC的Excel编程操作,总结一下吧:(所有资料来源于网络)
利用VC操作Excel的方法至少有两种
1 .利用ODBC把Excel文件当成数据库文件,来进行读、写、修改等操作,网上有人编写了CSpreadSheet类,提供支持。
2. 利用Automation(OLD Automation)方法。将Excel当成组件服务器,利用VBA。又分为基于MFC的和SDK两种。
主要研究了一下第二种基于MFC的OLE编程方法。
一、Excel的对象模型
在对Excel编程之前首先要了解微软Excel 对象(Object)模型。(Parent-Child关系)
图 1 Office 应用程序对象模型(Excel)From msdn
其中:
Application:代表应用程序本身。即Excel应用程序
Workbooks:是Workbook 的集合,代表了工作薄。
Worksheets:是Worksheet的集合,是Workbook的子对象。
Range:是Worksheet的子对象,可以理解为Sheet中一定范围的单元格。
Shapes:是Worksheet的子对象,用于存储图片等信息的单元格。
二、VC操作Excel的初始化过程
1、导入Excel库文件。
首先打开Class Wizard,点击"Add class"按钮下的"From a type Library"导入 office安装目录下的""(适用于 Excel2003),然后选择需要用的一些类,比如_Application, _Workbook, Workbooks, Worksheets,_Wroksheet,Range,Shapes等。点击确定后,系统会在你的程序目录下生成和两个文件,在要使用这些导入的类时加入#include ""即可。
2、初始化Application。
首先, 初始化COM组件
然后,创建Excel 服务器(启动Excel)
定义app的全局或成员变量 _Application app;
3、设置Excel的状态
三、VC对Excel的操作
定义变量
1、打开已有的Excel文件
2.、 新建一个.xls文件,并写入数据
COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
// Get the Workbooks collection so that you can add a new workbook
(()); // 得到Workbooks
book = (covOptional); // 得到Workbook
// Get the Worksheets collection so that you can get the IDispatch for the first Worksheet
sheets = (); // 得到Worksheets
sheet = (COleVariant((short)1)); // 得到Worksheet
// 分别向每个单元格添加数据
// Excel2000 用函数SetValue()即可, Excel2003用函数SetValue2()
//
range = (COleVariant("A1"), covOptional); // 获取A1 Range
range.SetValue2( COleVariant("Date")); // 添加数据
range = (COleVariant("B1"), covOptional); // 获取B1 Range
range.SetValue2(COleVariant("Order")); // 添加数据
range = (COleVariant("C1"), covOptional); // 获取C1 Range
range.SetValue2(COleVariant("Amount")); // 添加数据
range = (COleVariant("D1"), covOptional); // 获取D1 Range
range.SetValue2(COleVariant("Tax")); // 添加数据
// 向单元格中添加公式
range = (COleVariant("D2"), covOptional); // 获得D2 Range
range = (COleVariant((long)NUMROWS), COleVariant((long)1)); // 重新设置D2的大小
(COleVariant("=C2*0.07")); // 给D2:D21设置公式
// 设置单元格的格式
range = (COleVariant("A1"), COleVariant("D1")); // 获得A1:D1的Range
oFont = (); // 获得Range的字体
(COleVariant((short)TRUE)); // 设置是否粗体
(COleVariant((long)RGB(255, 0, 0))); // 设置字体颜色
(COleVariant("黑体")); // 设置字体类型
range = (); // 获得全部的单元格
(); // 自动适合尺寸
3、 合并单元格
// 思路:1.先获取A1:C1的Range范围,然后重新定义此范围,最后合并
// 2.直接获得A1:C2的Range范围,直接合并。结果和第一种方法一样
Range unionRange;
unionRange = (COleVariant("A1"), COleVariant("C1"));
vResult = ();
unionRange = (COleVariant((long)2), COleVariant((long)3));
(COleVariant((long)0)); //合并单元格
(COleVariant((short)30)); //设置单元格的高度
(COleVariant((long)-4108));// 水平居中对齐
4、向单元格中插入图片(支持BMP、JPG格式,其他没试)
Shapes shapes = (); // 从Sheet对象上获得一个Shapes
range = (COleVariant("B16"),COleVariant("J22")); // 获得Range对象,用来插入图片
rgMyRge1 = range;
("D://" , false , true ,
(float)range .GetLeft().dblVal, (float)range .GetTop().dblVal, // 从本地添加一个图片
(float)range .GetWidth().dblVal, (float)range .GetHeight().dblVal);
ShapeRange sRange = (_variant_t(long(1)));
(float(30));
(float(30));
5、将已建的.xls文件另存为
COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
(COleVariant("D://"),covOptional,covOptional,
covOptional,covOptional,covOptional,0,
covOptional,covOptional,covOptional,covOptional,covOptional);
6、关闭Excel服务
COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
(TRUE); // 将Workbook的保存状态设置为已保存,即不让系统提示是否人工保存
(); // 释放Range对象
(); // 释放Sheet对象
(); // 释放Sheets对象
(); // 释放Workbook对象
(); // 释放Workbooks对象
(covOptional, covOptional,covOptional);// 关闭Workbook对象
(); // 关闭Workbooks对象
(); // 退出_Application
(); // 释放_Application
先写这么多吧,以后再添加!