MFC如何设置不允许用户关闭EXCEL

手机

电脑

1、单击“查看”菜单上的“ClassWizard”（或按 Ctrl+W）。如果要使 Excel 97 自动运行，请选择 Microsoft Excel 8.0 对象库；默认位置为 C:\ProgramFiles\Microsoft Office\Office\Excel8.olb）。

如果要使 Microsoft Excel 2000 自动运行，请选择 Microsoft Excel 9.0 对象库，其默认位置为 C:\Program Files\Microsoft Office\Office\Excel9.olb。如果要使 Microsoft Excel 2002 和 Microsoft Office Excel 2003 自动运行。

则对象库将被嵌入到文件 Excel.exe 中。Office 2002 中的 Excel.exe 文件的默认位置为 C:\Program Files\Microsoft Office\Office10\Excel.exe。

2、 在***Dlg.H中添加头文件#include#include 'excel.h'在***Dlg::OnInitDialog()中添加// 初始化Comif (::CoInitialize( NULL ) == E_INVALIDARG){AfxMessageBox(_T('初始化Com失败!'));exit(1);}if ( !ExcelApp.CreateDispatch(_T('Excel.Application'), NULL)){AfxMessageBox(_T('创建Excel2000服务失败!'));::CoUninitialize();}//打开ExcelApp等等wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t('c:\aa.xls')));//得到WorksheetswssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true);//得到sheet1wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t('sheet1')),true);rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);CString a = (LPCTSTR)(_bstr_t)rgMyRge.GetItem(_variant_t((long)i),_variant_t((long)1))。

SetItem((_variant_t((long)2),_variant_t((long)3)),_variant_t('fafdad'));//释放资源关闭EXCELrgMyRge.ReleaseDispatch();wsMysheet.ReleaseDispatch();wssMysheets.ReleaseDispatch();wbMyBook.Close (COleVariant((short)(FALSE)), COleVariant((short)(FALSE)),vtMissing);wbsMyBooks.Close();wbMyBook.ReleaseDispatch();wbsMyBooks.ReleaseDispatch();ExcelApp.Quit();ExcelApp.ReleaseDispatch();