VC操作Excel之基本操作

标签：style   color   get   width   数据   string   

// 变量的定义

_Application app;
 Workbooks books;
 _Workbook book;
 Worksheets sheets;
 _Worksheet sheet;
 Range range;
 LPDISPATCH lpDisp;   
 COleVariant vResult;

 CString str = "";
 
 COleVariant
  covTrue((short)TRUE),
  covFalse((short)FALSE),
  covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
 
 //创建Excel 2003服务器(启动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);
 
 
 lpDisp = books.Open("E://test.xls",
  covOptional, 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
 sheet.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),_variant_t("hello word!"));

 // 往单元格A2里写入时间数据
 range.AttachDispatch(sheet.GetRange(_variant_t("A2"), _variant_t("A2")),true);
 range.SetValue2(_variant_t("2011/02/15"));

 // 往单元格A3~A6里写入浮点数据
 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.SetColumnWidth(_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.GetItem(_variant_t((long)(4)),_variant_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, &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.SetColorIndex(_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((long)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=线型(1~13) Weight=线宽 ColorIndex=线的颜色(-4105为自动, 1为黑色)
 range.BorderAround(_variant_t((long)9),_variant_t((long)1),_variant_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); // 不弹出对话框询问是否保存
// app.Quit();      // 退出

 //释放对象 
 range.ReleaseDispatch();
 sheet.ReleaseDispatch();
 sheets.ReleaseDispatch();
 book.ReleaseDispatch();
 books.ReleaseDispatch();
 app.ReleaseDispatch();

VC操作Excel之基本操作,布布扣,bubuko.com

VC操作Excel之基本操作

标签：style   color   get   width   数据   string   

原文地址：http://www.cnblogs.com/wolfplan/p/3795623.html