[转]在VC中彻底玩转Excel

record 专栏收录该内容
3 篇文章 0 订阅

[转]在VC中彻底玩转Excel
[原创]在VC中彻底玩转Excel
如今Excel是越来越重要了,在我们自己开发的程序中不免要和Excel打交道了。利用Automation技术,我们可以在不去了解
数据库的情况下玩转Excel,而且你会发现一切竟如此轻松!
好了,咱们开始吧,我不喜欢用长篇累牍的代码来故弄玄虚,所以下面的代码都是切中要害的片段,总体上是个连贯的过程,
包括启动Excel,读取数据,写入数据,以及最后的关闭Excel,其中还包括了很多人感兴趣的合并单元格的处理。
特别说明以下代码需要MFC的支持,而且工程中还要包含EXCEL2000的定义文件:EXCEL9.H,EXCEL9.CPP


//*
//变量定义
_Application app;
Workbooks books;
_Workbook book;
Worksheets sheets;
_Worksheet sheet;
Range range;
Range iCell;
LPDISPATCH lpDisp;
COleVariant vResult;
COleVariant
covTrue((short)TRUE),
covFalse((short)FALSE),
covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

//*
//初始化COM的动态连接库
if(!AfxOleInit())
{
AfxMessageBox(“无法初始化COM的动态连接库!”);
return ;
}

//*
//创建Excel 2000服务器(启动Excel)
if(!app.CreateDispatch(“Excel.Application”))
{
AfxMessageBox(“无法启动Excel服务器!”);
return;
}

app.SetVisible(TRUE); //使Excel可见
app.SetUserControl(TRUE); //允许其它用户控制Excel

//*
//打开c:\1.xls
books.AttachDispatch(app.GetWorkbooks());
lpDisp = books.Open(“C:\\1.xls”,
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional );

//*
//得到Workbook
book.AttachDispatch(lpDisp);

//*
//得到Worksheets
sheets.AttachDispatch(book.GetWorksheets());

//*
//得到当前活跃sheet
//如果有单元格正处于编辑状态中,此操作不能返回,会一直等待
lpDisp=book.GetActiveSheet();
sheet.AttachDispatch(lpDisp);

//*
//读取已经使用区域的信息,包括已经使用的行数、列数、起始行、起始列
Range usedRange;
usedRange.AttachDispatch(sheet.GetUsedRange());
range.AttachDispatch(usedRange.GetRows());
long iRowNum=range.GetCount(); //已经使用的行数

range.AttachDispatch(usedRange.GetColumns());
long iColNum=range.GetCount(); //已经使用的列数

long iStartRow=usedRange.GetRow(); //已使用区域的起始行,从1开始
long iStartCol=usedRange.GetColumn(); //已使用区域的起始列,从1开始

//*
//读取第一个单元格的值
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal );
COleVariant vResult =range.GetValue();
CString str;
if(vResult.vt == VT_BSTR) //字符串
{
str=vResult.bstrVal;
}
else if (vResult.vt==VT_R8) //8字节的数字
{
str.Format(“%f”,vResult.dblVal);
}
else if(vResult.vt==VT_DATE) //时间格式
{
SYSTEMTIME st;
VariantTimeToSystemTime(&vResult.date, &st);
}
else if(vResult.vt==VT_EMPTY) //单元格空的
{
str=”“;
}

//*
//读取第一个单元格的对齐方式,数据类型:VT_I4
//读取水平对齐方式
range.AttachDispatch(sheet.GetCells());
iCell.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
vResult.lVal=0;
vResult=iCell.GetHorizontalAlignment();
if(vResult.lVal!=0)
{
switch (vResult.lVal)
{
case 1: //默认
break;
case -4108: //居中
break;
case -4131 : //靠左
break;
case -4152 : //靠右
break;
}

}

//垂直对齐方式
iCell.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
vResult.lVal=0;
vResult=iCell.GetVerticalAlignment();
if(vResult.lVal!=0)
{
switch (vResult.lVal)
{
case -4160 : //靠上
break;
case -4108 : //居中
break;
case -4107 : //靠下
break;
}

}

//*
//设置第一个单元格的值”HI,EXCEL!”
range.SetItem(COleVariant(1),COleVariant(1),COleVariant(“HI,EXCEL!”));

//*
//设置第一个单元格字体颜色:红色
Font font;
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
font.SetColor(COleVariant((long)0xFF0000));

//*
//合并单元格的处理
//包括判断第一个单元格是否为合并单元格,以及将第一个单元格进行合并
Range unionRange;
range.AttachDispatch(sheet.GetCells());
unionRange.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal );

