C++使用OLE/COM高速读写EXCEL的源码（OLE/COM）

原文链接：http://www.tsingfun.com/html/2016/dev_0530/1454.html

本文源码来自互联网、由清泛网编译整理。
http://blog.csdn.net/otherhill/article/details/18716559
http://www.cnblogs.com/xianyunhe/archive/2011/09/25/2190485.html
http://blog.sina.com.cn/s/blog_6e51df7f01015cci.html
感谢原作者的无私奉献。

通过VC实现对Excel表格的操作的方法有多种，如：通过ODBC数据库实现，通过解析Excel表格文件，通过OLE/COM的实现。本文主要研究通过OLE/COM实现对Excel表格的操作。另外，本文主代码中汇聚各网友的智慧进行了优化（比如预加载等），可以加快OLE读取的EXCEL的速度。

简单介绍下步骤：
1、导入并封装Excel中的接口

Excel作为OLE/COM库插件，定义好了各类交互的接口，这些接口是跨语言的接口。VC可以通过导入这些接口，并通过接口来对Excel的操作。

由于本文只关心对Excel表格中的数据的读取，主要关注几个_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range等几个接口。Excel的各类接口的属性、方法可以通过MSDN的Office Development进行查询。

VS2010导入OLE/COM组件的接口的步骤为：Project->Class Wizard->Add Class->MFC Class From TypeLib，先选择要导入的组件所在的路径，即Excel.exe所在的路径，然后再选择

要导入的Excel类型库中的接口。

在完成接口导入后，VS2010将自动为导入的接口创建相应的实现类，用于对接口属性和方法的实现。由于标准的C++没有属性访问器，只能添加一个两个存取函数来实现对属性的访问，通过在属性名称前加上get_和put_前缀分别实现对属性的读写操作。即，由VC自动完成C++类对接口的封装。

 

本文所导入的接口对应的类和头文件的说明如下所示：

Excel接口

导入类

头文件

说明

_Application

CApplicaton

Application.h

Excel应用程序。

Workbooks

CWorkbooks

Workbooks.h

工作簿的容器，里面包括了Excel应用程序打开的所有工作簿。

_Workbook

CWorkbook

Workbook.h

单个工作簿。

Worksheets

CWorksheets

Worksheets.h

单个工作簿中的Sheet表格的容器，包括该工作簿中的所有Sheet。

_Worksheet

CWorksheet

Worksheet.h

单个Sheet表格。

Range

CRange

Range.h

一定数量的单元格，可对单元格进行单个或多个单元格进行操作。

2、导入Excel的整个类型库

stdafx.h

#include <afxdisp.h>        // MFC Automation 類別.../*导入Office的类型库*/#import "C:\\Program Files (x86)\\Common Files\\Microsoft Shared\\OFFICE15\\MSO.DLL" \rename("RGB", "MSORGB") \rename("DocumentProperties", "MSODocumentProperties")//using namespace Office;/*导入VB的类型库*/#import "C:\\Program Files (x86)\\Common Files\\Microsoft Shared\\VBA\\VBA6\\VBE6EXT.OLB"//using namespace VBIDE;/*导入Excel的类型库*/#import "D:\\Program Files\\Microsoft Office\\Office15\\EXCEL.EXE" \rename("DialogBox", "ExcelDialogBox") \rename("RGB", "ExcelRGB") \rename("CopyFile", "ExcelCopyFile") \rename("ReplaceText", "ExcelReplaceText") \no_auto_excludeusing namespace Excel;...

注：以上的路径根据自己电脑的不同情况分别设置，不过前提是一定得装了Excel。
 

3、操作Excel步骤

操作Excel的主要步骤如下：

（1）创建一个Excel应用程序。

（2）得到Workbook的容器。

（3）打开一个Workbook或者创建一个Workbook。

（4）得到Workbook中的Worksheet的容器。

（5）打开一个Worksheet或者创建一个WorkSheet。

（6）通过Range对WorkSheet中的单元格进行读写操作。

（7）保存Excel。

（8）释放资源。

封装的主要逻辑代码：
ExcelOp.h

