VC 操作Execl总结


Excel的对象模型

    在对Excel编程之前首先要了解微软Excel 对象(Object)模型。(Parent-Child关系)

Office 应用程序对象模型

  Application:代表应用程序本身。即Excel应用程序

       Workbooks:是Workbook 的集合,代表了工作薄。

       Worksheets:是Worksheet的集合,是Workbook的子对象。

       Range:是Worksheet的子对象,可以理解为Sheet中一定范围的单元格。

       Shapes:是Worksheet的子对象,用于存储图片等信息的单元格。

二、VC操作Excel的初始化过程

 1、导入Excel库文件。 

   点击"Add class"按钮下的"From a type Library"导入 office安装目录下的"excel.exe",然后选择需要用的一些类,比如_Application, _Workbook, Workbooks,    Worksheets,_Wroksheet,Range,Shapes等。

将头文件中的#import "C:\\Program Files\\Microsoft Office\\Office15\\EXCEL.EXE" no_namespace注释掉

将DialogBox()改为_DialogBox()

 2、初始化Application。

     首先, 初始化COM组件

if(!AfxOleInit())
{
   AfxMessageBox("无法初始化COM的动态连接库");
   return FALSE;
}
3.调用

引用头文件

#include "CApplication.h"
#include "CRange.h"
#include "CWorkbooks.h"
#include "CWorksheets.h"
#include "CWorkbook.h"
#include "CWorksheet.h"
#include "CFont0.h"
#include "CShapes.h"
#include "CShapeRange.h"
#include "CBorders.h"
#include "CBorder.h"

创建对象

        CApplication app;
	CWorkbooks  books;
	CWorkbook  book;
	CWorksheets  sheets;
	CWorksheet  sheet;
	LPDISPATCH  lpDisp;
	CRange   range;
	CFont0 font;
	CRange unionRange;
	CRange resizeunionRange;
	CBorders border;
	CBorder everyborder;
	COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);


CFileDialog FileDialog(FALSE,_T("xlsx"),NULL,OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT, _T("Microsoft Excel 2010(*.xlsx)|*.xlsx|所有文件(*.*)"),NULL);   
if(FileDialog.DoModal()!=IDOK)   
{  
return;   
}  
CString cStrFile=FileDialog.GetPathName();  //选择保存路径名称  ;


if(::PathFileExists(cStrFile))   
DeleteFile(cStrFile);  

创建Excel 服务器(启动Excel)

f( !app.CreateDispatch(_T("Excel.Application")))
	{
		AfxMessageBox(_T("无法创建Excel应用!"));
		return;
	}
	books.AttachDispatch(app.get_Workbooks());  // 得到Workbooks
	book = books.Add(covOptional);     // 得到Workbook
	sheets = book.get_Worksheets();     // 得到Worksheets
	sheet = sheets.get_Item(COleVariant((short)1)); // 得到Worksheet

打开已有的execl(未尝试)

      books.AttachDispatch(app.GetWorkbooks());
     // 或者也可以
     // books = app.GetWorkbooks();
    lpDisp = books.Open("D:////1.xls", covOptional, covOptional,  covOptional,   covOptional, covOptional, covOptional, covOptional, covOptional, covOptional, covOptional,
  covOptional, covOptional, covOptional, covOptional);
向每个单元格添加数据
range = sheet.get_Range(COleVariant(_T("B1")), covOptional);   // 获取B1 Range
range.put_Value2(COleVariant(_T("Subamount")));

   // 向单元格中添加公式(未尝试)

    range = sheet.<span style="color: rgb(51, 51, 51); font-family: Arial; font-size: 14px; line-height: 26px;">get_Range</span>(COleVariant("D2"), covOptional);      // 获得D2 Range
    range = range.get_Resize(COleVariant((long)NUMROWS), COleVariant((long)1)); // 重新设置D2的大小
    range.put_Formula(COleVariant("=C2*0.07"));                         // 给D2:D21设置公式
  // 合并单元格   设置单元格的格式
       unionRange = sheet.get_Range(COleVariant(_T("A3")), COleVariant(_T("J3"))); 
	unionRange = unionRange.get_Resize(COleVariant((long)1), COleVariant((long)10));
	unionRange.Merge(COleVariant((long)0));      //合并单元格;
	unionRange.put_RowHeight(COleVariant((short)30));   //设置单元格的高度;
	unionRange.put_HorizontalAlignment(COleVariant((long)-4108));// 水平居中对齐;
	unionRange.put_Value2(COleVariant(_T("采  购  合  同")));
	font = unionRange.get_Font();                                                              // 获得Range的字体
	font.put_Bold(COleVariant((short)TRUE));                                    // 设置是否粗体
	//font.put_Color(COleVariant((long)RGB(255, 0, 0)));                     // 设置字体颜色;
	font.put_Size(COleVariant((short)20));
	font.put_Name(COleVariant(_T("黑体")));
    range = range.GetEntireColumn();                                                // 获得全部的单元格(未尝试)
      range.AutoFit();                                                                            // 自动适合尺寸    (未尝试)

