VC中调用EXECL模板生成报表

用EXCEL作为报表的输出方式还是比较常用的方式，这样可以充分利用EXCEL的强大的编辑功能，以及打印功能。而采用模板方式是比较好的方法，首先在EXCEL中制作模板，然后在生成报表时调用模板。这样能方便的生成我们需要的报表。这里主要描述如何加载模板和添加每页报表。代码如下：

01.void CExceltestDlg::OnButton1()

02.{

03.// TODO: Add your control notification handler code here

04._Application ExcelApp;

05.Workbooks wbsMyBooks;

06._Workbook wbMyBook;

07.Worksheets wssMysheets;

08._Worksheet wsMysheet;

09.Range rgMyRge; 

10.//创建Excel 2000服务器(启动Excel)

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

12.{

13.AfxMessageBox("创建Excel服务失败!");

14.exit(1);

15.}

16.ExcelApp.SetVisible(false);

17.//利用模板文件建立新文档

18.char path[MAX_PATH];

19.GetCurrentDirectory(MAX_PATH,path);

20.CString strPath = path;

21.strPath += "\\template1";

22.wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);

23.wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t(strPath)));

24.//得到Worksheets

25.wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true);

26.//得到sheet1

27.wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true);

28.//添加模板个数

29.for(int i=0;i<4;i++){

30.wsMysheet.Copy(vtMissing,_variant_t(wsMysheet));

31.}

32.CString str1;

33.wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true);

34.str1 = "第1页";

35.wsMysheet.SetName(str1);

36.for(i=0;i<wssMysheets.GetCount()-1;i++){

37.//此地方该显示时缺少两项

38.wsMysheet = wsMysheet.GetNext();

39.str1.Format("第%d页",i+2);

40.wsMysheet.SetName(str1);

41.}

42.wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("第1页")),true);

43.//得到全部Cells，此时,rgMyRge是cells的集合

44.rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);

45.//设置1行1列的单元的值

46.CString str=_TEXT("21:12");

47.rgMyRge.SetItem(_variant_t((long)7),_variant_t((long)3),_variant_t(str));

48.rgMyRge.SetItem(_variant_t((long)9),_variant_t((long)3),_variant_t(str));

49.rgMyRge.SetItem(_variant_t((long)7),_variant_t((long)4),_variant_t(str));

50.rgMyRge.SetItem(_variant_t((long)8),_variant_t((long)4),_variant_t(str));

51.rgMyRge.SetItem(_variant_t((long)9),_variant_t((long)4),_variant_t(str));

52.rgMyRge.SetItem(_variant_t((long)10),_variant_t((long)4),_variant_t(str));

53.rgMyRge.SetItem(_variant_t((long)11),_variant_t((long)4),_variant_t(str));

54.rgMyRge.SetItem(_variant_t((long)12),_variant_t((long)4),_variant_t(str));

55.//将表格保存

56.strPath = path;

57.strPath += "\\ylhexcel.xls";

58.wsMysheet.SaveAs(strPath,vtMissing,vtMissing,vtMissing,vtMissing,

59.vtMissing,vtMissing,vtMissing,vtMissing);

60.ExcelApp.SetVisible(true);

61.wbMyBook.PrintPreview(_variant_t(false));

62.//释放对象

63.rgMyRge.ReleaseDispatch();

64.wsMysheet.ReleaseDispatch();

65.wssMysheets.ReleaseDispatch();

66.wbMyBook.ReleaseDispatch();

67.wbsMyBooks.ReleaseDispatch();

68.ExcelApp.ReleaseDispatch();

69.}

结果得到如下图：

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

图二 模版

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