MFC 创建和操作Excel2007 文件

目标：
生成一个excel文件，该文件可以使用office2007打开，也可以使用office2003打开，而不弹出提示；

实现数据写入自动换行，换列的操作；

实现写入实数、复数、字符串的操作；

实现在指定位置，指定范围写入的操作。

该程序在VS2005，VS2008，VS2010测试通过！

步骤：

我们首先建立一个基于对话框的MFC程序，我将程序名命名为：GenenalCreateExcelFileDlg。然后打开界面，拖拽如图所示的四个static控件以及四个button控件。将界面更名为：“Excel测试程序”。其他界面的细节略过。

第一步：导入需要的库文件；

打开类向导，选择“类型库中的MFC类”如图：

接着我们在打开的对话框中选择源：注册表，类型库为：Excel 12.0。选择的库文件如图所示

第二步：修改库文件中的部分语句，否则编译后讲弹出大量bug；

上述步骤完成后，编译一下发现很多bug，此时，注释掉，步骤一中添加的库文件的#import语句：“//#import "E:\\Program Files\\Office2007\\Office12\\EXCEL.EXE" no_namespace”，同时，将这些库文件中“DialogBox()”更改为“_DialogBox()”，以防止重名冲突。

第三步：设计思路：excel2003 的行共有：256列，65536行，2007 更是有：1048576行、16384列；我们需要往不同的行不同的列写入数据，手动指定的话，谁也受不了，但是，excel列的排序符合26进制，因此，一个小小的函数，就可以让输入换列，而行的规律就是简单的十进制，指定了列的话往该列的不同行写不是问题。因此程序中有一个inline函数。再者，生成excel一般的思维就是：生成一个空白文件，往该文件中写入不同的数据，然后保存到指定位置即可。程序中实现这些函数即可。

第四步：设计相关函数：

首先添加一个操作excel的类：CMyExcel。其头文件如下：

#include "CApplication.h"#include "CRange.h"#include "CWorkbook.h"#include "CWorksheet.h"#include "CWorkbooks.h"#include "CWorksheets.h"#include <string>using namespace std;class CMyExcel{private://标记Excel对象的变量CApplication m_app;CWorkbooks m_books;CWorkbook m_book;CWorksheets m_sheets;//标记excel中当前写入的标签页CWorksheet m_sheet;CRange m_range;//标记写入的范围COleVariant m_covTrue,m_covFalse,m_coverOptional,m_filePath; long m_rowCount;//标记Excel当前写入的列数long m_sheetCount;//标记Excel使用了多少标签页的变量long m_totalRow;//标记Excel总列数的变量long m_totalCol;//标记Excel总行数的变量char *m_colPst;//一个含有A-Z的数组//列计数器long m_matricImagCount;//注释信息计数器，写完注释后写入数据long m_comCount;public:CMyExcel();virtual ~CMyExcel();//string 字符串转换为CStringCString String2CString(const string& inStr);//CString 字符串转换为stringstring CString2String(const CString & inStr);//打开文件用于读写//输入：文件名，打开模式//输出：文件打开状态int openfile(const string& filepath ,int mode);//写入实数组//输入：文件名，待写入文件的内容指针，待写入的行，待写入的列//输出：文件写入状态int writeMatrix(const string &matName ,double *mateData,long row,long col);//写入复数组//输入文件名，待写入文件的内容实部指针，待写入文件的内容虚部指针，待写入的行，待写入的列//输出：文件写入状态int writeMatrix(const string &matName ,double *mateDataReal,double *mateDataImag,long row,long col);//写入字符串//在Excel的指定范围生成含有指定字符串的文件int writeString(const string& str,int& col1,int& col2,int& row1,int& row2);//一个计算当前数据输入列的函数(输入到指定列需要得到列的标题：A，AX等，而他们满足26进制)inline void rowName(CString &mRowName,const long& mCount ){if(mCount < 27 ){mRowName += m_colPst[mCount];}else{int i = mCount / 26;int j = mCount %26;mRowName += m_colPst[i];mRowName += m_colPst[j];}}};

其实现文件如下：

