使用MFC操作EXCEL文件

一、加载

1、 在VC6.0里创建一个MFC工程

2、打开MFCClassWizard窗口(查看—>建立类向导)，选择Automation，单击AddClass按钮，选择Froma type library...，弹出文件选择对话框，之后定位到C:\Program Files\MicrosoftOffice\OFFICE11\EXCEL.EXE，在生成类中添加所有的对象（其实添加需要的即可，为了简便，不出错保留了冗余），如下图。



3、返回编辑器，查看工程文件，可发现多了EXCEL.9H及EXCEL9.CPP两个文件，拷贝出来，放在VS2005需要使用excel的工程文件中。

4. 打开stdafx.h头文件确保包含如下头文件：

#include <afxdisp.h>（这个一般有了）

#include "excel.h" （手动添加这个即可）

5. 打开TestExcel.cpp文件，修改CTestExcelApp::InitInstance()，加入如下代码：

if(!AfxOleInit() ){

AfxMessageBox("初始化Ole出错！");

return FALSE;

}

为保证编译时不产生重复定义错误（可以验证一下是否成功加载，没有也能正常执行），我编译时出现了很多“类重复定义”异常，打开excel.h文件，在文件开始位置加入如下代码：

#if !defined _HEAD_FILE_EXCEL9_

#define _HEAD_FILE_EXCEL9_

相应的，在文件末尾加入：

#endif

成功

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	一定数量的单元格，可对单元格进行单个或多个单元格进行操作。

在MSDN中，很少有excel方面的资料，但是在http://msdn.microsoft.com/zh-cn/ms348103.aspx中可以找到C#控制EXCEL方面的说明



二、操作EXCEL文件

1. 新建一个excel表，并填充两个单元格的实例

[cpp] view
plaincopy

void CTestExcelDlg::OnButton1()

{

//Workbooks—>Workbook —>Worksheets—>Worksheet —>Range

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

Workbooks books; //工作薄集合

_Workbook book; //工作薄

Worksheets sheets; //工作表集合

_Worksheet sheet; //工作表

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

Font font;

Range cols;

/*

COleVariant类为VARIANT数据类型的包装，在自动化程序中，通常都使用

VARIANT数据类型进行参数传递。故下列程序中，函数参数都是通过COleVariant

类来转换了的。

*/

//covOptional 可选参数的VARIANT类型

COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

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

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

return;

}

//获取工作薄集合

books=app.GetWorkbooks();

//添加一个工作薄

book=books.Add(covOptional);

//获取工作表集合

sheets=book.GetSheets();

//获取第一个工作表

sheet=sheets.GetItem(COleVariant((short)1));

//选择工作表中A1:A1单元格区域

range=sheet.GetRange(COleVariant("A1"),COleVariant("A1"));

//设置A1=HELLO EXCEL!"

range.SetValue(COleVariant("HELLO EXCEL!"));

//调整格式，设置粗体

font=range.GetFont();

font.SetBold(COleVariant((short)TRUE));

//选择A2单元格，插入一个公式"=RAND()*100000"，并设置A2数字格式为货币形

式

range=sheet.GetRange(COleVariant("A2"),COleVariant("A2"));

range.SetFormula(COleVariant("=RAND()*100000"));

range.SetNumberFormat(COleVariant("$0.00"));

//选择A:A列，设置宽度为自动适应

cols=range.GetEntireColumn();

cols.AutoFit();

//显示Excel表格，并设置状态为用户可控制

app.SetVisible(TRUE);

app.SetUserControl(TRUE);

m_oExcelApp.SetDisplayAlerts(false);//屏蔽vc关闭excel时跳出的保存对话框

2. 打开一个已有的excel表格实例

[cpp] view
plaincopy

CString strPath;

strPath += "C:\\template.xlt"; // 模板的路径

CFileFind filefind;

if( !filefind.FindFile( strPath ) )

