张小帅的专栏

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

本文中使用的环境是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 onceclass 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);}

真正的停下来，享受自我的体验时刻，也许浮光掠影，