vResult=unionRange.GetMergeCells();
if(vResult.boolVal==-1) //是合并的单元格
{
//合并单元格的行数
range.AttachDispatch (unionRange.GetRows ());
long iUnionRowNum=range.GetCount ();

//合并单元格的列数
range.AttachDispatch (unionRange.GetColumns ());
long iUnionColumnNum=range.GetCount ();

//合并区域的起始行,列
long iUnionStartRow=unionRange.GetRow(); //起始行,从1开始
long iUnionStartCol=unionRange.GetColumn(); //起始列,从1开始

}
else if(vResult.boolVal==0)
{//不是合并的单元格}

//将第一个单元格合并成2行,3列
range.AttachDispatch(sheet.GetCells());
unionRange.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal );
unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)3)));
unionRange.Merge(COleVariant((long)0)); //合并单元格

//*
//将文件保存为2.xls
book.SaveAs(COleVariant(“C:\\2.xls”),covOptional,covOptional, \
covOptional,covOptional,covOptional,0,\
covOptional,covOptional,covOptional,covOptional);

//*
//关闭所有的book,退出Excel
book.Close (covOptional,COleVariant(OutFilename),covOptional);
books.Close();
app.Quit();


                            作者  :龚敏
                             Email : truetable@truetable.com
                             主页  :http://www.truetable.com                                 

[此贴子已经被作者于2004-10-8 8:21:13编辑过]
作者:leeyeafu 2003-10-28 12:50:37)

先给适当奖励,本想加入精华,但那样刚到明经的朋友就看不到了,过段时间再说吧。
作者:goldenshin 2003-10-28 14:49:26)

关于excel.h和excel.cpp,要注意版本问题.
比如对excel xp, 类库是直接包含在excel.exe中. 因此你只要用加入类(add class)的方法,直接选中excel.exe,并选择对话框中的常用的几个类(如Rang)就可以编程了. 千万不要选所有的类,否则太大了.
作者:unionsoft 2003-11-29 11:00:34)

修改字体颜色的那段漏了一句,应为:
//*
//设置第一个单元格字体颜色:红色
Font font;
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
font.AttachDispatch (range.GetFont ());
font.SetColor(COleVariant((long)0xFF0000));
作者:zhengkuo 2003-12-2 10:50:00)

如果,程序既要安装在2000的计算机上,也可能安装在XP的机子上,有的用户还用97,(指的都是office),可能会出现版本问题——其中比较麻烦的是–在app.quit()后,仍旧存在excel进程,如果这样?怎么解决?
作者:zhengkuo 2003-12-2 10:51:50)

请教高手,能否用vb控制excel做成dll,在arx中进行调用,因为毕竟vb与excel亲切
作者:unionsoft 2004-1-30 11:06:58)

以下是引用zhengkuo在2003-12-2 10:50:00的发言:
如果,程序既要安装在2000的计算机上,也可能安装在XP的机子上,有的用户还用97,(指的都是office),可能会出现版本问题——其中比较麻烦的是–在app.quit()后,仍旧存在excel进程,如果这样?怎么解决?
兼容性问题:

    office2002-office97是向下兼容的,只要你不使用office2002中的新特性,程序在这些office版本中都好用

Excel程序不能退出的问题:
1 . 不要使用#import导入类型库,如:#import “c:\excel\excel.olb”
2 . 程序结束时,确保所有IDispatch都释放了,如:app.ReleaseDispatch ();

作者:easypower 2004-5-14 10:00:39)

還是不明白如何得到excel.cpp和excel.h這兩個文件,請指教
作者:jack1975 2004-6-24 16:43:03)

有版本问题时,可以加一个判断:1、首先通过 exlApp得到版本,比如9.0,10.0,11.0,10.0以后的版本注意open函数的参数为15个,即最后在增加两个covOptional,即可,另外,补充一下,判断当前是否有excel应用程序在运行,使之更舒服一些:
::CLSIDFromProgID(L”Excel.Application”,&clsid); // from registry
if(::GetActiveObject(clsid, NULL,&pUnk) == S_OK)

{
VERIFY(pUnk->QueryInterface(IID_IDispatch,(void**) &pDisp) == S_OK);
ExcelApp.AttachDispatch(pDisp);
pUnk->Release();
}
else

{
if(!ExcelApp.CreateDispatch(“Excel.Application”)) {
AfxMessageBox(“Excel program not found”);
return 0;
}

}

