特别说明以下代码需要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();
具体代码如下: 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