MFC---导出 Excel 方法

flowchart 箭头图标 勿删

本方法通过Excel驱动写入

请添加头文件

#include"afxdb.h"

第一步创建Excel文件 安装驱动

CString FileName = L"first.xls";

	CString sDriver = L"MICROSOFT EXCEL DRIVER (*.XLS)"; // Excel安装驱动	

	CString FILEEXCEL;

	FILEEXCEL.Format(L"DRIVER={%s};DSN='''';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s", sDriver, FileName, FileName);

第二步 打开数据库 创建表

CDatabase date;

	CString ssql;

	if (date.OpenEx(FILEEXCEL, CDatabase::noOdbcDialog))

	{

		date.ExecuteSQL(L"CREATE TABLE 记录表(FIR text,FIC text);");    // 字段为：名称+类型

		//插入数据

		for (int i = 0; i < 10; i++)

		{

			ssql.Format(L"INSERT INTO 记录表(FIR,FIC) VALUES('%d','%d');", i, i);

			date.ExecuteSQL(ssql);

		}

		//关闭驱动

		date.ExecuteSQL(ssql);

	}

	else

	{

		AfxMessageBox(L"没有Excel驱动");

	}

请看例子： 代码[完整版]

void CExcelChangeDlg::OnBnClickedButton1()

{

	CString FileName = L"first.xls";

	CString sDriver = L"MICROSOFT EXCEL DRIVER (*.XLS)"; // Excel安装驱动	

	CString FILEEXCEL;

	FILEEXCEL.Format(L"DRIVER={%s};DSN='''';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s", sDriver, FileName, FileName);

	CDatabase date;

	CString ssql;

	if (date.OpenEx(FILEEXCEL, CDatabase::noOdbcDialog))

	{

		date.ExecuteSQL(L"CREATE TABLE 记录表(FIR text,FIC text);");

		//插入数据    // 如需遍历数据库插入请使用类似方法

		for (int i = 0; i < 10; i++)

		{

			ssql.Format(L"INSERT INTO 记录表(FIR,FIC) VALUES('%d','%d');", i, i);

			date.ExecuteSQL(ssql);

		}

		//关闭驱动

		date.ExecuteSQL(ssql);

	}

	else

	{

		AfxMessageBox(L"没有Excel驱动");

	}

	AfxMessageBox(L"导出完成！");

}

完成！！！

如有疑问请置评！！