在VC中彻底玩转Excel 转
如今Excel是越来越重要了，在我们自己开发的程序中不免要和Excel打交道了。利用Automation技术，我们可以在不去了解
数据库的情况下玩转Excel，而且你会发现一切竟如此轻松！
好了，咱们开始吧，我不喜欢用长篇累牍的代码来故弄玄虚，所以下面的代码都是切中要害的片段，总体上是个连贯的过程，
包括启动Excel，读取数据，写入数据，以及最后的关闭Excel，其中还包括了很多人感兴趣的合并单元格的处理。
特别说明以下代码需要MFC的支持，而且工程中还要包含EXCEL2000的定义文件：EXCEL9.H，EXCEL9.CPP
*****************************************************************************************************************
Workbooks wbsMyBooks; _Workbook wbMyBook;
Worksheets wssMysheets; _Worksheet wssMysheet;
Range range; Range iCell;
LPDISPATCH lpDisp;
COleVariant vResult;
COleVariant covTrue((short)TRUE), covFalse((short)FALSE),
covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
//创建Excel 2000服务器(启动Excel)，尽量在初始化中建立excel_app对象
//以确保一次只打开一个excel服务器
// if(!m_ExcelApp.CreateDispatch("Excel.Application"))
// {
// AfxMessageBox("无法启动Excel服务器!");
// return;
// }
//app.SetVisible(TRUE); //使Excel可见
//ExcelApp.SetUserControl(TRUE); //允许其它用户控制Excel
//打开c:\\*.xls
wbsMyBooks.AttachDispatch(m_ExcelApp.GetWorkbooks());
lpDisp = wbsMyBooks.Open(m_strPath,//此处无法打开文档没有问题
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional);
wbMyBook.AttachDispatch(lpDisp);//得到Workbook
wssMysheets.AttachDispatch(wbMyBook.GetWorksheets());//得到Worksheets
//得到当前活跃sheet，如果有单元格正处于编辑状态中，此操作不能返回，会一直等待
lpDisp = wbMyBook.GetActiveSheet();
wssMysheet.AttachDispatch(lpDisp);
//读取已经使用区域的信息，包括已经使用的行数、列数、起始行、起始列
Range usedRange;
usedRange.AttachDispatch(wssMysheet.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开始
//读取第iStartRow行，第iStartCol列单元格的值
range.AttachDispatch(wssMysheet.GetCells());
range.AttachDispatch(range.GetItem(COleVariant(iStartRow),COleVariant(iStartCol)).pdispVal);
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(wssMysheet.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(long(1)),COleVariant(long(1)),COleVariant("HI,EXCEL!"));
//设置第一个单元格字体颜色:红色
// CFont font;
// range.AttachDispatch(wssMysheet.GetCells());
// range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
// font(COleVariant((long)0xFF0000));
//合并单元格的处理，包括判断第一个单元格是否为合并单元格，以及将第一个单元格进行合并
Range unionRange;
range.AttachDispatch(wssMysheet.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(wssMysheet.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)); //合并单元格
}
//将文件保存为*.xls
m_ExcelApp.SetVisible(TRUE);
CString strtmp = m_strPath.Left(m_strPath.ReverseFind('.')) + ".xls";
//这里应该确保strtmp为有效路径，否则的话该函数会自己处理异常，导致以后的语句没有执行，没有关闭打开的文档
wbMyBook.SaveAs(COleVariant(strtmp),covOptional,covOptional,
covOptional,covOptional,covOptional,0,
covOptional,covOptional,covOptional,covOptional);
//关闭所有的book，退出Excel
wbMyBook.Close(covOptional, COleVariant(""), covOptional);
wbsMyBooks.Close();
//m_ExcelApp.Quit();
另外一篇是
在开发软件时，经常要将数据输出到Excel 2000中，在Excel 2000中对该数据进行进一步地格式化处理或进行计算处理。在Visual Basic中处理起来较简单，Excel 2000的VB编程帮助中有较为详细的介绍。在Visual C++中如何进行处理了？利用Excel 2000的ActiveX Automate功能，处理起来同VB中类似。但要注意以下几点：
对于对象的属性值的读取或赋值，需要用GetProperty()或SetProperty(NewValue)函数，不能象VB中直接通过属性名称取值或赋值。例如：Worksheet.GetCount(), Worksheet.SetName(“Sheet1”)。
对集合对象中的成员对象的引用，必须使用集合对象的GetItem()函数。例如：Worksheets.GetItem(ColeVariant((long)1))或Worksheets.GetItem(ColeVariant(“Sheet1”))取得第一个工作表。
在COM接口中，时常用到Variant，BSTR，SafeArray数据类型。Variant数据类型是一个联合，可表示几乎所有的类型的数据，具体用法见MSDN中的相关介绍，类_variant_t是对VARIANT数据类型的封装。在Excel 2000的VB编程帮助中，如果提到某函数或属性需要一个值，该值的数据类型通常是Variant，在封装Excel 2000对象的类定义中，说明了具体需要的数据类型。BSTR是一个包括了字符串和字符串长度的数据结构，类_bstr_t是对BSTR数据类型的封装。在Excel 2000的VB编程帮助中提到的字符串通常指BSTR。具体函数参数或属性的数据类型，见封装该对象的类的定义。SafeArray是一个包括数组和数组边界的结构，数组边界外的内容不允许访问。在Excel 2000的VB编程帮助中提到的数组是指SafeArray。关于SafeArray的处理，请见MSDN的相关帮助。
对于缺省参数和缺省值。在VB中，函数的参数可以空缺，在VC++中不允许，必须将所有的参数填写完全。如果你希望指定某个参数为缺省值，根据参数数据类型的不同，可指定不同的缺省值。当参数数据类型为字符串时，可以用长度为0的字符串。如果参数是Variant类型，可用常量vtMissing，该常量在comdef.h中定义。也可用_variant ...
