欢迎来到天天文库
浏览记录
ID:8970548
大小:23.50 KB
页数:2页
时间:2018-04-13
《c创建电子表格方法》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、//创建电子表格的方法CStringfilename;CFileDialogfiledialog(TRUE,"xls",NULL,OFN_HIDEREADONLY
2、OFN_OVERWRITEPROMPT,"ALLFiles(*.xls)
3、*.xls
4、
5、",AfxGetMainWnd());if(filedialog.DoModal()==IDOK)//若打开文件成功{filename=filedialog.GetPathName();//得到文件的完整路径///////////////////CDatabasedataba
6、se;CStringsDriver="MICROSOFTEXCELDRIVER(*.XLS)";//Excel安装驱动CStringsExcelFile;CStringsSql;sExcelFile=filename;//要建立的Excel文件TRY{//创建进行存取的字符串sSql.Format("DRIVER={%s};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB="%s";DBQ=%s",sDriver,sExcelFile,sExcelFile);//创建
7、数据库(既Excel表格文件)if(database.OpenEx(sSql,CDatabase::noOdbcDialog)){//创建表结构(姓名、年龄);其中统计分析表为表名sSql="CREATETABLE统计分析表(姓名TEXT,年领NUMBER)";database.ExecuteSQL(sSql);//插入数值sSql="INSERTINTOExceldemo(姓名,年领)VALUES('徐景周',26)";database.ExecuteSQL(sSql);sSql="INSERTINTOExceldemo
8、(姓名,年领)VALUES('徐志慧',22)";database.ExecuteSQL(sSql);sSql="INSERTINTOExceldemo(姓名,年领)VALUES('郭徽',27)";database.ExecuteSQL(sSql);}//关闭数据库database.Close();AfxMessageBox("Excel文件写入成功!");}CATCH_ALL(e){TRACE1("Excel驱动没有安装:%s",sDriver);}END_CATCH_ALL;
此文档下载收益归作者所有