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

unionsoft

如今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

leeyeafu

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

goldenshin

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

unionsoft

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

如果，程序既要安装在2000的计算机上，也可能安装在XP的机子上，有的用户还用97，（指的都是office）,可能会出现版本问题------其中比较麻烦的是--在app.quit()后，仍旧存在excel进程，如果这样？怎么解决？

zhengkuo

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

unionsoft

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

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

jack1975

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

高手,真的厉害