MFC中导出excel表格
来源:互联网 发布:oracle删除数据库命令 编辑:程序博客网 时间:2024/05/17 06:45
MFC中导出excel表格
_Application app; Workbooks books; _Workbook book; Worksheets sheets; _Worksheet sheet; Range range; Range xlsCells,xlsCol; COleVariant vResult; COleVariant covTrue((short)TRUE), covFalse((short)FALSE), covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); //***** //创建Excel 2000服务器(启动Excel) if(!app.CreateDispatch("Excel.Application")) { AfxMessageBox("无法启动Excel服务器!"); return ; } app.SetVisible(FALSE); //使Excel可见 app.SetUserControl(TRUE); //允许其它用户控制Excel books.AttachDispatch(app.GetWorkbooks(),true); book = books.Add(covOptional); sheets.AttachDispatch(book.GetWorksheets(),true); sheet.AttachDispatch(sheets.GetItem(_variant_t("sheet1")),true); sheet.SetName("日志"); xlsCells.AttachDispatch(sheet.GetCells(),true); xlsCells.SetItem(_variant_t((long)1),_variant_t((long)1),_variant_t("名称")); xlsCells.SetItem(_variant_t((long)1),_variant_t((long)2),_variant_t("编号")); xlsCells.SetItem(_variant_t((long)1),_variant_t((long)3),_variant_t("编号")); xlsCells.SetItem(_variant_t((long)1),_variant_t((long)4),_variant_t("类型")); xlsCells.SetItem(_variant_t((long)1),_variant_t((long)5),_variant_t("参与人一")); xlsCells.SetItem(_variant_t((long)1),_variant_t((long)6),_variant_t("参与人二")); xlsCells.SetItem(_variant_t((long)1),_variant_t((long)7),_variant_t("时间")); xlsCells.SetItem(_variant_t((long)1),_variant_t((long)8),_variant_t("说明")); CRecordsetObject<CManagelogInfoQueryView> Object; try { Object->m_strFilter.Format("TTNAME <> NULL order by ManageTime desc"); Object->Open(CRecordset::dynaset); for (int nIndexInsert = 2 ;!Object->IsEOF(); Object->MoveNext()) { CString szTime = ""; szTime = CPublic::TimeToString(Object->m_ManageTime); CString strControl = ""; CString str = ""; xlsCells.SetItem(_variant_t((long)nIndexInsert),_variant_t((long)1),_variant_t(Object->m_DoorName)); xlsCells.SetItem(_variant_t((long)nIndexInsert),_variant_t((long)2),_variant_t(Object->m_GunArkNumber)); xlsCells.SetItem(_variant_t((long)nIndexInsert),_variant_t((long)3),_variant_t(Object->m_GunBitNumber)); xlsCells.SetItem(_variant_t((long)nIndexInsert),_variant_t((long)4),_variant_t(strControl)); xlsCells.SetItem(_variant_t((long)nIndexInsert),_variant_t((long)5),_variant_t(Object->m_OpenUName)); xlsCells.SetItem(_variant_t((long)nIndexInsert),_variant_t((long)6),_variant_t(Object->m_UName)); xlsCells.SetItem(_variant_t((long)nIndexInsert),_variant_t((long)7),_variant_t(szTime)); xlsCells.SetItem(_variant_t((long)nIndexInsert),_variant_t((long)8),_variant_t(str)); ++nIndexInsert; } } catch (CDBException* pe) { CPublic::LogToFile("开柜日志信息-" + pe->m_strError, _T("People.cpp"), 1602, CPublic::ErrorLog); pe->Delete(); } catch (...) { CPublic::LogToFile("其它异常", _T("yfsgaDlg.cpp"), 1573, CPublic::ErrorLog); } const int MAX_LINE = 8; int nWidth[MAX_LINE] = {20, 20, 20, 20, 20, 20 ,30, 60}; for (int nIndex = 0; nIndex < MAX_LINE; ++nIndex) { //得到某列 xlsCol.AttachDispatch(xlsCells.GetItem(_variant_t((long)(nIndex+1)),vtMissing).pdispVal,true); //设置列宽 xlsCol.SetColumnWidth(_variant_t((long)nWidth[nIndex])); } CTime currTime = CTime::GetCurrentTime(); strTime = currTime.Format("%Y%m%d%H%M%S"); CString szFileName = "日志"+ strTime +".xls"; book.SaveAs(COleVariant(szSavePath + szFileName),covOptional,covOptional, \ covOptional,covOptional,covOptional,0, \ covOptional,covOptional,covOptional,covOptional); book.Close (covOptional,COleVariant(szSavePath + szFileName),covOptional); books.Close(); app.Quit();
- MFC中导出excel表格
- DBGrid数据导出到Excel表格中
- jsp表格导出到excel中
- 从jsp页面中导出excel表格
- 怎么从Mysql中导出Excel表格
- java中使用jxl导出Excel表格
- java中如何导出excel表格
- tp3.2中excel表格导出数据
- easyUI中表格实现导出excel功能
- VC中操作excel表格 ListCtrl数据导出到Excel
- VC中操作excel表格 ListCtrl数据导出到Excel
- javascript表格导出Excel
- (表格)导出excel
- 【Java】导出excel表格
- JAVA 导出 excel 表格
- C#导出EXCEL表格
- Java导出excel表格
- 【Java】导出excel表格
- SAP 江湖盛行这么一首诗 创作此诗的人绝对是人才啊!ABAP真是悲剧啊!
- 从零开始最短路径学习Hadoop之05----MapReduce应用开发
- hdu(2575)Ocean Currents
- 15-流程控制
- 高级语言案例分析_文本编辑器
- MFC中导出excel表格
- POJ 3006 Dirichlet's Theorem on Arithmetic Progressions
- opencv 中文学习网站(学习之一)
- Git初级使用教程
- Silverlight中如何使用MVVM架构
- MySQL 主-主复制 + SSL认证
- web中常用的 js 代码 (1)
- 高级语言案例分析_QQ_登录
- SIP初步