{

AfxMessageBox( "没有找到模版文档，请其查找" );

return;

}

LPDISPATCH lpDisp; //接口指针

books=app.GetWorkbooks();

lpDisp = books.Open(m_filepath,

covOptional, covOptional, covOptional, covOptional,

covOptional, covOptional, covOptional, covOptional,

covOptional, covOptional, covOptional, covOptional,

covOptional, covOptional

); //与的不同，是个参数的，直接在后面加了两个covOptional成功了

book.AttachDispatch(lpDisp);

3. 保存一个excel文件实例

[cpp] view
plaincopy

book.SetSaved(TRUE);

4. 另存一个excel文件实例

[cpp] view
plaincopy

book.SaveAs(COleVariant(m_filename),covOptional,

covOptional,covOptional,

covOptional,covOptional,(long)0,

covOptional,covOptional,covOptional,

covOptional,covOptional); //与的不同，是个参数的，直接在后面加了两个covOptional成功了

5. 释放一个excel文件实例

经试验证实，不释放第二次使用excel时会中断，放在类的析构里面有时调用不到，主动调用最保险。（有没有AttachDispatch（）过都要释放，否则报错）

[cpp] view
plaincopy

//释放对象（相当重要！）

Rang.ReleaseDispatch();

sheet.ReleaseDispatch();

sheets.ReleaseDispatch();

book.ReleaseDispatch();

books.ReleaseDispatch();

//退出程序

app.Quit();

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

app.ReleaseDispatch();

6. 修改一个excel单元格

[cpp] view
plaincopy

range=sheet.GetRange(COleVariant(IndexToString(row,col)),COleVariant(IndexToString(row,col)));

range.SetValue2(COleVariant(value));

7. 取出一个excel单元格

实现Variant数据类型转换为CString类，这个只是一个示例，转换较为简单。

[cpp] view
plaincopy

range=sheet.GetRange(COleVariant(IndexToString(row,col)),COleVariant(IndexToString(row,col)));

COleVariant rValue;

rValue=COleVariant(range.GetValue2());

rValue.ChangeType(VT_BSTR);

return CString(rValue.bstrVal);

8. 还有释放问题是最重要的问题：

首先变量必须全释放，无论当初是否绑定过；

其次，程序释放和程序关闭的顺序必须是

[cpp] view
plaincopy

app.Quit();

app.ReleaseDispatch();

如果顺如颠倒如下：

app.ReleaseDispatch();

app.Quit();

出现的后果是程序关闭后，excel进程仍然运行，所以无法正常打开程序曾经打开excel表格。

附录（操作类源码）：

[cpp] view
plaincopy

#include "../Stdafx.h"

#include "OptExcel.h"

#include "excel.h"

#include "comdef.h"





_Application app;

Workbooks books;

_Workbook book;

Worksheets sheets;

_Worksheet sheet;

Range range;

Range cell;

Font font;



COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);





////////////////////////////////////////////////////////////////////////

///Function: COptExcel

///Description: 初始化函数，初始化中附加excel应用程序

///Call: app.CreateDispatch(_T("Excel.Application")

////////////////////////////////////////////////////////////////////////

COptExcel::COptExcel(void)

{

if (::CoInitialize( NULL ) == E_INVALIDARG)

{

AfxMessageBox(_T("初始化Com失败!"));

return;

}



//验证office文件是否可以正确运行



if( !app.CreateDispatch(_T("Excel.Application")) )

{

AfxMessageBox(_T("无法创建Excel应用！"));

return;

}

//在程序执行文件路径名中，剪掉执行文件名，得到程序路径，追加模板文件名，得到模板完整路径





}





////////////////////////////////////////////////////////////////////////

///Function: ~COptExcel

///Description: 析构函数，释放对象，非常重要，不全部释放，占用内存，下

/// 一次使用此类时会中断

///Call: ReleaseDispatch()

////////////////////////////////////////////////////////////////////////

COptExcel::~COptExcel(void)

