在VC中操作Excel.docx
- 文档编号:16677513
- 上传时间:2023-07-16
- 格式:DOCX
- 页数:28
- 大小:26.18KB
在VC中操作Excel.docx
《在VC中操作Excel.docx》由会员分享,可在线阅读,更多相关《在VC中操作Excel.docx(28页珍藏版)》请在冰点文库上搜索。
在VC中操作Excel
[原创]在VC中彻底玩转Excel
如今Excel是越来越重要了,在我们自己开发的程序中不免要和Excel打交道了。
利用Automation技术,我们可以在不去了解数据库的情况下玩转Excel,而且你会发现一切竟如此轻松!
好了,咱们开始吧,我不喜欢用长篇累牍的代码来故弄玄虚,所以下面的代码都是切中要害的片段,总体上是个连贯的过程,包括启动Excel,读取数据,写入数据,以及最后的关闭Excel,其中还包括了很多人感兴趣的合并单元格的处理。
特别说明以下代码需要MFC的支持,而且工程中还要包含EXCEL2000的定义文件:
EXCEL9.H,EXCEL9.CPP
VC6.0操作Excel(2008-1-2211:
26)
1.建立一个空的单文档程序;
2.加入Excel的库文件:
在vc++的view菜单里面选classwizard,然后选Automationtab,再选AddClass,选"Fromatypelibrary.",然后再选你需要的objectlibrary。
(forthisexample,ifyouareautomatingExcel97,choosetheMicrosoftExcel8.0ObjectLibrary;thedefaultlocationisC:
\ProgramFiles\MicrosoftOffice\Office\Excel8.olb).
IfyouareautomatingMicrosoftExcel2000,chooseMicrosoftExcel9.0ObjectLibraryforwhichthedefaultlocationistheC:
\ProgramFiles\MicrosoftOffice\Office\Excel9.olb.
IfyouareautomatingMicrosoftExcel2002andMicrosoftOfficeExcel2003,theobjectlibraryisembeddedinthefileExcel.exe.ThedefaultlocationforExcel.exeinOffice2002isC:
\programFiles\MicrosoftOffice\Office10\Excel.exe.ThedefaultlocationforExcel.exeinOffice2003isC:
\programFiles\MicrosoftOffice\Office11\Excel.exe.
在ListCtrl框中选中_Application,_Workbook,_Worksheet,Range,Sheets,Workbooks,单击OK,自动生成EXCEL8.H和EXCEL8.CPP文件(或者EXCEL9.H和EXCEL9.CPP或者EXCEL.H和EXCEL.CPP)。
3.初始化COM库:
在App类的InitInstance中一定要先加上AfxOleInit();因为操作Excel是属于COM自动化,需初始化COM库。
4.加入Excel的头文件:
文档类的CPP文件中包含头文件#include"excel9.h",是关于Excel中各类的接口定义信息。
如果excel9.h,excel9.cpp文件已经生成
创建project,将示例文档中的excel9.h,excel9.cpp
复制到工程目录,选
Project-->Addtoproject-->File-->excel9.h;
Project-->Addtoproject-->File-->excel9.cpp;
在App的Initinstance中加入AfxOleInit();
在Dlg的头文件中加入#include"excel9.h"
代码中加入调用COM接口代码,编译即可,
*****************************************************************************************************************
//*****
//变量定义
_Applicationapp;
Workbooksbooks;
_Workbookbook;
Worksheetssheets;
_Worksheetsheet;
Rangerange;
RangeiCell;
LPDISPATCHlpDisp;
COleVariantvResult;
COleVariant
covTrue((short)TRUE),
covFalse((short)FALSE),
covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);
//*****
//初始化COM的动态连接库
if(!
AfxOleInit())
{
AfxMessageBox("无法初始化COM的动态连接库!
");
return;
}
//*****
//创建Excel2000服务器(启动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);
//*****
//读取已经使用区域的信息,包括已经使用的行数、列数、起始行、起始列
RangeusedRange;
usedRange.AttachDispatch(sheet.GetUsedRange());
range.AttachDispatch(usedRange.GetRows());
longiRowNum=range.GetCount();//已经使用的行数
range.AttachDispatch(usedRange.GetColumns());
longiColNum=range.GetCount();//已经使用的列数
longiStartRow=usedRange.GetRow();//已使用区域的起始行,从1开始
longiStartCol=usedRange.GetColumn();//已使用区域的起始列,从1开始
//*****
//读取第一个单元格的值
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch(range.GetItem(COleVariant((long)1),COleVariant((long)1)).pdispVal);
COleVariantvResult=range.GetValue();
CStringstr;
if(vResult.vt==VT_BSTR)//字符串
{
str=vResult.bstrVal;
}
elseif(vResult.vt==VT_R8)//8字节的数字
{
str.Format("%f",vResult.dblVal);
}
elseif(vResult.vt==VT_DATE)//时间格式
{
SYSTEMTIMEst;
VariantTimeToSystemTime(&vResult.date,&st);
}
elseif(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)
{
case1:
//默认
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!
"));
//*****
//设置第一个单元格字体颜色:
红色
Fontfont;
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch((range.GetItem(COleVariant(long
(1)),COleVariant(long
(1)))).pdispVal);
font.SetColor(COleVariant((long)0xFF0000));
//*****
//合并单元格的处理
//包括判断第一个单元格是否为合并单元格,以及将第一个单元格进行合并
RangeunionRange;
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());
longiUnionRowNum=range.GetCount();
//合并单元格的列数
range.AttachDispatch(unionRange.GetColumns());
longiUnionColumnNum=range.GetCount();
//合并区域的起始行,列
longiUnionStartRow=unionRange.GetRow();//起始行,从1开始
longiUnionStartCol=unionRange.GetColumn();//起始列,从1开始
}
elseif(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();
关于excel.h和excel.cpp,要注意版本问题.
比如对excelxp,类库是直接包含在excel.exe中.因此你只要用加入类(addclass)的方法,直接选中excel.exe,并选择对话框中的常用的几个类(如Rang)就可以编程了.千万不要选所有的类,否则太大了.
作者:
unionsoft2003-11-2911:
00:
34)
修改字体颜色的那段漏了一句,应为:
//*****
//设置第一个单元格字体颜色:
红色
Fontfont;
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch((range.GetItem(COleVariant(long
(1)),COleVariant(long
(1)))).pdispVal);
font.AttachDispatch(range.GetFont());
font.SetColor(COleVariant((long)0xFF0000));
作者:
zhengkuo2003-12-210:
50:
00)
如果,程序既要安装在2000的计算机上,也可能安装在XP的机子上,有的用户还用97,(指的都是office),可能会出现版本问题------其中比较麻烦的是--在app.quit()后,仍旧存在excel进程,如果这样?
怎么解决?
作者:
zhengkuo2003-12-210:
51:
50)
请教高手,能否用vb控制excel做成dll,在arx中进行调用,因为毕竟vb与excel亲切
作者:
unionsoft2004-1-3011:
06:
58)
以下是引用zhengkuo在2003-12-210:
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();
作者:
easypower2004-5-1410:
00:
39)
還是不明白如何得到excel.cpp和excel.h這兩個文件,請指教
作者:
jack19752004-6-2416:
43:
03)
有版本问题时,可以加一个判断:
1、首先通过exlApp得到版本,比如9.0,10.0,11.0,10.0以后的版本注意open函数的参数为15个,即最后在增加两个covOptional,即可,另外,补充一下,判断当前是否有excel应用程序在运行,使之更舒服一些:
:
:
CLSIDFromProgID(L"Excel.Application",&clsid);//fromregistry
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("Excelprogramnotfound");
return0;
}
}
作者:
unionsoft2004-12-1312:
36:
09)
以下是引用zhmary在2004-12-1011:
30:
10的发言:
请问各位高手,从哪里得onclick=Cswf()height=22alt=Flash图片src="skins/default/ubb/swf.gif"width=23border=0>到Excel.cp...
Excel.cpp和Excel.h是从Excel的类型库中获取的,类型库类似C++中的头文件,包括接口,方法,属性的定义;类型库在Excel的安装目录可以找到,Excel的版本不同,这个类型库也不一样,如下所示:
Excel95andprior:
xl5en32.olb
Excel97:
excel8.olb
Excel2000:
excel9.olb
Excel2002:
excel.exe
具体的获取方法:
1.使用VC++新建立一个基于MFC的EXE工程
2.点击菜单"查看"-->"建立类向导",此时会弹全"MFCClassWizard"对话框
3.点击"AddClass"-->"Fromatypelibray",指定Excel的typelibray,在Excel的安装目录下可以找到,如:
"D:
\\MicrosoftOffice\\Office\\EXCEL9.OLB"
4.在弹出的对话框中选择所需的类,按"确定",Excel.cpp和Excel.h就产生了。
作者:
yfy20032004-12-2317:
41:
57)
lpDisp=books.Open("C:
\\\\1.xls",
covOptional,covOptional,covOptional,covOptional,covOptional,
covOptional,covOptional,covOptional,covOptional,covOptional,
covOptional,covOptional);
编译显示错误:
errorC2660:
'Open':
functiondoesnottake13parameters
作者:
xux46182005-4-68:
48:
51)
请问怎样才能增加一个工作表?
作者:
梦幻神话2005-4-615:
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());
longrow_num=Range.GetCount();
Range.AttachDispatch(iCell.GetColumns());
longcol_num
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VC 操作 Excel
![提示](https://static.bingdoc.com/images/bang_tan.gif)