作者:liuxinmin 2004-6-29 14:03:53)

高手,真的厉害
作者:白菜乐园 2004-10-6 17:34:59)

支持原创!!!
作者:xysyr 2004-10-31 15:55:11)

在vc中怎样添加excel的sheet呢?请教。
作者:kingchen 2004-11-14 20:34:18)

高手。厉害
我也要象你一样厉害

此主题相关图片如下:
按此在新窗口浏览图片或鼠标滚轮缩放图片

作者:zhmary 2004-12-10 11:30:10)

请问各位高手,从哪里得到Excel.cpp Excel.h?
作者:unionsoft 2004-12-13 12:36:09)

以下是引用zhmary在2004-12-10 11:30:10的发言:
请问各位高手,从哪里得οnclick=Cswf() height=22 alt=Flash图片 src=”skins/default/ubb/swf.gif” width=23 border=0>到Excel.cp…

Excel.cpp和Excel.h是从Excel的类型库中获取的,类型库类似C++中的头文件,包括接口,方法,属性的定义;类型库在Excel的安装目录可以找到,Excel的版本不同,这个类型库也不一样,如下所示:
Excel 95 and prior : xl5en32.olb
Excel 97 : excel8.olb
Excel 2000 : excel9.olb
Excel 2002 : excel.exe

具体的获取方法:

1 . 使用VC++新建立一个基于MFC的EXE工程

2 . 点击菜单”查看”–>”建立类向导”,此时会弹全”MFC ClassWizard”对话框

3 . 点击”Add Class”–>”From a type libray”,指定Excel的type libray,在Excel的安装目录下可以找到,如:”D:\Microsoft Office\Office\EXCEL9.OLB”

4 . 在弹出的对话框中选择所需的类,按”确定”,Excel.cpp和Excel.h就产生了。

作者:yfy2003 2004-12-23 17:41:57)

lpDisp = books.Open(“C:\\1.xls”,
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional );
编译显示错误:

error C2660: ‘Open’ : function does not take 13 parameters

作者:xux4618 2005-4-6 8:48:51)

请问怎样才能增加一个工作表?
作者:梦幻神话 2005-4-6 15:50:40)

Workbooks.AttachDispatch(ExcelApp.GetWorkbooks());
Workbook.AttachDispatch(Workbooks.Open(FileName,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional));
Worksheets.AttachDispatch(Workbook.GetWorksheets());
Worksheet.AttachDispatch(Worksheets.GetItem((COleVariant((long)1))));
Range.AttachDispatch(Worksheet.GetCells());
iCell.AttachDispatch(Range.GetItem(COleVariant((long)2),COleVariant((long)2)).pdispVal);

vResult = iCell.GetMergeCells();

if(vResult.boolVal == -1)
{
AfxMessageBox(“Yes”);

Range.AttachDispatch(iCell.GetRows());
long row_num = Range.GetCount();

Range.AttachDispatch(iCell.GetColumns());
long col_num = Range.GetCount();

CString str;
str.Format(“%d×%d”,row_num,col_num);
AfxMessageBox(str);
}

请教:为什么str得到的结果都是1×1?(求合并单元格的原始行数和列数)。

谢谢。。。。。。。。。。

作者:unionsoft 2005-4-9 10:13:25)

首先你的Cells(2,2)是否处于合并单元格中
其次,你缺少了个关键语句:iCell.GetMergeArea()),你可以参考下面的语句

Range UnionRange;

UnionRange.AttachDispatch(iCell.GetMergeArea()); //先要获取合并区域

range.AttachDispatch (UnionRange.GetRows ());

long iRowNum = range.GetCount(); //合并单元格行数

range.AttachDispatch (UnionRange.GetColumns ());

long iColNum = Range.GetCount(); //合并单元格列数

posted on 2005-05-25 10:29 子玉 阅读(18050) 评论(19) 编辑 收藏

FeedBack:

re: [转]在VC中彻底玩转Excel

2005-07-19 16:18 | hj
请问,我试着用你的定义字体颜色那段程序,但调试时老是说:“AttachDispatch’ : is not a member of ‘Font‘不知道为什么 ,我的font变量定义成Font对吗? 回复 更多评论

re: [转]在VC中彻底玩转Excel

2006-01-01 17:00 | 刘
请问各位高手:怎样读取含有公式的单元格中的数据?谢谢 回复 更多评论

re: [转]在VC中彻底玩转Excel