{







books.ReleaseDispatch();

book.ReleaseDispatch();

sheets.ReleaseDispatch();

sheet.ReleaseDispatch();

range.ReleaseDispatch();

font.ReleaseDispatch();

cell.ReleaseDispatch();



app.Quit();



app.ReleaseDispatch();

::CoUninitialize();

}





////////////////////////////////////////////////////////////////////////

///Function: OpenExcelBook

///Description: 打开表名为filename的文件，注意，文件路径非自动生成，以后

/// 考虑从下处理方法

///Call: GetAppPath()

///Input: CString filename 文件名

////////////////////////////////////////////////////////////////////////

bool COptExcel::OpenExcelBook(CString filename)

{

CFileFind filefind;

if( !filefind.FindFile(filename) )

{

AfxMessageBox(_T("文件不存在"));

return false;

}

LPDISPATCH lpDisp; //接口指针

books=app.GetWorkbooks();

lpDisp = books.Open(filename,

covOptional, covOptional, covOptional, covOptional,

covOptional, covOptional, covOptional, covOptional,

covOptional, covOptional, covOptional, covOptional,

covOptional, covOptional

); //与office 2000的不同，是个参数的，直接在后面加了两个covOptional成功了

book.AttachDispatch(lpDisp);

sheets=book.GetSheets();

sheet=sheets.GetItem(COleVariant((short)1)); //与的不同，是个参数的，直接在后面加了两个covOptional成功了

return true;

}

void COptExcel::NewExcelBook()

{

books=app.GetWorkbooks();

book=books.Add(covOptional);

sheets=book.GetSheets();

sheet=sheets.GetItem(COleVariant((short)1)); //与的不同，是个参数的，直接在后面加了两个covOptional成功了

}



////////////////////////////////////////////////////////////////////////

///Function: OpenExcelApp

///Description: 打开应用程序（要注意以后如何识别用户要打开的是哪个文件）

////////////////////////////////////////////////////////////////////////

void COptExcel::OpenExcelApp(void)

{

app.SetVisible(TRUE);

app.SetUserControl(TRUE);

}



////////////////////////////////////////////////////////////////////////

///Function: SaveExcel

///Description: 用于打开数据文件，续存数据后直接保存

////////////////////////////////////////////////////////////////////////

void COptExcel::SaveExcel(void)

{

book.SetSaved(TRUE);

}



////////////////////////////////////////////////////////////////////////

///Function: SaveAsExcel

///Description: 保存excel文件

////////////////////////////////////////////////////////////////////////

void COptExcel::SaveAsExcel(CString filename)

{

book.SaveAs(COleVariant(filename),covOptional,

covOptional,covOptional,

covOptional,covOptional,(long)0,covOptional,covOptional,covOptional,

covOptional,covOptional);

}





////////////////////////////////////////////////////////////////////////

///Function: SetCellValue

///Description: 修改单元格内的值

///Call: IndexToString() 从(x,y)坐标形式转化为“A1”格式字符串

///Input: int row 单元格所在行

/// int col 单元格所在列

/// int Align 对齐方式默认为居中

////////////////////////////////////////////////////////////////////////

void COptExcel::SetCellValue(int row, int col,int Align)

{

range=sheet.GetRange(COleVariant(IndexToString(row,col)),COleVariant(IndexToString(row,col)));

range.SetValue2(COleVariant(value));

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

cell.SetHorizontalAlignment(COleVariant((short)Align));

}



////////////////////////////////////////////////////////////////////////

///Function: GetCellValue

///Description: 得到的单元格中的值

///Call: IndexToString() 从(x,y)坐标形式转化为“A1”格式字符串

///Input: int row 单元格所在行

/// int col 单元格所在列

///Return: CString 单元格中的值

////////////////////////////////////////////////////////////////////////

CString COptExcel::GetCellValue(int row, int col)

