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

本文源码来自互联网、由清泛网编译整理。
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++类对接口的封装。

 

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

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_exclude
using 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的String
	CString 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，shit
	BOOL 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 OLE
	static BOOL InitExcel();
	///释放EXCEL的 OLE
	static void ReleaseExcel();
	///取得列的名称，比如27->AA
	static 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
#endif

CExcelOp::CExcelOp(void):already_preload_(FALSE)
{

}

CExcelOp::~CExcelOp(void)
{
 
}

COleVariant
covTrue((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 0
		
		if (m_app.CreateDispatch(ptchsExcel[i],NULL)) 
		{
			break;
		}
		等同于下面的操作
#else
		hr = 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->AA
char *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

	//https://www.tsingfun.com

	book.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