2006-09-22 10:23 | qianliyanyun
我就想在excel里 实现,第一行为标题(居中)
第二行为时间(左对齐),下面为9列数据.最后一行为签名(左对齐)
怎么办? 回复 更多评论

re: [转]在VC中彻底玩转Excel

2006-11-26 17:24 | 好学者
修改字体颜色的那段漏了一句,应为:
//*
//设置第一个单元格字体颜色:红色
Font font;
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
font.AttachDispatch (range.GetFont ());
font.SetColor(COleVariant((long)0xFF0000));

这样改了还是不能用,Font是哪儿来的哦! 回复 更多评论

re: [转]在VC中彻底玩转Excel

2007-10-19 15:11 | 唐特
Font 和 _Application,Workbooks等等这些东西一样, 是打开excel.exe(excel9.olb) 的时候添加的class 回复 更多评论

re: [转]在VC中彻底玩转Excel

2008-01-16 11:19 | HU
请教一个问题,现在出现了OFFICE 2007,在2000中做的程序,在2007下无法启动EXCEL服务,就是CreateDispatch失败。
但是,运行的环境既有2007,也会有老版本的EXCEL,这种情况下,怎么办?怎么让程序更有通用性?谢谢!!!! 回复 更多评论

re: [转]在VC中彻底玩转Excel

2008-01-25 10:55 | 想飞的星期
请问怎么知道我createdispatch出来的excel已经关闭了??我还想每次重用同一个excel进程,怎么办? 回复 更多评论

re: [转]在VC中彻底玩转Excel

2008-03-28 14:56 | lamorak
你好,请教一下,我在做数据导入到excel中的程序,将3个文件的数据导入没有问题,我为了做测试,将这3个文件复制了44次,就是145个文件的数据,总共有6702314行,200M的数据量,转换到75M数据的时候,Excel就不给转了,就弹出Excel中“value,range,GetIDsOfNames”函数出错,Excel大小有限制吗?我这个差不多就是做9×3文件循环数据插入,第10个循环就错了。我每次转一个文件后都加了Sleep(2000),能帮忙解决一下吗? 回复 更多评论

re: [转]在VC中彻底玩转Excel[未登录]

2008-04-14 10:27 | hehe
能提供这个程序的源码吗?
我想学习一下!~

saicowong@qq.com

谢谢 回复 更多评论

re: [转]在VC中彻底玩转Excel

2008-04-27 01:24 | tigerdrj
关于CreateDispatch创建excel服务失败 的问题??
说是版本的问题,现在有什么解决的方案吗..??

可否告知… tigerdrj@gmail.com 回复 更多评论

re: [转]在VC中彻底玩转Excel[未登录]

2008-05-08 10:38 | 王涛
受益匪浅!!

多谢了!! 回复 更多评论

re: [转]在VC中彻底玩转Excel

2008-05-29 15:55 | guoming
受益匪浅!
请问版主如何实现在单元格里的字能自动换行?
哪里有相关的详细资料呀?如有敬请推荐啦,谢谢!!

回复 更多评论

re: [转]在VC中彻底玩转Excel

2008-09-28 11:58 | cqwally
谢谢,很有参考价值 回复 更多评论

re: [转]在VC中彻底玩转Excel

2008-12-30 10:43 | emily
vc如何读写EXCELL中的combox(列表中的内容以及当前值)?
多谢帮忙~! 回复 更多评论

re: [转]在VC中彻底玩转Excel

2009-03-04 16:03 | chenyue
多谢了. 回复 更多评论

re: [转]在VC中彻底玩转Excel

2009-06-13 17:28 | 魔兽私服
小说文笔洒脱灵秀,情节跌宕起伏,人物复杂逼真.. 回复 更多评论

re: [转]在VC中彻底玩转Excel

2010-03-18 15:23 | lesheng
谢谢楼主,我有个问题是如何将一幅图填入excel一个单元格中。

liu_shenglun@126.com 回复 更多评论

re: [转]在VC中彻底玩转Excel

2012-08-24 11:31 | 外文系
Range是抽象类怎么可以定义呢??? 回复 更多评论

re: [转]在VC中彻底玩转Excel

2013-01-20 17:41 | Kerwin
你好,请教一下,我编译的时候是在本机(本机装的是office2010),那Excel的版本是多少呢?用于操作office2003中的excel有问题么?
现在是想先获得某个合并单元格的值,然后是向excel内写数据,但是我循环第一次能得到数据,循环第二次得到第二个单元格的值就是空的。为什么呢? 回复 更多评论

  • 1
    点赞
  • 1
    评论
  • 3
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值