如果您无法下载资料,请参考说明:
1、部分资料下载需要金币,请确保您的账户上有足够的金币
2、已购买过的文档,再次下载不重复扣费
3、资料包下载后请先用软件解压,在使用对应软件打开
OLE程序开发利用(开发EXCEL)一、首先打开类向导(MFCClassWizard)选择AddClass按钮中的Fromatypelibrary...找到Office目录下的文件EXCEL9.OLB并打开。二、在ConfirmClass中的类框中选择你所需的类(EXCEL中的对象)后按OK按钮后依次添加_Application、Workbooks、_Workbook、Worksheets、_Worksheet和Range类。三、添加头文件#include<comdef.h>#include"excel9.h"四、代码如下:voidCParameterApp::CreateRepTemp(){_ApplicationExcelApp;WorkbookswbsMyBooks;_WorkbookwbMyBook;WorksheetswssMysheets;_WorksheetwsMysheet;RangergMyRge;CStringstrSqlStmt;CStringstrRepTemplate="c:\\报表\\报表.xlt";//////////////////////////////////////////////////////////////////////////CFileFindfilefind;intiFileExist=filefind.FindFile((LPCTSTR)strRepTemplate);//////////////////////////////////////////////////////////////////////////if(CoInitialize(NULL)!=0){AfxMessageBox("初始化COM支持库失败!");exit(1);}COleException*e=newCOleException;try{if(!ExcelApp.CreateDispatch("Excel.Application.9",e))throwe;}catch(COleDispatchException*e){CStringcStr;if(!e->m_strSource.IsEmpty())cStr=e->m_strSource+"-";if(!e->m_strDescription.IsEmpty())cStr+=e->m_strDescription;elsecStr+="unknownerror";AfxMessageBox(cStr,MB_OK,(e->m_strHelpFile.IsEmpty())?0:e->m_dwHelpContext);e->Delete();}ExcelApp.SetCaption(_T("FARAD200D报表模板设置"));HYPERLINK"file:///\\\\得"file://得到WorkbookswbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);if(iFileExist){wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t((CString)strRepTemplate)));HYPERLINK"file:///\\\\wbMyBook.SetSaved"file://wbMyBook.SetSaved(true);HYPERLINK"file:///\\\\ExcelApp.GetSaveAsFilename"file://ExcelApp.GetSaveAsFilename(vtMissing,vtMissing,vtMissing,vtMissing,_variant_t("vtMissing"));HYPERLINK"file:///\\\\wbMyBook.Save"file://wbMyBook.Save();HYPERLINK"file:///\\\\("file://("xlShared")HYPERLINK"file:///\\\\wbMyBook.SaveAs"file://wbMyBook.SaveAs(_variant_t("d:\\我的工作表.xls"),_variant_t("xlAddIn"),vtMissing,vtMissing,vtMissing,vtMissing,_variant_t(long(1)),_variant_t("xlUserResolution"),vtMissing,vtMissing,vtMissing);HYPERLINK"file:///\\\\运"file://运行宏(CString)ExcelApp.Run(_v