VC中调用EXECL模板生成报表

作者：叶利华

下载源代码
逆@风@者

　　用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<wssMysheets.GetCount()-1;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(); 

}