#include"stdafx.h"#include"MyExcel.h"CMyExcel::CMyExcel():m_rowCount(1),m_sheetCount(1),m_totalCol(256),m_totalRow(65536),m_matricImagCount(1),m_comCount(1){//获取系统的excel句柄if(!m_app.CreateDispatch(TEXT("Excel.Application"))){AfxMessageBox(_T("Could not start Excel and get Application object !"));return;}m_covTrue = COleVariant((short)TRUE);m_covFalse = COleVariant((short)FALSE);m_coverOptional = COleVariant((long)DISP_E_PARAMNOTFOUND,VT_ERROR);m_books = m_app.get_Workbooks();m_book = m_books.Add(m_coverOptional);m_sheets = m_book.get_Sheets();//m_colPst初始化为A-Z，其中下表为0的为一个无意义的占位符m_colPst = new char[27];m_colPst[0] = '#';for(int i = 1;i<27;i++){m_colPst[i]=64+i;}}CMyExcel::~CMyExcel(){//在这里保存生成的excelm_book.SaveAs(m_filePath,_variant_t((long)56),//该参数使得保存的时候使用兼容模式，避免了使用excel2003打开的时候弹出提示框m_coverOptional,m_coverOptional,m_coverOptional,m_coverOptional,0,m_coverOptional,m_coverOptional,m_coverOptional,m_coverOptional,m_coverOptional);//释放占用的excel资源m_book.ReleaseDispatch();m_books.ReleaseDispatch();m_app.Quit();m_app.DetachDispatch();//将一些计数器变量复原m_comCount = 1;m_matricImagCount = 1;}CString CMyExcel::String2CString(const string& inStr){int nLen = (int)inStr.length()+1;int nwLen = MultiByteToWideChar(CP_ACP,0,inStr.c_str(),nLen,NULL,0);TCHAR* lpszOut = new TCHAR[nwLen];//最多1024字节MultiByteToWideChar(CP_ACP,0,inStr.c_str(),nLen,lpszOut,nwLen);CString outStr;outStr += lpszOut;delete []lpszOut;lpszOut = NULL;return outStr;}string CMyExcel::CString2String(const CString & inStr){int nLength = 0;//获取需要的字节数nLength = WideCharToMultiByte(CP_ACP,NULL,inStr,-1,NULL,0,NULL,NULL);//申请char存储空间char *buffer = (char*)malloc(nLength);//转换WideCharToMultiByte(CP_ACP,NULL,inStr,-1,buffer,nLength,NULL,NULL);string str(buffer);//释放缓存区free(buffer);return str;}int CMyExcel::openfile(const string& filepath ,int mode){if(m_books){m_filePath = COleVariant(String2CString(filepath));return 1;}elsereturn -1;}int CMyExcel::writeMatrix(const string &matName ,double *mateData,long row,long col){m_sheet = m_sheets.get_Item(COleVariant((short)m_sheetCount));//用于标记当前写入的是哪一列：A、B、C、......long matrixCt = 0;//指定当前写入的行：需要先写入一些注释信息（m_comcount计数），然后在写入数据，因此将他们赋值即可m_rowCount = m_comCount;//标记当前列标题的变量：比如说（A，AX，BX等）CString locPst(_T(""));//标记保存位置的变量CString position0(_T(""));CString locPstReal(_T(""));//超过列数就不继续if(m_matricImagCount > m_totalCol){return -1;}matrixCt = m_matricImagCount++;CString mRow(_T("row="));CString mCol(_T("col="));CString temp;temp.Format(_T("%ld"),row);mRow = mRow + temp;temp.Empty();temp.Format(_T("%ld"),col);mCol = mCol + temp;rowName(locPst,matrixCt);position0 = locPst;temp.Empty();temp.Format(_T("%ld"),m_rowCount++);position0+=temp;CString myMatName(matName.c_str());m_range = m_sheet.get_Range(COleVariant(position0),COleVariant(position0));m_range.put_Value2(_variant_t(myMatName));position0 = locPst;temp.Empty();temp.Format(_T("%ld"),m_rowCount++);position0+=temp;m_range = m_sheet.get_Range(COleVariant(position0),COleVariant(position0));m_range.put_Value2(COleVariant(TEXT("----")));//数据写入文件for(long iRow = 0;iRow < row;iRow++){locPstReal.Empty();long tmpCol = matrixCt++;rowName(locPstReal, tmpCol);position0 = locPstReal;long rowCount = m_rowCount;for(long icol = 0;icol<col; icol++){long idx = iRow*col + icol;position0 = locPst;temp.Empty();temp.Format(_T("%ld"),rowCount++);position0 += temp;m_range = m_sheet.get_Range(COleVariant(position0),COleVariant(position0));m_range.put_Value2(COleVariant(mateData[idx]));//超过行数，就不再写入文件if(rowCount > m_totalRow){break;}}}m_comCount = 1;return 1;}int CMyExcel::writeMatrix(const string &matName ,double *mateDataReal,double *mateDataImag,long row,long col){m_sheet = m_sheets.get_Item(COleVariant((short)m_sheetCount));//用于标记当前写入的是哪一列：A、B、C、......long matrixCt = 0;//指定当前写入的行：需要先写入一些注释信息（m_comcount计数），然后在写入数据，因此将他们赋值即可m_rowCount = m_comCount;//标记当前列标题的变量：比如说（A，AX，BX等）CString locPstReal(_T(""));CString locPstImge(_T(""));//标记写入位置的变量：实数部分、虚数部分CString colReal(_T(""));CString colImge(_T(""));//描述信息CString mRow(_T("row = "));CString mCol(_T("col = "));CString temp;temp.Format(_T("%ld"),row);mRow = mRow + temp;temp.Empty();temp.Format(_T("%ld"),col);mCol = mCol + temp;//超过列数就不继续写if(m_matricImagCount > m_totalCol){return -1;}matrixCt = m_matricImagCount;m_matricImagCount += (row * 2);rowName(locPstReal, matrixCt);colReal = locPstReal;temp.Empty();temp.Format(_T("%ld"),m_rowCount++);colReal += temp;CString myMatName(matName.c_str());m_range = m_sheet.get_Range(COleVariant(colReal),COleVariant(colReal));m_range.put_Value2(_variant_t(myMatName));colReal = locPstReal;temp.Empty();temp.Format(_T("%ld"),m_rowCount++);colReal+=temp;m_range = m_sheet.get_Range(COleVariant(colReal),COleVariant(colReal));m_range.put_Value2(COleVariant(TEXT("--------")));//数据写入文件for(long iRow = 0;iRow < row;iRow++){locPstReal.Empty();locPstImge.Empty();long tmpCol = matrixCt;rowName(locPstReal, tmpCol);rowName(locPstImge, tmpCol+1);matrixCt += 2;colReal = locPstReal;colImge = locPstImge;long rowCount = m_rowCount;for(long icol = 0;icol<col; icol++){long idx = iRow*col + icol;colReal = locPstReal;colImge = locPstImge;temp.Empty();temp.Format(_T("%ld"),rowCount++);colReal += temp;colImge += temp;//写入实数m_range = m_sheet.get_Range(COleVariant(colReal),COleVariant(colReal));m_range.put_Value2(COleVariant(mateDataReal[idx]));//写入虚数m_range = m_sheet.get_Range(COleVariant(colImge),COleVariant(colImge));m_range.put_Value2(COleVariant(mateDataImag[idx]));//超过行数，就不再写入文件if(rowCount > m_totalRow){break;}}}m_comCount = 1;return 1;}int CMyExcel::writeString(const string& str,int& col1,int& row1,int& col2,int& row2){m_sheet = m_sheets.get_Item(COleVariant((short)m_sheetCount));//获取矩形框走上角写入位置:E3CString locPst11(_T(""));rowName(locPst11,row1);CString temp11(_T(""));CString position11(_T(""));position11= locPst11;temp11.Format(_T("%ld"),col1);position11 += temp11;//获取矩形框走上角写入位置:E8CString locPst12(_T(""));rowName(locPst12,row1);CString temp12(_T(""));CString position12(_T(""));position12 = locPst12;temp12.Format(_T("%ld"),col2);position12 += temp12;//获取右上角写入位置 :P3CString locPst21(_T(""));rowName(locPst21,row2);CString temp21(_T(""));CString position21(_T(""));position21 = locPst21;temp21.Format(_T("%ld"),col1);position21 += temp21;//获取右下角写入位置 :P8CString locPst22(_T(""));rowName(locPst22,row2);CString temp22(_T(""));CString position22(_T(""));position22 = locPst22;temp21.Format(_T("%ld"),col2);position22 += temp21;CString myMatName(str.c_str());//首先将数据写入E3这一格中m_range = m_sheet.get_Range(COleVariant(position11),COleVariant(position11));m_range.put_Value2(_variant_t(myMatName));//然后合并E3-P8，形成矩形框m_range = m_sheet.get_Range(COleVariant(position11),COleVariant(position22));//这里就是“m_coverOptional”用到的地方！m_range.Merge(m_coverOptional);return 1;}

