VC用OLE方式读写Excel

    前几天要做一个项目，需要读取Excel中的数据。从网上查资料发现，主要是有两种方式。一是把Excel表当成数据库使用ODBC读写，这样操作起来就跟操作Access数据库似的。但这种方式效率比较低。另一种方法是OLE技术(Object Linking and Embedding，对象连接与嵌入)。OLE是一种面向对象的技术，利用这种技术可开发可重复使用的软件组件（COM）。本文主要介绍使用OLE技术对Excel读写的方法。

本文中使用的环境是Windows XP,VS2008,Excel2007。

1) 在你建立的VC工程中点击“项目”->“添加类”->“TypeLib中的MFC类”->点击“确定”

2) 这时会出现一个“从类型库添加类向导”对话框，选中“文件”选项，然后选择文件位置：C:\Program Files\Microsoft Office\Office12\EXCEL.EXE 将接口列表中的_Application,_Workbook,_Worksheet,Range,Ranges,Workbooks,Worksheets等接口添加到右侧。点击“完成”。

 3) 给VC工程添加一个新的C++类，命名为CExcel。在excel.h文件中添加以下头文件：

#include "CApplication.h"

#include "CRange.h"

#include "CRanges.h"

#include "CWorkbook.h"

#include "CWorkbooks.h"

#include "CWorksheet.h"

#include "CWorksheets.h"

4）依次打开以上添加的7个头文件，把每个文件中的#import "C:\\Program Files\\Microsoft Office\\Office12\\EXCEL.EXE" no_namespace 这一行注释掉（否则后面会报错）。另外要把CRange.h文件中第335行VARIANT DialogBox()中的DialogBox换个名字，例如可以换成ExcelDialogBox()。

至此准备工作完毕，剩下的就是把对Excel的操作封装成一个类了。首先创建一个Excel服务器，然后就是根据各个头文件中提供的函数，打开Excel，获取workbook，获取worksheet，选择某个单元格，获取该单元格的值。或者是选择某一片区域（Range）然后将该区域内的值输出在一个二维数组里。

 

#include "CApplication.h"
#include "CRange.h"
#include "CRanges.h"
#include "CWorkbook.h"
#include "CWorkbooks.h"
#include "CWorksheet.h"
#include "CWorksheets.h"

#pragma once
class CExcel
{
public:
	CExcel(void);
	~CExcel(void);
	void OpenExcel(CString path);
	void OpenSheet(CString SheetName);
	CString GetCellValue(long row,long col);
	CString GetCellValueByName(CString rowName,CString colName);
private:
	CApplication app;
	CWorkbooks books;
	CWorkbook book;
	CWorksheets sheets;
	CWorksheet sheet;
	CRange range;
	LPDISPATCH lpDisp;
};

 

 

#include "StdAfx.h"
#include "Excel.h"


CExcel::CExcel(void)
{
	if(!app.CreateDispatch(_T("Excel.Application"),NULL))
	{
		AfxMessageBox(_T("启动Excel服务器失败!"));
	}
	lpDisp = NULL;
}
CExcel::~CExcel(void)
{
	app.ReleaseDispatch();
	books.ReleaseDispatch();
	book.ReleaseDispatch();
	sheets.ReleaseDispatch();
	sheet.ReleaseDispatch();
	range.ReleaseDispatch();
}
void CExcel::OpenExcel(CString path)
{
	  books.AttachDispatch(app.get_Workbooks(),1);
	  COleVariant varPath(path);
	  book.AttachDispatch(books.Add(varPath));
}
void CExcel::OpenSheet(CString SheetName)
{
	sheets.AttachDispatch(book.get_Sheets(),TRUE);
	COleVariant var2(SheetName);
	sheet.AttachDispatch(sheets.get_Item(var2),TRUE);
}
CString CExcel::GetCellValue(long row,long col)
{
	_variant_t varRow(row);
	_variant_t varCol(col);
	COleVariant value;

	range.AttachDispatch(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;
}
CString CExcel::GetCellValueByName(CString rowName,CString colName)
{
	COleVariant value;
	CString strValue;
	long row=0,col=0;
	long re_row=0,re_col=0;
	range.AttachDispatch(sheet.get_Cells(),TRUE);
	for (row=1,col=1;col<range.get_Column();col++)
	{
		value=range.get_Item(_variant_t(row),_variant_t(col));					//返回的类型是VT_DISPATCH 这是一个指针
		range.AttachDispatch(value.pdispVal,TRUE);
		VARIANT value2=range.get_Text();
		CString strValue=value2.bstrVal;
		if (strValue==colName)
			break;
	}
	re_col=col;
	for (row=1,row=1;row<range.get_Row();row++)
	{
		value=range.get_Item(_variant_t(row),_variant_t(col));					//返回的类型是VT_DISPATCH 这是一个指针
		range.AttachDispatch(value.pdispVal,TRUE);
		VARIANT value2=range.get_Text();
		CString strValue=value2.bstrVal;
		if (strValue==rowName)		
			break;
	}
	re_row=row;
	return GetCellValue(re_row,re_col);
}