{

range=sheet.GetRange(COleVariant(IndexToString(row,col)),COleVariant(IndexToString(row,col)));

COleVariant rValue;

rValue=COleVariant(range.GetValue2());

rValue.ChangeType(VT_BSTR);

return CString(rValue.bstrVal);

}

////////////////////////////////////////////////////////////////////////

///Function: SetRowHeight

///Description: 设置行高

///Call: IndexToString() 从(x,y)坐标形式转化为“A1”格式字符串

///Input: int row 单元格所在行

////////////////////////////////////////////////////////////////////////

void COptExcel::SetRowHeight(int row, CString height)

{

int col = 1;

range=sheet.GetRange(COleVariant(IndexToString(row,col)),COleVariant(IndexToString(row,col)));

range.SetRowHeight(COleVariant(height));

}

////////////////////////////////////////////////////////////////////////

///Function: SetColumnWidth

///Description: 设置列宽

///Call: IndexToString() 从(x,y)坐标形式转化为“A1”格式字符串

///Input: int col 要设置列宽的列

/// CString 宽值

////////////////////////////////////////////////////////////////////////

void COptExcel::SetColumnWidth(int col,CString width)

{

int row = 1;

range=sheet.GetRange(COleVariant(IndexToString(row,col)),COleVariant(IndexToString(row,col)));

range.SetColumnWidth(COleVariant(width));

}



////////////////////////////////////////////////////////////////////////

///Function: SetRowHeight

///Description: 设置行高

///Call: IndexToString() 从(x,y)坐标形式转化为“A1”格式字符串

///Input: int row 单元格所在行

////////////////////////////////////////////////////////////////////////

CString COptExcel::GetColumnWidth(int col)

{

int row = 1;

range=sheet.GetRange(COleVariant(IndexToString(row,col)),COleVariant(IndexToString(row,col)));

VARIANT width = range.GetColumnWidth();

CString strwidth;

strwidth.Format(CString((LPCSTR)(_bstr_t)(_variant_t)width));

return strwidth;

}



////////////////////////////////////////////////////////////////////////

///Function: GetRowHeight

///Description: 设置行高

///Call: IndexToString() 从(x,y)坐标形式转化为“A1”格式字符串

///Input: int row 要设置行高的行

/// CString 宽值

////////////////////////////////////////////////////////////////////////

CString COptExcel::GetRowHeight(int row)

{

int col = 1;

range=sheet.GetRange(COleVariant(IndexToString(row,col)),COleVariant(IndexToString(row,col)));

VARIANT height = range.GetRowHeight();

CString strheight;

strheight.Format(CString((LPCSTR)(_bstr_t)(_variant_t)height));

return strheight;

}





////////////////////////////////////////////////////////////////////////

///Function: IndexToString

///Description: 得到的单元格在EXCEL中的定位名称字符串

///Input: int row 单元格所在行

/// int col 单元格所在列

///Return: CString 单元格在EXCEL中的定位名称字符串

////////////////////////////////////////////////////////////////////////

CString COptExcel::IndexToString( int row, int col )

{

CString strResult;

if( col > 26 )

{

strResult.Format(_T("%c%c%d"),'A' + (col-1)/26-1,'A' + (col-1)%26,row);

}

else

{

strResult.Format(_T("%c%d"), 'A' + (col-1)%26,row);

}

return strResult;

}



////////////////////////////////////////////////////////////////////////

///Function: LastLineIndex

///Description: 得到表格总第一个空行的索引

///Return: int 空行的索引号

////////////////////////////////////////////////////////////////////////

int COptExcel::LastLineIndex()

{

int i,j,flag=0;

CString str;

for(i=1;;i++)

{

flag = 0;

//粗略统计，认为前列都没有数据即为空行

for(j=1;j<=5;j++)

{

str.Format(_T("%s"),this->GetCellValue(i,j).Trim());

if(str.Compare(_T(""))!=0)

{

flag = 1;

break;

}



}

if(flag==0)

return i;



}

}