向单元格中插入图片(支持BMP、JPG格式,其他没试)

CShapes   shapes   =   sheet.get_Shapes();       // 从Sheet对象上获得一个Shapes  ;  
range   = sheet.get_Range(COleVariant(_T("B1")),COleVariant(_T("D1")));    // 获得Range对象,用来插入图片
range.put_RowHeight(COleVariant((short)60));   //设置单元格的高度;
range.put_HorizontalAlignment(COleVariant((long)-4108));// 水平居中对齐;
shapes.AddPicture(_T("D:\\1.jpg") , false , true ,(float)range .get_Left().dblVal+20,
       (float)range .get_Top().dblVal+5,100,50);
CShapeRange   sRange   =   shapes.get_Range(_variant_t(long(1)));
//sRange.put_Height(float(50));   
//sRange.put_Width(float(100));  
unionRange = sheet.get_Range(COleVariant(_T("E1")), COleVariant(_T("J1")));
unionRange = unionRange.get_Resize(COleVariant((long)1), COleVariant((long)6));
unionRange.put_Value2(COleVariant(_T("        深圳东方启峰科技有限公司")));
将已建的.xls文件另存为



book.SaveCopyAs(COleVariant(cStrFile)); //保存到cStrFile文件  
book.put_Saved(true);  
books.Close(); 

关闭Excel服务

resizeunionRange.DetachDispatch();
	border.DetachDispatch();
	unionRange.DetachDispatch();
	font.DetachDispatch();
	range.ReleaseDispatch();   
	sheet.ReleaseDispatch();   
	sheets.ReleaseDispatch();
	book.ReleaseDispatch();  
	books.ReleaseDispatch();  
	shapes.ReleaseDispatch();
	sRange.ReleaseDispatch();
	app.ReleaseDispatch();  
	app.Quit(); 
	AfxMessageBox(_T("成功导出"));

添加边框

      unionRange = sheet.get_Range(COleVariant(_T("B1")), COleVariant(_T("E1"))); 

       resizeunionRange = unionRange.get_Resize(COleVariant((long)1), COleVariant((long)4));
border=resizeunionRange.get_Borders();
for(int i=7;i<11;i++)
{
everyborder = border.get_Item(i);
everyborder.put_Weight(COleVariant((short)2));
everyborder.DetachDispatch();
}

     边框有枚举值,但是未找到定义的头文件(引用方法),只有自己定义输入

    颜色  //1-black;2-white;3-red;4-green;5-blue;6-yellow;7-pink;8-dark blue.

   xlEdgeLeft=7.xlEdgeRight=10.xlEdgeTop=8.xlEdgeBottom.=9 xlInsideVertical=11.xlInsideHorizontal=12

      线的样式:

xlContinuous=1 default
xlDash =-4115
xlDashDot =4
xlDashDotDot=5
xlDot   -4118
xlDouble  -4119
xlLineStlyeNone  -4142
xlSlantDashDot 13
xlLineStlyeNone

put_Weight(COleVariant((short)2));添加默认边框(黑色,实线,7-12所有)


水平居中与垂直居中

 vResult=iCell.GetHorizontalAlignment(); 
  if(vResult.lVal!=0) 
  { 
    switch   (vResult.lVal) 
    { 
    case   1:             //默认 
      break; 
    case   -4108:     //居中 
      break; 
    case   -4131   :   //靠左 
      break; 
    case   -4152   :   //靠右 
      break; 
    } 
  
  } 

 vResult=iCell.GetVerticalAlignment(); 

 if(vResult.lVal!=0) 
  { 
    switch   (vResult.lVal) 
    { 
    case   -4160   :     //靠上 
      break; 
    case   -4108   :     //居中 
      break; 
    case   -4107   :     //靠下 
      break; 
    } 
  
  } 



通过CPageSet可以对页面进行设置

pageset=sheet.get_PageSetup();
//CString csPrintarea;
//csPrintarea.Format(_T("B1:J%d"),currowNum);
//pageset.put_PrintArea(csPrintarea);
    //wdOrientPortrait=0,横向wdOrientLandscape=1   {    oPageSetup.put_Orientation(1); // 横向 ;
