首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VC/MFC >

如何将编辑框的数据以xls格式导出

2012-03-01 
怎么将编辑框的数据以xls格式导出?按下图上的“保存结果”按钮,将编辑框的数据以xls格式导出。越简单的方法越

怎么将编辑框的数据以xls格式导出?

按下图上的“保存结果”按钮,将编辑框的数据以xls格式导出。
越简单的方法越好。
下面是我网上找到的方法,编译之后,不知道怎么用?
  _Application ExcelApp; 
  Workbooks wbsMyBooks; 
  _Workbook wbMyBook; 
  Worksheets wssMysheets; 
  _Worksheet wsMysheet; 
  Range rgMyRge; 
//创建Excel 2000服务器(启动Excel) 
  COleVariant vOpt((long)DISP_E_PARAMNOTFOUND);

  if (!ExcelApp.CreateDispatch("Excel.Application",NULL)) 

  AfxMessageBox("创建Excel服务失败!"); 
  exit(1); 

//利用模板文件建立新文档 
  wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true); 
  wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t("g:\MyTemplate.xls"))); 
//得到Worksheets 
  wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true); 
//得到sheet1 
  wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true); 
//得到全部Cells,此时,rgMyRge是cells的集合 
  rgMyRge.AttachDispatch(wsMysheet.GetCells(),true); 
//设置1行1列的单元的值 
  rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)1),_variant_t("This Is A Excel Test Program!")); 
//得到所有的列 
  rgMyRge.AttachDispatch(wsMysheet.GetColumns(),true); 
//得到第一列 
  rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)1),vtMissing).pdispVal,true); 
//设置列宽 
  rgMyRge.SetColumnWidth(_variant_t((long)200)); 
//调用模板中预先存放的宏 
  ExcelApp.Run(_variant_t("CopyRow"),vtMissing,vtMissing,vtMissing, 
  vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing, 
  vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing, 
  vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing, 
  vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing); 
//打印预览 
  wbMyBook.SetSaved(true); 
  ExcelApp.SetVisible(true); 
  wbMyBook.PrintPreview(_variant_t(false)); 
//将文件保存为2.xls 
  wbMyBook.SaveAs(COleVariant("C:\2.xls"),vOpt, vOpt, vOpt, vOpt, vOpt, 1,vOpt, vOpt, vOpt, vOpt,vOpt); 
//释放对象 
  rgMyRge.ReleaseDispatch(); 
  wsMysheet.ReleaseDispatch(); 
  wssMysheets.ReleaseDispatch(); 
  wbMyBook.ReleaseDispatch(); 
  wbsMyBooks.ReleaseDispatch(); 
  ExcelApp.ReleaseDispatch();

[解决办法]
呵呵,把程序发给我, 我帮你搞定,你自己下去再分析下,呵呵!刚做过这样的项目!我的邮箱是:jokey514@163.com。
[解决办法]

探讨
引用:
引用:
引用:
留邮箱,给你一个读写excel的demo

gaolingbo2@163.com
最后加注释啊,谢谢啊


已经发了,有详细的文档,照着做应该很简单的。

怎么用到我的工程里呢?

[解决办法]
又来学习了 呵呵!!

热点排行