至此，excel的操作都已经实现完毕，有些注释给出了一个参数的定义，比如savsas函数，有兴趣的读者可以将里面的某些参数置换点，看看我在注释后面说的现象到底是什么。

第五步：测试程序：

双击dialog界面中的“实数”按钮，看看写入20列*1000行的效果。代码实现如下：

void CGenenalCreateExcelFileDlg::OnBnClickedRealdigital(){// TODO: 在此添加控件通知处理程序代码//打开一个文件保存对话框string filePathStr("D:\\ValExcel.xls");string comment("");CMyExcel Demon;//在用户路径下生成文件//将鼠标形状更改为漏洞状态theApp.BeginWaitCursor();if(!Demon.openfile(filePathStr,2)){MessageBox(_T("数据导出失败！"));}//我们往里面写入20列，每列1000行int iCount = 1;//添加一个时钟计数器，看代码导出消耗多少时间DWORD start_time=::GetTickCount();for(;iCount<=20;iCount++){char  valStr[10];comment.clear();sprintf_s(valStr,"%i",iCount);comment += "第";comment +=valStr;comment +="列";Demon.writeMatrix(comment,mateDataReal,1,1000);}DWORD end_time=::GetTickCount();theApp.EndWaitCursor();char timecost[1024];sprintf_s(timecost,"%lu",end_time-start_time);CString msg = _T("Excel生成完成，耗时：");msg += Demon.String2CString(timecost);msg += _T("毫秒");MessageBox(msg);}

在该代码中，生成路径为D盘根目录，在生成过程中，将鼠标形状更改为等待状态的一个漏洞（XP系统可见），或者一个圈圈（win7系统可见），并且把生成时间打印了出来，效果图如图

，生成的文件效果图如图所示

双击dialog界面中的“复数”按钮，看看写入10列*1000行复数的效果。因为复数有一个实部和一个虚部，因此一次需要写两列，代码实现如下：

void CGenenalCreateExcelFileDlg::OnBnClickedImagedigital(){// TODO: 在此添加控件通知处理程序代码//打开一个文件保存对话框string filePathStr("D:\\MatExcer.xls");string comment("");CMyExcel Demon;//在用户路径下生成文件//将鼠标形状更改为漏洞状态theApp.BeginWaitCursor();if(!Demon.openfile(filePathStr,2)){MessageBox(_T("数据导出失败！"));}//我们往里面写入10列，每列1000行int iCount = 1;//添加一个时钟计数器，看代码导出消耗多少时间DWORD start_time=::GetTickCount();for(;iCount<=10;iCount++){char  valStr[10];comment.clear();sprintf_s(valStr,"%i",iCount);comment += "第";comment +=valStr;comment +="列复数";Demon.writeMatrix(comment,mateDataReal,mateDataImge,1,1000);}DWORD end_time=::GetTickCount();theApp.EndWaitCursor();char timecost[1024];sprintf_s(timecost,"%lu",end_time-start_time);CString msg = _T("Excel生成完成，耗时：");msg += Demon.String2CString(timecost);msg += _T("毫秒");MessageBox(msg);}

双击dialog界面中的“字符串”按钮，看看写入字符串的效果。我们在指定的左上角（3，E）、右下角（8，P）的矩形框范围内写入，代码实现如下：

void CGenenalCreateExcelFileDlg::OnBnClickedStr(){// TODO: 在此添加控件通知处理程序代码string filePathStr("D:\\StrExcel.xls");string comment("这是一个简单的测试程序！");CMyExcel Demon;//在用户路径下生成文件if(!Demon.openfile(filePathStr,2)){MessageBox(_T("数据导出失败！"));}//尝试在Excel的左上角（3，E）、右下角（8，P）的矩形框范围内写入数据！int col1 = 3;int row1 = 5;int col2 = 8;int row2 = 16;Demon.writeString(comment,col1,row1,col2,row2);CString msg = _T("含有字符串的Excel生成完成！");MessageBox(msg);}

双击dialog界面中的“综合生成”按钮，看看写入一列实数和一列复数的效果。代码实现如下：

void CGenenalCreateExcelFileDlg::OnBnClickedTotal(){// TODO: 在此添加控件通知处理程序代码string filePathStr("D:\\TotalExcel.xls");string comment1("一列实数！");string comment2("一列复数！");CMyExcel Demon;//在用户路径下生成文件if(!Demon.openfile(filePathStr,2)){MessageBox(_T("数据导出失败！"));}//仅仅写入一列实数以及一列复数，作为测试！Demon.writeMatrix(comment1,mateDataReal,1,1000);Demon.writeMatrix(comment2,mateDataReal,mateDataImge,1,1000);CString msg = _T("Excel生成完成！");MessageBox(msg);}

其他问题分析：我特意在复数以及实数写入的代码段中添加了时间测试语句，从图片中可以看到，但10*1000复数或者20*1000实数的时候，时间都不是很理想，假如数据换成其他的，如100列*60000行的时候，时间的花费就更大了，因此上述程序在数据量小的时候是有效的，但数据量大了的时候是不太理想的。改进的方法是想生成CSV文件，然后将它另存为Excel关于这方面的论述，将在下一篇博客中提及。

由于时间有限，有些注释可能不是非常理想，欢迎提出不同见解。

该文章使用到的源码：点击打开链接