VC2005生成Excel文件样例
来源:互联网 发布:淘宝电商培训靠谱吗 编辑:程序博客网 时间:2024/05/16 19:27
#include "afxdb.h"////////////////////////////////////////////////////////////////////////////////名称:OnWriteexcel//功能:创建并写入数据到Excel文件中//作者:徐景周(jingzhou_xu@163.net)//组织:未来工作室(Future Studio)//日期:2002.9.1/////////////////////////////////////////////////////////////////////////////void CRWExcelDlg::OnWriteexcel() { CDatabase database; CString sDriver = "MICROSOFT EXCEL DRIVER (*.XLS)"; // Excel安装驱动 CString sExcelFile,sPath; CString sSql; //获取主程序所在路径,存在sPath中 GetModuleFileName(NULL,sPath.GetBufferSetLength (MAX_PATH+1),MAX_PATH); sPath.ReleaseBuffer (); int nPos; nPos=sPath.ReverseFind ('\\'); sPath=sPath.Left (nPos); sExcelFile = sPath + "\\Demo.xls"; // 要建立的Excel文件 try { // 创建进行存取的字符串 sSql.Format("DRIVER={%s};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s",sDriver, sExcelFile, sExcelFile); // 创建数据库 (既Excel表格文件) if( database.OpenEx(sSql,CDatabase::noOdbcDialog) ) { // 创建表结构(姓名、年龄) sSql = "CREATE TABLE Exceldemo (Name TEXT,Age NUMBER)"; database.ExecuteSQL(sSql); // 插入数值 sSql = "INSERT INTO Exceldemo (Name,Age) VALUES ('徐景周',26)"; database.ExecuteSQL(sSql); sSql = "INSERT INTO Exceldemo (Name,Age) VALUES ('徐志慧',22)"; database.ExecuteSQL(sSql); sSql = "INSERT INTO Exceldemo (Name,Age) VALUES ('郭徽',27)"; database.ExecuteSQL(sSql); } // 关闭数据库 database.Close(); AfxMessageBox("Excel文件写入成功!"); } catch(CUserException ex) { ex.ReportError(); }}