读取xls文件示例

分类: EXCEL 171人阅读 评论(0) 收藏 举报

读取xls文件示例 :

 

       //变量定义

       _Application app;          //Excel应用程序接口

       Workbooks books;         //工作薄集合

       _Workbook book;          //工作薄

       Worksheets sheets;         //工作表集合

       _Worksheet sheet;          //工作表

       Range range;                 //Excel中针对单元格的操作都应先获取其对应的Range对象

       Font font;

       Range cols;

       Range iCell;

       LPDISPATCH lpDisp;   

       COleVariant vResult;

       COleVariant

              covTrue((short)TRUE),

              covFalse((short)FALSE),

              covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); 

 

 

    //初始化

       if( !app.CreateDispatch(L"Excel.Application") ){

              this->MessageBox(L"无法创建Excel应用!");

              return;

       }

       app.SetVisible(TRUE);     //可见

       app.SetUserControl(TRUE); //用户可控制

 

 

 

       //打开XLS文件

       books.AttachDispatch(app.GetWorkbooks());

       lpDisp = books.Open(L"d:\\3.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();               //已使用区域的起始行,从开始

 long iStartCol=usedRange.GetColumn();            //已使用区域的起始列,从开始

 

//读取第一个单元格的值

 range.AttachDispatch(sheet.GetCells());

 range.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal );

 

 vResult =range.GetValue();

 

 CString str;

 if(vResult.vt == VT_BSTR)       //字符串

 {

        str=vResult.bstrVal;

 }

 else if (vResult.vt==VT_R8)     //8字节的数字

 {

        str.Format(L"%f",vResult.dblVal);

 }

 else if(vResult.vt==VT_DATE)    //时间格式

 {

        SYSTEMTIME st;

        VariantTimeToSystemTime((long)&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;

  }

 

 }

 

//设置第一个单元格字体颜色:红色

 

 range.AttachDispatch(sheet.GetCells());

 range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);

 

 font.AttachDispatch(range.GetFont());

 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();       //起始行,从开始

        long iUnionStartCol=unionRange.GetColumn();    //起始列,从开始

 

 }

 else if(vResult.boolVal==0)  

 {

        

        //不是合并的单元格

 }

 

        //将第一个单元格合并成行,列

        range.AttachDispatch(sheet.GetCells());

        unionRange.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal ); //第一个单元格

        unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)3),COleVariant((long)2)));     //GetResize(3,2) 从第一个单元格开始合并行列的所有单元格

        unionRange.Merge(COleVariant((long)0));   //合并单元格

 

 

//将文件保存为.xls

 book.SaveAs(COleVariant(L"C:\\2.xls"),covOptional,covOptional,

        covOptional,covOptional,covOptional,0,

        covOptional,covOptional,covOptional,covOptional); 

 

book.Close (covOptional,COleVariant(L"d:\\3.xls"),covOptional);

 books.Close();

       //释放对象(相当重要!)

       range.ReleaseDispatch();

       cols.ReleaseDispatch();

       sheet.ReleaseDispatch();

       sheets.ReleaseDispatch();

       book.ReleaseDispatch();

       books.ReleaseDispatch();

       //App一定要释放,否则程序结束后还会有一个Excel进程驻留在内存中,而且程序重复运行的时候会出错

       app.ReleaseDispatch();

       app.Quit();

 

【前言】 工作或学习中可能需要实现基于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.csdn.net/detail/yeah2000/3576494,在此表示感谢!同时, 1)在其基础上作了小改动,改正了几个小错误,添加了几个小接口; 2)添加了如何使用的例子,原程序是没有的; 3)详细的注释 发现不足之处,还请大家多多指教!
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值