VC 操作Excel sheet页眉操作

	CApplication ExcelApp;
	CWorkbooks books;
	CWorkbook book;
	CWorksheets sheets;
	CWorksheet sheet;
	CRange range;
	CPageSetup pageup;
	LPDISPATCH lpDisp = NULL;
	LPDISPATCH lpDisp1 = NULL;
	//创建Excel 服务器(启动Excel)
	if(!ExcelApp.CreateDispatch(_T("Excel.Application"),NULL))
	{
		AfxMessageBox(_T("启动Excel服务器失败!"));
		return ;
	}
 
	ExcelApp.put_Visible(TRUE);
	ExcelApp.put_UserControl(FALSE);
 
	/*得到工作簿容器*/
	books.AttachDispatch(ExcelApp.get_Workbooks());
 
	CString strBookPath = _T("E:\\测试表.xls");
 
		try
	{
		/*打开一个工作簿*/
		lpDisp = books.Open(strBookPath, 
			vtMissing, vtMissing, vtMissing, vtMissing, vtMissing,
			vtMissing, vtMissing, vtMissing, vtMissing, vtMissing, 
			vtMissing, vtMissing, vtMissing, vtMissing);
		book.AttachDispatch(lpDisp);
	}
	catch(...){}
	/*得到工作簿中的Sheet的容器*/
	sheets.AttachDispatch(book.get_Sheets());
	CString strSheetName;
	strSheetName = _T("表1");
	lpDisp = sheets.get_Item(_variant_t((long)7));
	sheet.AttachDispatch(lpDisp);
 
	pageup = sheet.get_PageSetup();
	pageup.put_LeftHeader(_T("&9\n&20\n&\"宋体,常规\"&9 这里写要写的话"));//pageup有操作页眉页脚的其他函数 可以添加文字图片等 自行尝试
	sheet.ReleaseDispatch();
	sheets.ReleaseDispatch();
	book.ReleaseDispatch();
	books.ReleaseDispatch();
	ExcelApp.Quit();
	ExcelApp.ReleaseDispatch();

 

你可能感兴趣的:(VC)