在VC中彻底玩转Excel

作者：龚敏       来源：子玉山庄       更新：10/8/2004     
    
        如今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.x
4000
ls
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());

#include   "excel8.h"

//*****
//得到当前活跃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();