Chinaunix首页 | 论坛 | 博客
  • 博客访问: 9547015
  • 博文数量: 1227
  • 博客积分: 10026
  • 博客等级: 上将
  • 技术积分: 20273
  • 用 户 组: 普通用户
  • 注册时间: 2008-01-16 12:40
文章分类

全部博文(1227)

文章存档

2010年(1)

2008年(1226)

我的朋友

分类: C/C++

2008-03-31 14:51:07

下载本文示例代码
用EXCEL作为报表的输出方式还是比较常用的方式,这样可以充分利用EXCEL的强大的编辑功能,以及打印功能。而采用模板方式是比较好的方法,首先在EXCEL中制作模板,然后在生成报表时调用模板。这样能方便的生成我们需要的报表。这里主要描述如何加载模板和添加每页报表。代码如下:
void CExceltestDlg::OnButton1() 
{
 // TODO: Add your control notification handler code here
 _Application ExcelApp; 
 Workbooks wbsMyBooks; 
 _Workbook wbMyBook; 
 Worksheets wssMysheets; 
 _Worksheet wsMysheet; 
 Range rgMyRge;  
 //创建Excel 2000服务器(启动Excel) 
 if (!ExcelApp.CreateDispatch("Excel.Application",NULL)) 
 { 
  AfxMessageBox("创建Excel服务失败!"); 
  exit(1);
 } 
 ExcelApp.SetVisible(false); 
 //利用模板文件建立新文档 
 char path[MAX_PATH];
 GetCurrentDirectory(MAX_PATH,path);
 CString strPath = path;
 strPath += "\\template1";
 wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);
 wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t(strPath)));
 //得到Worksheets 
 wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true);
 //得到sheet1 
 wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true);
 //添加模板个数
 for(int i=0;i<4;i++){
  wsMysheet.Copy(vtMissing,_variant_t(wsMysheet));
 }
 CString str1;
 wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true);
 str1 = "第1页";
 wsMysheet.SetName(str1); 
 for(i=0;i//此地方该显示时缺少两项
  wsMysheet = wsMysheet.GetNext();
  str1.Format("第%d页",i+2);
  wsMysheet.SetName(str1);
 }
 wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("第1页")),true);
 //得到全部Cells,此时,rgMyRge是cells的集合
 rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);
 //设置1行1列的单元的值
 CString str=_TEXT("21:12");
 rgMyRge.SetItem(_variant_t((long)7),_variant_t((long)3),_variant_t(str)); 
 rgMyRge.SetItem(_variant_t((long)9),_variant_t((long)3),_variant_t(str));
  rgMyRge.SetItem(_variant_t((long)7),_variant_t((long)4),_variant_t(str)); 
 rgMyRge.SetItem(_variant_t((long)8),_variant_t((long)4),_variant_t(str)); 
 rgMyRge.SetItem(_variant_t((long)9),_variant_t((long)4),_variant_t(str)); 
 rgMyRge.SetItem(_variant_t((long)10),_variant_t((long)4),_variant_t(str)); 
 rgMyRge.SetItem(_variant_t((long)11),_variant_t((long)4),_variant_t(str)); 
 rgMyRge.SetItem(_variant_t((long)12),_variant_t((long)4),_variant_t(str));
 //将表格保存
 strPath = path;
 strPath += "\\ylhexcel.xls";
 wsMysheet.SaveAs(strPath,vtMissing,vtMissing,vtMissing,vtMissing,
  vtMissing,vtMissing,vtMissing,vtMissing);
 ExcelApp.SetVisible(true); 
 wbMyBook.PrintPreview(_variant_t(false)); 
 //释放对象 
 rgMyRge.ReleaseDispatch(); 
 wsMysheet.ReleaseDispatch(); 
 wssMysheets.ReleaseDispatch(); 
 wbMyBook.ReleaseDispatch(); 
 wbsMyBooks.ReleaseDispatch(); 
 ExcelApp.ReleaseDispatch(); 
}     
结果得到如下图:

图一 添加完表格得到的报表
 

图二 模版

希望能给需要的朋友有所帮助,也希望各位朋友能提出更好的使用方法。


下载本文示例代码
阅读(1420) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~