VC实现对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(); -------------------------------------------------------------------------------- // Excel保存 了能使得输出到Excel中的数据显示表格，可以调用事先设置好的模板，但是不灵活。我花了一个中午的时间摸索出如何设置它了。       具体代码如下： LPDISPATCH pRange; CString   cell; int   c,c1,c2; _variant_t vRange1;   // 设置单元格的线； _variant_t vRange2; _variant_t vRange3; _variant_t vRange4;    c='A';    c1=j/26;    c2=j%26;    if(c1==0)     cell.Format("%c%d",c2+c,i+1); // i+1 ：表示从第二行开始关联    else     cell.Format("%c%c%d",c1+c-1,c2+c-1,i+1); VERIFY(pRange = m_worksheet.GetRange(COleVariant(cell)));    m_range.AttachDispatch(pRange);    //对齐方式    Var.vt = VT_I2;    Var.iVal=-4108;    m_range.SetHorizontalAlignment(Var);    m_range.SetVerticalAlignment(Var);    //    // 设置单元格的线；    vRange1.vt =VT_I2;    vRange1.lVal =1;   // 线的样式：0- no line; 1-solid; 2-big dot;3-small dot;4-dash dot; 5-dash dot dot;    vRange2.vt =VT_I2;    vRange2.lVal =3; // 线的粗细程度；    vRange3.vt =VT_I2;    vRange3.lVal =1;   // 1-black;2-white;3-red;4-green;5-blue; 6-yellow; 7-pink;8-dark blue;    vRange4.vt = VT_UI4;    vRange4.uintVal =RGB(0,0,0); // 我测试后认为，没有实际意义，只有vRange3起作用    m_range.BorderAround(vRange1,vRange2,vRange3,vRange4);    //    //    strValue=m_book.GetTextRC(i,j+2);    strValue.TrimLeft(" ");    strValue.TrimRight(" ");    if(!strValue.IsEmpty())    {     m_range.SetValue(COleVariant(strValue));    }    m_range.ReleaseDispatch(); // 虽然没有什么高深的技术含量，只是为了让后面需要的人少走点弯路。 不当之处，还望指正。

 

 

文章来源：http://hi.baidu.com/qds316/blog/item/4ca69ded2903a11dfdfa3ce2.html