// 设置上下左右变距,单位缇,以下参数设置的页边距是“适中”  ;
pageset.put_TopMargin((float)43);
// 适中时72=2.54cm,默认时90=3.17cm;10≈0.35cm  ;
pageset.put_BottomMargin((float)43);// 适中时72=2.54cm,默认时 90=3.17cm;10≈0.35cm
pageset.put_LeftMargin((float)17);// 适中时54=1.9cm,默认时 72=2.54cm
pageset.put_RightMargin((float)17);// 适中时54=1.9cm,默认时 72=2.54cm   }   //else // 设置为纵向;

【前言】 工作或学习中可能需要实现基于VC读\写Excel文件的功能,本人最近也遇到了该问题。中间虽经波折,但是最终还是找到了解决问题的办法。 在此跟大家分享,希望对跟我同样迷茫过的同学们有所帮助。 1、程序功能 1)打开一个excel文件; 2)显示到CListCtrl上; 3)新建一个Excel文件。 以上均在对话框中实现。 2、平台 VC++2010 3、实现方法 常用的Excel打开方式有两种 1)通过数据库打开; 2)OLE方式打开。 由于方式1)操作繁琐,经常出现莫名的错误,这里选用方式2). 4、准备步骤 首先新建一个Dialog窗体程序,添加list control和两个按钮 1)将ExcelLib文件夹拷贝到程序目录下; 2)将Export2Excel.h,Export2Excel.cpp两个文件添加到项目; 3)包含头文件,#include "ExcelLib/Export2Excel.h" 通过以上步骤在程序中引入了可以读取Excle文件的CExport2Excel类; 5、打开excel文件 通过按钮点击打开 void CExcelTestDlg::OnBnClickedButtonOpenExcel() { //获取文件路径 CFileDialog* lpszOpenFile; CString szGetName; lpszOpenFile = new CFileDialog(TRUE,"","",OFN_FILEMUSTEXIST|OFN_HIDEREADONLY,"Excel File(*.xlsx;*.xls)|*.xls;*.xlsx",NULL); if (lpszOpenFile->DoModal()==IDOK) { szGetName = lpszOpenFile->GetPathName(); SetWindowText(szGetName); delete lpszOpenFile; } else return; //打开文件 //文件中包含多个sheet时,默认打开第一个sheet CExport2Excel Excel_example; Excel_example.OpenExcel(szGetName); //获取sheet个数 int iSheetNum = Excel_example.GetSheetsNumber(); //获取已使用表格行列数 int iRows = Excel_example.GetRowCount(); int iCols = Excel_example.GetColCount(); //获取单元格的内容 CString cs_temp = Excel_example.GetText(1,1); //AfxMessageBox(cs_temp); //List control上显示 //获取工作表列名(第一行) CStringArray m_HeadName; m_HeadName.Add(_T("ID")); for (int i=1;iGetItemCount()>0) { m_list.DeleteColumn(0); } //初始化ClistCtrl,加入列名 InitList(m_list,m_HeadName); //填入内容 //第一行是标题,所以从第2行开始 CString num; int pos; for (int row = 2;row<=iRows; row++) { pos = m_list.GetItemCount(); num.Format(_T("%d"),pos +1); m_list.InsertItem(pos,num); for (int colum=1;columDoModal()==IDOK) { szGetName = lpszOpenFile->GetPathName(); SetWindowText(szGetName); delete lpszOpenFile; } else return; //文件全名称 CString csFileName = szGetName; //需要添加的两个sheet的名称 CString csSheetName = "newSheet"; CString csSheetName2 = "newSheet2"; // 新建一个excel文件,自己写入文字 CExport2Excel Excel_example; //新建excel文件 Excel_example.CreateExcel(csFileName); //添加sheet,新加的sheet在前,也就是序号为1 Excel_example.CreateSheet(csSheetName); Excel_example.CreateSheet(csSheetName2); //操作最开始添加的sheet:(newSheet) Excel_example.SetSheet(2); //添加表头 Excel_example.WriteHeader(1,"第一列"); Excel_example.WriteHeader(2,"第二列"); //添加核心数据 Excel_example.WriteData(1,1,"数据1"); Excel_example.WriteData(1,2,"数据2"); //保存文件 Excel_example.Save(); //关闭文件 Excel_example.Close(); } 7、注意事项 1)一般单个Excel文件包含多个sheet,程序默认打开第一个; 2)指定操作sheet,使用Excel_example.SetSheet(2)函数; 3)打开文件时最左侧的sheet序号为1,新建excel时最新添加的sheet序号为1. 【后记】 本程序主要基于网络优快云中---“Excel封装库V2.0”---完成,下载地址是:http://download.youkuaiyun.com/detail/yeah2000/3576494,在此表示感谢!同时, 1)在其基础上作了小改动,改正了几个小错误,添加了几个小接口; 2)添加了如何使用的例子,原程序是没有的; 3)详细的注释 发现不足之处,还请大家多多指教!
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值