VS2010 MFC中对Excel进行读写操作
实现一个对话框，listControl中显示随机数，对话框中有导入导出按钮，点击导出，将list中的数据写入Excel，点击导出将Excel中的数据读出并显示到新的list列表中。
目录
创建MFC项目
引入Excel资源类
获取数据并将数据写入Excel
读取Excel并显示到列表
创建MFC项目
新建一个MFC项目，设置项目保存位置
点击确定，点击下一步，选择对话框形式
引入Excel资源类
创建好项目之后，右键项目名（或则右键对话框添加类），添加类
选择TypeLib中的MFC类
来源选择文件，位置选择office安装路径下的EXCEL.EXE，安装office时若没有修改路径，一般和下图一致，添加_Application、_Workbook、_Worksheet、Range、Workbooks、Worksheels，这几个一般够用了。
点击完成之后，项目中会出现相应的头文件
在对话框头文件中导入头文件
#include "CApplication.h"
#include "CRange.h"
#include "CWorkbook.h"
#include "CWorkbooks.h"
#include "CWorksheet.h"
#include "CWorksheets.h"
#include "ShowData.h"依次打开并注释这些头文件中如下代码
//#import "C:\\Program Files\\Microsoft Office\\root\\Office16\\EXCEL.EXE" no_namespace打开CRange.h
将DialogBox改为_DialogBox到这里可以成功运行项目了
获取数据并将数据写入Excel
在对话框中添加两个Button，作为导入导出按钮，添加ListControl，list控件的使用可以参考我的另一篇文章
http://t.csdn.cn/s85Vp
在对话款的OnInitDialog方法中添加向列表中写入数据的代码
//获取随机数
int data[100];
srand(time(0));
for(int i=0;i<100;i++)
{
data[i] = 10 + rand() % 200;
}
m_list.SetExtendedStyle(m_list.GetExtendedStyle()
| LVS_EX_GRIDLINES |LVS_EX_FULLROWSELECT |LVS_EX_DOUBLEBUFFER);
//插入标题
m_list.InsertColumn(0, TEXT("行/列"), LVCFMT_LEFT, 50);
for (int i = 1;i<11;i++)
{
CString str;
str.Format(TEXT("%d列"), i );
m_list.InsertColumn(i, str, LVCFMT_LEFT, 40);
}
int temp = 0;
//插入正文内容，先确定行，再确定列
for (int i = 0; i < 10; i++)
{
CString str;
str.Format(TEXT("第%d行"), i+1 );
//确定行
m_list.InsertItem(i, str);
}
//填入数据
CString value;
for (int i=0; i<10; i++)
{
for (int j=0;j<10; j++)
{
value.Format(TEXT("%d"), data[i*10+j]);
m_list.SetItemText(i, j+1, value);
}
}运行可以得到
在导出按钮的响应方法中添加将数据写入Excel的方法
COleVariant
covTrue((short)TRUE),
covFalse((short)FALSE),
covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
CApplication app; //创建应用实例
CWorkbooks books; //多个工作簿
CWorkbook book; //单个工作簿
CWorksheets sheets; //多个工作表
CWorksheet sheet; //单个工作表
CRange range;
//app.put_DisplayAlerts(VARIANT_FALSE); // 禁用 Excel 的警告对话框显示
if (!app.CreateDispatch(_T("Excel.Application")))
{
MessageBox(_T("创建失败！"));
return;
}
char path[MAX_PATH];
GetCurrentDirectory(MAX_PATH, (TCHAR*)path);//获取当前路径
CString strExcelFile = (TCHAR*)path;
CString strdevName = _T("\\data.xls"); //xlsx也行
strExcelFile += strdevName;
books = app.get_Workbooks();
book = books.Add(covOptional);//创建工作簿
sheets = book.get_Worksheets(); //得到此工作簿下所有的工作表对象
sheet = sheets.get_Item(COleVariant((short)1)); //获取第一个工作表对象
//得到全部Cells
range.AttachDispatch(sheet.get_Cells());
for (int setnum = 0; setnum < 10; setnum++) //GetItemCount()列表的里面的条目数量, 横着的 行
{
for (int num = 0; num < 10; num++)
{
range.put_Item(_variant_t((long)(setnum + 1)), _variant_t((long)(num + 1)),
_variant_t(m_list.GetItemText(setnum , num+1)));//GetItemText()获取第setnum行，num+1列的文本
}
}
//保存
book.SaveCopyAs(COleVariant(strExcelFile)); //SaveCopyAs在strFile路径下保存为指定格式.xlsx的文件
book.put_Saved(TRUE); //将Workbook的保存状态设置为已保存，即不让系统提示是否人工保存
app.put_Visible(TRUE); //设置表可见性
//释放对象
range.ReleaseDispatch();
sheet.ReleaseDispatch();
sheets.ReleaseDispatch();
book.ReleaseDispatch();
books.ReleaseDispatch();
app.ReleaseDispatch();
app.Quit();现在运行点击导出按钮即可将数据写入Excel
读取Excel并显示到列表
在资源视图中添加一个新的Dlg，给这个对话框添加一个类 CShowData，并添加一个list Control，用来显示从Excel中读出的数据
在原来的对话框头文件中创建ShowData对象，用来显示这个对话框。
CShowData showDataDlg;在导出按钮的响应方法中添加读取Excel的方法，并将数据写入数组中，待会就可以将数组中的数据显示在列表里了（当然也可以读数据的同时将数据写入列表，不用数组存储）
COleVariant
covTrue((short)TRUE),
covFalse((short)FALSE),
covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
CApplication app;
CRange range;
COleVariant vResult;
if (!app.CreateDispatch(_T("Excel.Application")))
{
MessageBox(_T("创建失败！"));
return;
}
char path[MAX_PATH];
GetCurrentDirectory(MAX_PATH, (TCHAR*)path);//获取当前路径
CString strExcelFile = (TCHAR*)path;
CString strdevName = _T("\\data.xls"); //xls也行
strExcelFile += strdevName;
CWorkbooks books = app.get_Workbooks();
// 按文件路径打开现有的工作簿
CWorkbook book = books.Open(strExcelFile, covOptional, covOptional,
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional);
CWorksheets sheets = book.get_Worksheets();
CWorksheet sheet = sheets.get_Item(COleVariant((short)1));
//获取有效行号
range = sheet.get_UsedRange();
range = range.get_Rows();
long rows = range.get_Count();
//行号加一可以得到这个电容对应的工作表，（m_Col-1）*3可以得到这个电容的数据
for (long i = 1; i < rows + 1; i++)
{
for (int j=1; j<11; j++)
{
range.AttachDispatch(sheet.get_Cells());
range.AttachDispatch(range.get_Item(COleVariant(i), COleVariant((long)j)).pdispVal); //第一变量是行，第二个变量是列，即第i行第j列
vResult = range.get_Value2();
showDataDlg.listData[(i-1)*10+(j-1)] = vResult.dblVal;
}
}
books.Close();
app.Quit();
//释放对象
range.ReleaseDispatch();
sheet.ReleaseDispatch();
sheets.ReleaseDispatch();
book.ReleaseDispatch();
books.ReleaseDispatch();
app.ReleaseDispatch();
//渲染showData对话框
showDataDlg.DoModal();在ShowData.cpp的OnInitDialog方法中将数据写入列表
m_list.SetExtendedStyle(m_list.GetExtendedStyle()
| LVS_EX_GRIDLINES |LVS_EX_FULLROWSELECT |LVS_EX_DOUBLEBUFFER);
//插入标题
m_list.InsertColumn(0, TEXT("行/列"), LVCFMT_LEFT, 50);
for (int i = 1;i<11;i++)
{
CString str;
str.Format(TEXT("%d列"), i );
m_list.InsertColumn(i, str, LVCFMT_LEFT, 40);
}
int temp = 0;
//插入正文内容，先确定行，再确定列
for (int i = 0; i < 10; i++)
{
CString str;
str.Format(TEXT("第%d行"), i+1 );
//确定行
m_list.InsertItem(i, str);
}
//填入数据
CString value;
for (int i=0; i<10; i++)
{
for (int j=0;j<10; j++)
{
value.Format(TEXT("%d"), listData[i*10+j]);
m_list.SetItemText(i, j+1, value);
}
}到此为止，正常就能实现读写Excel，并将数据写入列表了。
