[原创]在VC中彻底玩转Excel

unionsoft 发表于 2003-10-28 11:58:00

本帖最后由作者于 2004-10-8 8:21:13 编辑 如今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 : <A href="mailto:truetable@truetable.com" target="_blank" >truetable@truetable.com</A> 主页：<A href="http://www.truetable.com/" target="_blank" >http://www.truetable.com</A>

leeyeafu 发表于 2003-10-28 12:50:00

先给适当奖励，本想加入精华，但那样刚到明经的朋友就看不到了，过段时间再说吧。

goldenshin 发表于 2003-10-28 14:49:00

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

unionsoft 发表于 2003-11-29 11:00:00

修改字体颜色的那段漏了一句，应为：
//*****
//设置第一个单元格字体颜色:红色
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:00

请教高手，能否用vb控制excel做成dll，在arx中进行调用，因为毕竟vb与excel亲切

unionsoft 发表于 2004-1-30 11:06:00

zhengkuo发表于2003-12-2 10:50:00static/image/common/back.gif如果，程序既要安装在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:00

還是不明白如何得到excel.cpp和excel.h這兩個文件,請指教

jack1975 发表于 2004-6-24 16:43:00

有版本问题时，可以加一个判断：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:00

高手,真的厉害

页: [1] 2 3 4

明经CAD社区's Archiver

[原创]在VC中彻底玩转Excel