#pragma once#include "stdafx.h" //OLE的头文件#include "CRange.h"#include "CWorkbook.h"#include "CWorkbooks.h"#include "CWorksheet.h"#include "CWorksheets.h"#include "CApplication.h"class CExcelOp{public:CExcelOp(void);~CExcelOp(void);public:void ShowInExcel(BOOL bShow);///检查一个CELL是否是字符串//BOOL    IsCellString(long iRow, long iColumn);///检查一个CELL是否是数值//BOOL    IsCellInt(long iRow, long iColumn);void SetCell(long irow, long icolumn,CString new_string);///得到一个CELL的StringCString GetCell(long iRow, long iColumn);CString GetCellByName(CString rowName,CString colName);///得到整数//int     GetCellInt(long iRow, long iColumn);///得到double的数据//double  GetCellDouble(long iRow, long iColumn);///取得行的总数int GetRowCount();///取得列的总数int GetColumnCount();///使用某个shet，shit，shitBOOL LoadSheet(long table_index,BOOL pre_load = FALSE);///通过名称使用某个sheet，BOOL LoadSheet(const TCHAR* sheet,BOOL pre_load = FALSE);///通过序号取得某个Sheet的名称CString GetSheetName(long table_index);///得到Sheet的总数int GetSheetCount();///打开文件BOOL OpenExcelFile(const TCHAR * file_name);///关闭打开的Excel 文件，有时候打开EXCEL文件就要void CloseExcelFile(BOOL if_save = FALSE);//另存为一个EXCEL文件void SaveasXSLFile(const CString &xls_file);///取得打开文件的名称CString GetOpenFileName();///取得打开sheet的名称CString GetLoadSheetName();///写入一个CELL一个int//void SetCellInt(long irow, long icolumn,int new_int);///写入一个CELL一个string//void SetCellString(long irow, long icolumn,CString new_string);public:///初始化EXCEL OLEstatic BOOL InitExcel();///释放EXCEL的 OLEstatic void ReleaseExcel();///取得列的名称，比如27->AAstatic char *GetColumnName(long iColumn);protected://预先加载void PreLoadSheet(); public:///打开的EXCEL文件名称CString       open_excel_file_;CWorkbooks    m_Books;CWorkbook     m_Book;CWorksheets   m_sheets;CWorksheet    m_sheet;CRange        m_Rge; static CApplication m_app;///是否已经预加载了某个sheet的数据BOOL          already_preload_;///Create the SAFEARRAY from the VARIANT ret.COleSafeArray ole_safe_array_; LPDISPATCH m_lpDisp;   };

ExcelOp.cpp

