VC 插入excel

CString ePath,iPath;
	m_ePath.GetWindowText(ePath);
	m_iPath.GetWindowText(iPath);
 
	_Application app;
	Workbooks books;
	_Workbook book;
	Worksheets sheets;
	_Worksheet sheet;
	Shapes shp;
 
	//创建Excel 2000服务器(启动Excel)
	if (!app.CreateDispatch("Excel.Application",NULL))
	{
		AfxMessageBox("创建Excel服务失败!");
		exit(1);
	}
	books.AttachDispatch(app.GetWorkbooks());
	book.AttachDispatch(books.Add(_variant_t(ePath)));
	//得到Worksheets
	sheets.AttachDispatch(book.GetWorksheets());
	sheet.AttachDispatch(sheets.GetItem(_variant_t("Sheet1")));
	shp.AttachDispatch(sheet.GetShapes());
	shp.AddPicture(iPath,false,true,0,0,400,300);
 
	app.SetVisible(true);
	book.PrintPreview(_variant_t( false ));//打印预览
	//释放对象
	sheet.ReleaseDispatch();
	sheets.ReleaseDispatch();
	book.ReleaseDispatch();
	books.ReleaseDispatch();
	app.ReleaseDispatch();