用C++ MFC实现list控件对Excel的读取和写入

微软为VS与Excel的通信编程提供了专门的接口，在进行对Excel的操作前，应当先导入相应的操作库。

在解决方案资源管理器中右击工程名，选择类向导，选中 类型库中的MFC类，弹出的对话框可以看到里面提供了很多接口，写入和读取的话只需要从中添加六个接口，生成对应的六个类就可以了。六个接口分别为Worksheets,Workbooks,_Worksheet,_Workbook,_Application,Range。自动生成的类如下图所示：

 

在生成的六个类的头文件中，都会有下面这句：

#import "C:\\Program Files\\Microsoft Office\\Office14\\EXCEL.EXE" no_namespace

将每一个头文件中的这一句都注释掉，再添加头文件，在需要用到的程序中添加，我直接新建了一个专门用于文件存取的类，直接在类的头文件中添加下面语句：

#include"CApplication.h"
#include"CRange.h"
#include"CWorkbook.h"
#include"CWorkbooks.h"
#include"CWorksheets.h"
#include"CWorksheet.h"
#include "afxcmn.h"
#include<Shlwapi.h>

此外还要修改一个地方，此时编译的话会有一个错误，双击错误列表中的错误提示，在DialogBox()前面加一个下划线，此时，编译就能通过了。

再为这几个类创建对象，我是直接放在的创建类的头文件中，也可以在使用功能的源文件中做此操作

CApplication app;
CRange range;
CRange usedrange;
CWorkbook book;
CWorkbooks books;
CWorksheets sheets;
CWorksheet sheet;

下面就是列表控件写入和读取Excel文件的具体实现了，我把实现都封装成了专门的函数，可用于以后的调用，先讲将list控件的数据写入Excel：

list控件写入Excel

void ListToExcel(CListCtrl *datalist, CString filepath, CString str[], int rowcount, int colcount);

这是我定义的函数原型，五个参数含义分别为

控件变量，存储路径，表头数组，控件行数，控件列数

任何地方只要往里传这五个参数就可以实现list控件写入Excel，具体代码如下：

void CFileRW::ListToExcel(CListCtrl *datalist, CString filepath, CString str[], int rowcount, int colcount)   //列表控件变量，存储文件路径，列表头的字符串数组，控件行数，控件列数
{
	//list控件数据写入Excel
	COleVariant
		covTrue((short)TRUE),
		covFalse((short)FALSE),
		covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
	//创建Excel 服务器(启动Excel)
	if (!app.CreateDispatch(_T("Excel.Application"), NULL))
	{
		AfxMessageBox(_T("启动Excel服务器失败!"));
		return;
	}

/*得到工作簿容器*/
	books.AttachDispatch(app.get_Workbooks());	
/*增加一个新的工作簿*/
	lpdisp = books.Add(covOptional);
	book.AttachDispatch(lpdisp);
	/*得到工作簿中的Sheet的容器*/
	sheets.AttachDispatch(book.get_Sheets());
	sheet = sheets.get_Item(COleVariant((short)1));   //得到第一个工作表
	CHeaderCtrl   *pmyHeaderCtrl = datalist->GetHeaderCtrl(); //获取表头
	usedrange.AttachDispatch(sheet.get_UsedRange());
try
	{
		//获取当前读取的EXCEL中活动的sheet
		usedrange.AttachDispatch(sheet.get_Cells());
		//清空Excel中的内容
		usedrange.ClearContents();
		//填入列名
		for (int i = 1; i <= colcount; i++)
		{
			range.AttachDispatch(usedrange.get_Item((_variant_t((long)1)),
				(_variant_t)(long)i).pdispVal);
			range.put_Value2((_variant_t (str[i-1])));
		}
//填充新内容
		CString	 str1;
		for (int row = 0; row < rowcount; row++)
		{
			for (int col = 0; col < colcount; col++)
			{
				str1 = datalist->GetItemText(row, col);
				range.AttachDispatch(usedrange.get_Item(_variant_t((long)row + 2),
					_variant_t((long)col + 1)).pdispVal);
				range.put_Value2(_variant_t(str1));
			}
		}
book.SaveAs(COleVariant(filepath), covOptional, covOptional, covOptional,
			covOptional, covOptional, 1, covOptional, covOptional, covOptional,
			covOptional, covOptional);
		release();
		AfxMessageBox(L"保存成功");
		//m_used_range.AttachDispatch(m_used_range.get_Item(COleVariant((long)1), (COleVariant)(long)1).pdispVal);
	}
	catch (CException *e)
	{
		release();
		AfxMessageBox(L"保存失败");
	}

不要忘了资源用完以后需要释放资源，我自己定义了一个资源释放函数release(),具体代码如下：

usedrange.ReleaseDispatch();
	range.ReleaseDispatch();
	sheet.ReleaseDispatch();
	sheets.ReleaseDispatch();
	book.ReleaseDispatch();
	books.ReleaseDispatch();
	app.Quit();
	app.ReleaseDispatch();

以上就是list控件写入Excel函数的源代码，具体函数调用方式如下：

CString strlisthead[3];           //输入列表头
	strlisthead[0] = L"姓名";
    strlisthead[1] = L"学号";
	strlisthead[2] = L"性别";
CString strBookPath = _T("D:\\123.xlsx");      //存储文件路径
int colcount = m_datalist.GetHeaderCtrl()->GetItemCount();   //求控件列数
int rowcount = m_datalist.GetItemCount();           //求控件行数
//函数调用
filerw.ListToExcel(&m_datalist, strBookPath, strlisthead, rowcount, colcount);

 

以上就是list控件写入Excel的功能实现代码，我自己试验过是可以的，如果有什么问题的话欢迎一起讨论。list控件读取显示Excel内容将会在下一篇中写到。

第一次发帖子，说的可能不是特别详细清晰，有什么问题可以在评论里一起讨论，我看到的话会及时回复，希望对大家能够有帮助，谢谢。