#include "StdAfx.h"#include "ExcelOp.h"#ifdef _DEBUG#define new DEBUG_NEW#endifCExcelOp::CExcelOp(void):already_preload_(FALSE){}CExcelOp::~CExcelOp(void){ }COleVariantcovTrue((short)TRUE),covFalse((short)FALSE),covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); CApplication CExcelOp::m_app;//初始化EXCEL文件，BOOL CExcelOp::InitExcel(){ BOOL bRtn =FALSE ;TCHAR* ptchsExcel[]={_T("Excel.Application") //创建Excel 2000服务器(启动Excel) ,_T("Excel.Application.8")//Excel 97,_T("Excel.Application.9")//Excel 2000,_T("Excel.Application.10")//Excel xp,_T("Excel.Application.11")//Excel 2003,_T("Excel.Application.12")//Excel 2007,_T("Excel.Application.14")//Excel 2010};CLSID clsid;HRESULT hr = S_FALSE;for (int i= sizeof(ptchsExcel)/sizeof(*ptchsExcel)-1;i>=0;i--){#if 0if (m_app.CreateDispatch(ptchsExcel[i],NULL)) {break;}等同于下面的操作#elsehr = CLSIDFromProgID(ptchsExcel[i], &clsid);if(SUCCEEDED(hr)){ hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (void **)&m_app);if(SUCCEEDED(hr)) {bRtn = TRUE;}break;} #endif}if (!bRtn){AfxMessageBox(_T("创建Excel服务失败,你可能没有安装EXCEL，请检查!")); return bRtn;}m_app.put_DisplayAlerts(FALSE); return bRtn;}//void CExcelOp::ReleaseExcel(){ m_app.Quit();m_app.ReleaseDispatch();m_app=NULL;}//关闭打开的Excel 文件,默认情况不保存文件void CExcelOp::CloseExcelFile(BOOL if_save){//如果已经打开，关闭文件if (open_excel_file_.IsEmpty() == FALSE){//如果保存,交给用户控制,让用户自己存，如果自己SAVE，会出现莫名的等待if (if_save){ShowInExcel(TRUE);}else{m_Book.Close(COleVariant(short(FALSE)),COleVariant(open_excel_file_),covOptional);m_Books.Close();}//打开文件的名称清空open_excel_file_.Empty();}m_sheets.ReleaseDispatch();m_sheet.ReleaseDispatch();m_Rge.ReleaseDispatch();m_Book.ReleaseDispatch();m_Books.ReleaseDispatch();}//打开excel文件BOOL CExcelOp::OpenExcelFile(const TCHAR *file_name){//先关闭CloseExcelFile();//m_Books.AttachDispatch(m_app.get_Workbooks(),1);  //COleVariant varPath(file_name);  //m_Book.AttachDispatch(m_Books.Add(varPath));  //利用模板文件建立新文档 m_Books.AttachDispatch(m_app.get_Workbooks(),true); //LPDISPATCH lpDis = NULL;m_lpDisp = m_Books.Add(COleVariant(file_name)); if (m_lpDisp){m_Book.AttachDispatch(m_lpDisp); //得到Worksheets m_sheets.AttachDispatch(m_Book.get_Worksheets(),true); //记录打开的文件名称open_excel_file_ = file_name;return TRUE;}return TRUE;}//void CExcelOp::ShowInExcel(BOOL bShow){m_app.put_Visible(bShow);m_app.put_UserControl(bShow);}void CExcelOp::SaveasXSLFile(const CString &xls_file){m_Book.SaveAs(COleVariant(xls_file),covOptional,covOptional,covOptional,covOptional,covOptional,0,covOptional,covOptional,covOptional,covOptional,covOptional);return;}int CExcelOp::GetSheetCount(){return m_sheets.get_Count();}CString CExcelOp::GetSheetName(long table_index){CWorksheet sheet;sheet.AttachDispatch(m_sheets.get_Item(COleVariant((long)table_index)),true);CString name = sheet.get_Name();sheet.ReleaseDispatch();return name;}//按照序号加载Sheet表格,可以提前加载所有的表格内部数据BOOL CExcelOp::LoadSheet(long table_index,BOOL pre_load){LPDISPATCH lpDis = NULL;m_Rge.ReleaseDispatch();m_sheet.ReleaseDispatch();lpDis = m_sheets.get_Item(COleVariant((long)table_index));if (lpDis){m_sheet.AttachDispatch(lpDis,true);m_Rge.AttachDispatch(m_sheet.get_Cells(), true);}else{return FALSE;}already_preload_ = FALSE;//如果进行预先加载if (pre_load){PreLoadSheet();already_preload_ = TRUE;}return TRUE;}//按照名称加载Sheet表格,可以提前加载所有的表格内部数据BOOL CExcelOp::LoadSheet(const TCHAR* sheet,BOOL pre_load){LPDISPATCH lpDis = NULL;m_Rge.ReleaseDispatch();m_sheet.ReleaseDispatch();lpDis = m_sheets.get_Item(COleVariant(sheet));if (lpDis){m_sheet.AttachDispatch(lpDis,true);m_Rge.AttachDispatch(m_sheet.get_Cells(), true);}else{return FALSE;}//already_preload_ = FALSE;//如果进行预先加载if (pre_load){already_preload_ = TRUE;PreLoadSheet();}return TRUE;}//得到列的总数int CExcelOp::GetColumnCount(){CRange range;CRange usedRange;usedRange.AttachDispatch(m_sheet.get_UsedRange(), true);range.AttachDispatch(usedRange.get_Columns(), true);int count = range.get_Count();usedRange.ReleaseDispatch();range.ReleaseDispatch();return count;}//得到行的总数int CExcelOp::GetRowCount(){CRange range;CRange usedRange;usedRange.AttachDispatch(m_sheet.get_UsedRange(), true);range.AttachDispatch(usedRange.get_Rows(), true);int count = range.get_Count();usedRange.ReleaseDispatch();range.ReleaseDispatch();return count;}//返回打开的EXCEL文件名称CString CExcelOp::GetOpenFileName(){return open_excel_file_;}//取得打开sheet的名称CString CExcelOp::GetLoadSheetName(){return m_sheet.get_Name();}//取得列的名称，比如27->AAchar *CExcelOp::GetColumnName(long icolumn){   static char column_name[64];size_t str_len = 0;while(icolumn > 0){int num_data = icolumn % 26;icolumn /= 26;if (num_data == 0){num_data = 26;icolumn--;}column_name[str_len] = (char)((num_data-1) + 'A' );str_len ++;}column_name[str_len] = '\0';//反转_strrev(column_name);return column_name;}//预先加载void CExcelOp::PreLoadSheet(){CRange used_range;used_range = m_sheet.get_UsedRange();    VARIANT ret_ary = used_range.get_Value2();if (!(ret_ary.vt & VT_ARRAY)){return;}ole_safe_array_.Clear();ole_safe_array_.Attach(ret_ary); }void CExcelOp::SetCell(long irow, long icolumn,CString new_string){COleVariant new_value(new_string);CRange start_range = m_sheet.get_Range(COleVariant(_T("A1")),covOptional);CRange write_range = start_range.get_Offset(COleVariant((long)irow -1),COleVariant((long)icolumn -1) );write_range.put_Value2(new_value);start_range.ReleaseDispatch();write_range.ReleaseDispatch();}CString CExcelOp::GetCell(long iRow, long iColumn)  {  //_variant_t varRow(iRow);  //_variant_t varCol(iColumn); //COleVariant value;  //range.AttachDispatch(m_sheet.get_Cells(),TRUE);  //value=range.get_Item(varRow,varCol);                    //返回的类型是VT_DISPATCH 这是一个指针  //range.AttachDispatch(value.pdispVal,TRUE);  //VARIANT value2=range.get_Text();  //CString strValue=value2.bstrVal;  //return strValue;  COleVariant vResult ; //字符串if (already_preload_ == FALSE){m_Rge.AttachDispatch(m_Rge.get_Item (COleVariant((long)iRow),COleVariant((long)iColumn)).pdispVal, true);vResult =m_Rge.get_Value2();}//如果数据依据预先加载了else{long read_address[2];VARIANT val;read_address[0] = iRow;read_address[1] = iColumn;ole_safe_array_.GetElement(read_address, &val);vResult = val;}CString str;if(vResult.vt == VT_BSTR)       //字符串{str=vResult.bstrVal;}else if (vResult.vt==VT_INT){str.Format(_T("%d"),vResult.pintVal);}else if (vResult.vt==VT_R8)     //8字节的数字{str.Format(_T("%0.0f"),vResult.dblVal);//str.Format("%.0f",vResult.dblVal);//str.Format("%1f",vResult.fltVal);}else if(vResult.vt==VT_DATE)    //时间格式{SYSTEMTIME st;VariantTimeToSystemTime(vResult.date, &st);CTime tm(st);str=tm.Format(_T("%Y-%m-%d"));}else if(vResult.vt==VT_EMPTY)   //单元格空的{str=_T("");} m_Rge.ReleaseDispatch();return str;} CString CExcelOp::GetCellByName(CString rowName,CString colName)  {  COleVariant value;  CString strValue;  long row=0,col=0;  long re_row=0,re_col=0;m_Rge.AttachDispatch(m_sheet.get_Cells(),TRUE);  for (row=1,col=1;col<m_Rge.get_Column();col++)  {  value=m_Rge.get_Item(_variant_t(row),_variant_t(col));                  //返回的类型是VT_DISPATCH 这是一个指针  m_Rge.AttachDispatch(value.pdispVal,TRUE);  VARIANT value2=m_Rge.get_Text();  CString strValue=value2.bstrVal;  if (strValue==colName)  break;  }  re_col=col;  for (row=1,row=1;row<m_Rge.get_Row();row++)  {  value=m_Rge.get_Item(_variant_t(row),_variant_t(col));                  //返回的类型是VT_DISPATCH 这是一个指针  m_Rge.AttachDispatch(value.pdispVal,TRUE);  VARIANT value2=m_Rge.get_Text();  CString strValue=value2.bstrVal;  if (strValue==rowName)        break;  }  re_row=row;  return GetCell(re_row,re_col);  }  

 

