VC操作Excel之基本操作

1、VC 操作 Excel 之基本操作/ 变量的定义 _Application app; Workbooks books; _Workbook book; Worksheets sheets; _Worksheet sheet; Range range; LPDISPATCH lpDisp;COleVariant vResult; CStringstr = ; COleVariant covTrue(short)TRUE), covFalse(short)FALSE), covOptional(long)DISP_E_PARAMNOTFOUND, VT_ERROR); /创建 Excel 2003

2、 服务器 (启动 Excel) if (!app.CreateDispatch(Excel.Application,NULL) AfxMessageBox(Create Excel service failure!); return; / 设置为 FALSE 时，后面的 app.Quit(); 注释要打开 / 否则 EXCEL.EXE 进程会一直存在，并且每操作一次就会多开一 个进程 app.SetVisible(TRUE);books.AttachDispatch(app.GetWorkbooks(),true); lpDispbooks.Open(E:/test.xls, covOptio

3、nal, covOptional, covOptional, covOptional, covOptional, covOptional,covOptional, covOptional, covOptional, covOptional, covOptional, covOptional, covOptional, covOptional);ASSERT(lpDisp); book.AttachDispatch(lpDisp); / 得到 Worksheets sheets.AttachDispatch(book.GetWorksheets(),true); / 得到Worksheet sh

4、eet.AttachDispatch(sheets.GetItem(_variant_t(short)(1); / 得到全部 Cells range.AttachDispatch(sheet.GetCells(),true); / 往单元格 A1 里写入字符串数据，就像操作矩阵一样，第 1 行第 1 列 range.SetItem(_variant_t(LONG)1),_variant_t(LONG)1),_vari ant_t(hello word!); / 往单元格 A2 里写入时间数据 range.AttachDispatch(sheet.GetRange(_variant_t(A2),

5、 _variant_t(A2),true);range.SetValue2(_variant_t(2011/02/15); / 往单元格 A3A6 里写入浮点数据 range.AttachDispatch(sheet.GetRange(_variant_t(A3), _variant_t(A6),true);range.SetValue2(_variant_t(double)3.14); / 设置单元格的列 宽为 12 range.AttachDispatch(sheet.GetRange(_variant_t(A1), _variant_t(A1),true);range.SetColumn

6、Width(_variant_t(long)12); / 所有单元格居 中显示 range.AttachDispatch(sheet.GetCells(),true); range.SetHorizontalAlignment(_variant_t(long)-4108); / -4108:居中， -4131: 靠左， -4152:靠右 range.SetVerticalAlignment(_variant_t(long)-4108); / -4108: 居中， -4160: 靠上， -4107:靠下 / 读取单元格的数据，第 4行第 1 列range.AttachDispatch(range

7、.GetItem(_variant_t(long)(4),_vari ant_t(long)(1).pdispVal ); vResult =range.GetValue(covOptional); switch (vResult.vt) case VT_BSTR: / 字符串 str=vResult.bstrVal; break; case VT_R8:/ 8 字节的数字 str.Format(%f,vResult.dblVal);break; case VT_DATE: / 时间格式 SYSTEMTIME st; VariantTimeToSystemTime(vResult.date,

8、&st); break; case VT_EMPTY: / 单元格空的 str=; break; /MessageBox(str); Font ft; / 要插入 excel 类库里面的 Font 类，下面类似 range.AttachDispatch(sheet.GetRange(_variant_t(A3), _variant_t(A5),true); ft.AttachDispatch(range.GetFont(); ft.SetName(_variant_t( 华文行楷 ); / 字体 ft.SetSize(_variant_t(long)12); / 字号 /ft.SetC

9、olorIndex(_variant_t(long)3); / 字的颜色 : 红色 ft.SetColor( _variant_t(long) RGB(255, 0, 0) ) ); ft.SetBold(_variant_t(long)1); / 1 ：粗体， 0：非粗体 Interior it; / 底色设置 range.AttachDispatch(sheet.GetRange(_variant_t(C3), _variant_t(E6),true); it.AttachDispatch(range.GetInterior(); it.SetColorIndex(_variant_t(l

10、ong)20); / 底色设置为浅青色Borders borders; / 先设置区域内所有单元格的边框borders= range.GetBorders();borders.SetColorIndex(_variant_t(long)1); borders.SetLineStyle(_variant_t(long)1); borders.SetWeight(_variant_t(long)2); / 然后设置外边框 / LineStyle= 线型 (113) Weight= 线宽 ColorIndex= 线的颜色 (-4105 为自动 , 1 为黑色 ) range.BorderAround(_variant_t(long)9),_variant_t(long)1),_va riant_t(long)1),vtMissing);range.AttachDispatch(sheet.GetRange(_variant_t(C8), _variant_t(D9),true); / 合并单元格 range.Merge(_variant_t(long)0); book.Save(); / 保存 Excel 的内容 / app.SetDisplayAlerts(false); / 不弹出对话框询 问是否保存 /