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();