4、效果截图：
Excel文件中“服饰”Sheet中提取“男装”记录。
 

操作Excel部分代码：

int nRows = m_excel->GetRowCount();int nCells  = m_excel->GetColumnCount();CString sCloth,sVal;int n=0;for (int i=1;i<nRows;i++){sCloth = m_excel->GetCell(i,1);if (sCloth == _T("男装")){sVal = m_excel->GetCell(i,2);CRange write_range = start_range.get_Offset(COleVariant((long)n),COleVariant((long)0)) ;write_range.put_Value2((COleVariant)(_T("男装")));write_range.ReleaseDispatch();write_range = start_range.get_Offset(COleVariant((long)n++),COleVariant((long)1)) ;write_range.put_Value2((COleVariant)(sVal));write_range.ReleaseDispatch();}}//for//http://www.tsingfun.combook.SaveAs(COleVariant(_T("d:\\2.xlsx")),covOptional,covOptional,covOptional,covOptional,covOptional,0,covOptional,covOptional,covOptional,covOptional,covOptional);  book.put_Saved(TRUE); //将Workbook的保存状态设置为已保存，即不让系统提示是否人工保存book.Close(covOptional,covOptional,covOptional);//关闭workbook对象books.Close(); sheet.ReleaseDispatch();//释放sheet对象sheets.ReleaseDispatch(); //释放sheets对象book.ReleaseDispatch();//释放workbook对象books.ReleaseDispatch(); //释放workbooks对象

 

源Excel：


生成的结果Excel：


5、工程源码下载：ExcelDemo.zip