魔改——MFC SDI 支持 内嵌 EXCEL OLE

==================================声明==================================

本文版权归作者所有

未经作者授权 请勿转载 保留法律追究的权利

本文原创，已获得转载授权的，必须在正文中显要地注明作者和出处，并保证文章（包括本声明）的完整性。

被授权人不可再次授权第三方。

未经作者授权请勿修改（包括本声明），保留法律追究的权利。

未经作者授权请勿用于学术性引用。

未经作者授权请勿用于商业出版、商业印刷、商业引用以及其他商业用途。　　　　　　　　　　　　　　　　    <--------总有一天我要自己做一个模板干掉这只土豆

 

本文不定期修正完善，为保证内容正确，建议移步原文处阅读。

本文链接：http://www.cnblogs.com/wlsandwho/p/4512840.html

=======================================================================

并没有找到什么好的资料

微软的官方文档里有一个SDI嵌入Excel的例子，再加上MFC的代码都是可见的，所以应该是可以搞一搞的。

这是微软官方文档https://support.microsoft.com/zh-cn/kb/184663网上对这篇古老的文章大肆抄袭。

我就不贴出来了，我这里用Win7 64+VC2010+Office 2007实现一下。

=======================================================================

万一哪天我忘了怎么弄这个，还能找找自己的博客，顺便感叹下自己曾经也是的。

=======================================================================

1 创建工程

下面的很重要，一定要选择为容器

2 添加Excel

这里我是64位系统，文件路径带x86，32位的不带这个。

点击完成和确定，MFC会自动生成一大堆类。（叫包装类更合适吧？）

这里要修改一下生成的.h文件。

CApplication.h文件是一定会用到的。注销到原来的第一行，添加三个import和三个using，不要问为什么，这里不是重点讲Office二次开发。

//#import "C:\\Program Files (x86)\\Microsoft Office\\Office12\\EXCEL.EXE" no_namespace
// CApplication 包装类
#import "C:\\Program Files (x86)\\Common Files\\microsoft shared\\OFFICE12\\MSO.DLL" rename("RGB","MSORGB") rename("DocumentProperties","MSODocumentProperties")
using namespace Office;
#import "C:\\Program Files (x86)\\Common Files\\microsoft shared\\VBA\\VBA6\\VBE6EXT.OLB" 
using namespace VBIDE;
#import "C:\\Program Files (x86)\\Microsoft Office\\Office12\\EXCEL.EXE" rename("DialogBox","ExcelDialogBox") rename("RGB","ExcelRGB") rename("CopyFile","ExcelCopyFile") rename("ReplaceText","ExcelReplaceText") no_auto_exclude
using namespace Excel;

其他的.h文件，也是屏蔽原来的import，例如下面要用到

#include "CWorkbooks.h"
#include "CWorkbook.h"
#include "CWorksheets.h"
#include "CWorksheet.h"
#include "CRange.h"

我就把它们原来的第一个import都屏蔽了。

对于 “DialogBoxW”宏的实参不足

修改为

VARIANT _DialogBox()

3 修改CntrItem.h和CntrItem.cpp

由于之前添加了Excel，所以现在文件比较多，要慢慢找找。一定能找到的。

值得注意的是，这个文件名并没有遵循“文件名<=>类名”的国际惯例，例如我的这个Embed_ExcelWLS工程，文件名还是叫CntrItem.h，但是类名叫CEmbed_ExcelWLSCntrItem。

给CEmbed_ExcelWLSCntrItem类添加一个函数用于获得接口。（为了区别原有代码，我会在自己添加的代码前加一行“/”）

// CntrItem.h : CEmbed_ExcelWLSCntrItem 类的接口
//

#pragma once

class CEmbed_ExcelWLSDoc;
class CEmbed_ExcelWLSView;

class CEmbed_ExcelWLSCntrItem : public COleClientItem
{
    DECLARE_SERIAL(CEmbed_ExcelWLSCntrItem)

// 构造函数
public:
    CEmbed_ExcelWLSCntrItem(CEmbed_ExcelWLSDoc* pContainer = NULL);
        // 注意: 允许 pContainer 为 NULL 以启用 IMPLEMENT_SERIALIZE
        //  IMPLEMENT_SERIALIZE 要求类具有带零
        //  参数的构造函数。OLE 项通常是用
        //  非 NULL 文档指针构造的

// 特性
public:
    CEmbed_ExcelWLSDoc* GetDocument()
        { return reinterpret_cast<CEmbed_ExcelWLSDoc*>(COleClientItem::GetDocument()); }
    CEmbed_ExcelWLSView* GetActiveView()
        { return reinterpret_cast<CEmbed_ExcelWLSView*>(COleClientItem::GetActiveView()); }

public:
    virtual void OnChange(OLE_NOTIFICATION wNotification, DWORD dwParam);
    virtual void OnActivate();

protected:
    virtual void OnGetItemPosition(CRect& rPosition);
    virtual void OnDeactivateUI(BOOL bUndoable);
    virtual BOOL OnChangeItemPosition(const CRect& rectPos);
    virtual BOOL OnShowControlBars(CFrameWnd* pFrameWnd, BOOL bShow);

// 实现
public:
    ~CEmbed_ExcelWLSCntrItem();
#ifdef _DEBUG
    virtual void AssertValid() const;
    virtual void Dump(CDumpContext& dc) const;
#endif
    virtual void Serialize(CArchive& ar);

//////////////////////////////////////////////////////////////////////////
public:
    LPDISPATCH GetIDispatch();
};

//////////////////////////////////////////////////////////////////////////
/*******************************************************************
*   This method returns the IDispatch* for the application linked to
*   this container.
********************************************************************/ 
LPDISPATCH CEmbed_ExcelWLSCntrItem::GetIDispatch()
{
    //The this and m_lpObject pointers must be valid for this function
    //to work correctly. The m_lpObject is the IUnknown pointer to
    // this object.
    ASSERT_VALID(this);

    ASSERT(m_lpObject != NULL);

    LPUNKNOWN lpUnk = m_lpObject;

    //The embedded application must be running in order for the rest
    //of the function to work.
    Run();

    //QI for the IOleLink interface of m_lpObject.
    LPOLELINK lpOleLink = NULL;
    if (m_lpObject->QueryInterface(IID_IOleLink,
        (LPVOID FAR*)&lpOleLink) == NOERROR)
    {
        ASSERT(lpOleLink != NULL);
        lpUnk = NULL;

        //Retrieve the IUnknown interface to the linked application.
        if (lpOleLink->GetBoundSource(&lpUnk) != NOERROR)
        {
            TRACE0("Warning: Link is not connected!\n");
            lpOleLink->Release();
            return NULL;
        }
        ASSERT(lpUnk != NULL);
    }

    //QI for the IDispatch interface of the linked application.
    LPDISPATCH lpDispatch = NULL;
    if (lpUnk->QueryInterface(IID_IDispatch, (LPVOID FAR*)&lpDispatch)
        !=NOERROR)
    {
        TRACE0("Warning: does not support IDispatch!\n");
        return NULL;
    }

    //After assuring ourselves it is valid, return the IDispatch
    //interface to the caller.
    ASSERT(lpDispatch != NULL);
    return lpDispatch;
}

4 修改View文件

 添加一个函数EmbedAutomateExcel

// Embed_ExcelWLSView.h : CEmbed_ExcelWLSView 类的接口
//

#pragma once

class CEmbed_ExcelWLSCntrItem;

class CEmbed_ExcelWLSView : public CView
{
protected: // 仅从序列化创建
    CEmbed_ExcelWLSView();
    DECLARE_DYNCREATE(CEmbed_ExcelWLSView)

// 特性
public:
    CEmbed_ExcelWLSDoc* GetDocument() const;
    // m_pSelection 将所选内容保存在当前的 CEmbed_ExcelWLSCntrItem 中。
    // 对于许多应用程序，这种成员变量不足以
    //  表示某个选择，例如在不属于 CEmbed_ExcelWLSCntrItem 的对象中
    //  选定的一个或多个对象。提供这种选择
    //  机制的目的只是帮助您入门

    // TODO: 用适合应用程序的选择机制替换此选择机制
    CEmbed_ExcelWLSCntrItem* m_pSelection;

// 操作
public:

// 重写
public:
    virtual void OnDraw(CDC* pDC);  // 重写以绘制该视图
    virtual BOOL PreCreateWindow(CREATESTRUCT& cs);
protected:
    virtual void OnInitialUpdate(); // 构造后第一次调用
    virtual BOOL OnPreparePrinting(CPrintInfo* pInfo);
    virtual void OnBeginPrinting(CDC* pDC, CPrintInfo* pInfo);
    virtual void OnEndPrinting(CDC* pDC, CPrintInfo* pInfo);
    virtual BOOL IsSelected(const CObject* pDocItem) const;// 容器支持

// 实现
public:
    virtual ~CEmbed_ExcelWLSView();
#ifdef _DEBUG
    virtual void AssertValid() const;
    virtual void Dump(CDumpContext& dc) const;
#endif

protected:

// 生成的消息映射函数
protected:
    afx_msg void OnDestroy();
    afx_msg void OnSetFocus(CWnd* pOldWnd);
    afx_msg void OnSize(UINT nType, int cx, int cy);
    afx_msg void OnInsertObject();
    afx_msg void OnCancelEditCntr();
    afx_msg void OnFilePrint();
    afx_msg void OnFilePrintPreview();
    afx_msg void OnRButtonUp(UINT nFlags, CPoint point);
    afx_msg void OnContextMenu(CWnd* pWnd, CPoint point);
    DECLARE_MESSAGE_MAP()

//////////////////////////////////////////////////////////////////////////
public:
    void EmbedAutomateExcel();
};

#ifndef _DEBUG  // Embed_ExcelWLSView.cpp 中的调试版本
inline CEmbed_ExcelWLSDoc* CEmbed_ExcelWLSView::GetDocument() const
   { return reinterpret_cast<CEmbed_ExcelWLSDoc*>(m_pDocument); }
#endif

实现代码稍微改了下，毕竟office12不是excel9了。

//////////////////////////////////////////////////////////////////////////
/********************************************************************
*   This method encapsulates the process of embedding an Excel
*   Worksheet in a View object and automating that worksheet to add
*   some text to cell A1.
********************************************************************/ 
void CEmbed_ExcelWLSView::EmbedAutomateExcel()
{
   //Change the cursor so the user knows something exciting is going
   //on.
   BeginWaitCursor();

   CEmbed_ExcelWLSCntrItem* pItem = NULL;
   TRY
   {
        //Get the document associated with this view, and be sure it's
        //valid.
        CEmbed_ExcelWLSDoc* pDoc = GetDocument();
        ASSERT_VALID(pDoc);

        //Create a new item associated with this document, and be sure
        //it's valid.
        pItem = new CEmbed_ExcelWLSCntrItem(pDoc);
        ASSERT_VALID(pItem);
        
        // Get Class ID for Excel sheet.
        // This is used in creation.
        CLSID clsid;
        if(FAILED(::CLSIDFromProgID(L"Excel.sheet",&clsid)))
            //Any exception will do. We just need to break out of the
            //TRY statement.
            AfxThrowMemoryException();

        // Create the Excel embedded item.
        if(!pItem->CreateNewItem(clsid))
            //Any exception will do. We just need to break out of the
            //TRY statement.
            AfxThrowMemoryException();

        //Make sure the new CContainerItem is valid.
        ASSERT_VALID(pItem);

        // Launch the server to edit the item.
        pItem->DoVerb(OLEIVERB_SHOW, this);

        // As an arbitrary user interface design, this sets the
        // selection to the last item inserted.
        m_pSelection = pItem;   // set selection to last inserted item
        pDoc->UpdateAllViews(NULL);

        //Query for the dispatch pointer for the embedded object. In
        //this case, this is the Excel worksheet.
        LPDISPATCH lpDisp;
        lpDisp = pItem->GetIDispatch();

        //Add text in cell A1 of the embedded Excel sheet
        CApplication ExcelApp;
        CWorkbooks ExcelBooks;
        CWorkbook ExcelBook;
        CWorksheets ExcelSheets;
        CWorksheet ExcelSheet;    
        CRange ExcelRange;


        ExcelBook.AttachDispatch(lpDisp);
        ExcelApp=ExcelBook.get_Application();
        ExcelSheets=ExcelBook.get_Sheets();
        ExcelSheet=ExcelSheets.get_Item(COleVariant((short)1));
        ExcelRange=ExcelSheet.get_Range(COleVariant(TEXT("A1")),COleVariant(TEXT("A1")));
        ExcelRange.put_Item(_variant_t((long)1),_variant_t((long)1),_variant_t(TEXT("Hello Embed-Excel by WLS")));

        ExcelRange.ReleaseDispatch();
        ExcelSheet.ReleaseDispatch();
        ExcelSheets.ReleaseDispatch();
        ExcelBook.ReleaseDispatch();
        ExcelApp.Quit();
        ExcelApp.ReleaseDispatch();
    

        //NOTE: If you are automating Excel 2002, the Range.SetValue method has an 
        //additional optional parameter specifying the data type.  Because the 
        //parameter is optional, existing code will still work correctly, but new 
        //code should use the new convention.  The call for Excel2002 should look 
        //like the following:
        
        //range.SetValue( ColeVariant( (long)DISP_E_PARAMNOTFOUND, VT_ERROR ), 
        //                COleVariant("Hello, World!"));
    }

    //Here, we need to do clean up if something went wrong.
    CATCH(CException, e)
    {
        if (pItem != NULL)
        {
            ASSERT_VALID(pItem);
            pItem->Delete();
        }
        AfxMessageBox(IDP_FAILED_TO_CREATE);
    }
    END_CATCH

    //Set the cursor back to normal so the user knows exciting stuff
    //is no longer happening.
    EndWaitCursor();
}

记得添加.h文件

5 修改OnInsertObject函数

void CEmbed_ExcelWLSView::OnInsertObject()
{
    // 调用标准的“插入对象”对话框以获得有关
    //  新 CEmbed_ExcelWLSCntrItem 对象的信息
//     COleInsertDialog dlg;
//     if (dlg.DoModal() != IDOK)
//         return;
// 
//     BeginWaitCursor();
// 
//     CEmbed_ExcelWLSCntrItem* pItem = NULL;
//     TRY
//     {
//         // 创建与此文档相连接的新项
//         CEmbed_ExcelWLSDoc* pDoc = GetDocument();
//         ASSERT_VALID(pDoc);
//         pItem = new CEmbed_ExcelWLSCntrItem(pDoc);
//         ASSERT_VALID(pItem);
// 
//         // 通过对话框数据初始化该项
//         if (!dlg.CreateItem(pItem))
//             AfxThrowMemoryException();  // 任何异常都将导致该结果
//         ASSERT_VALID(pItem);
//         
//         if (dlg.GetSelectionType() == COleInsertDialog::createNewItem)
//             pItem->DoVerb(OLEIVERB_SHOW, this);
// 
//         ASSERT_VALID(pItem);
//         // 作为任意用户界面设计，这会将所选内容
//         //  设置为插入的最后一项
// 
//         // TODO: 重新实现所选内容，使其适合于您的应用程序
//         m_pSelection = pItem;   // 将所选内容设置为插入的最后一项
//         pDoc->UpdateAllViews(NULL);
//     }
//     CATCH(CException, e)
//     {
//         if (pItem != NULL)
//         {
//             ASSERT_VALID(pItem);
//             pItem->Delete();
//         }
//         AfxMessageBox(IDP_FAILED_TO_CREATE);
//     }
//     END_CATCH
// 
//     EndWaitCursor();

    EmbedAutomateExcel();
}

 下面执行看下效果。

点击文件-退出

再点击取消

=======================================================================

要注意的是，部分安全软件，例如我的大Comodo会在HIPS和沙箱里拦截对COM口的访问，所以你懂的。

=======================================================================

 

 

 

 

 

 

 

=======================================================================

下一篇文章，将使用MFC的对话框程序实现内嵌Excel。

虽然实现了但还有些东西没弄好，为了部落的荣耀还是先写个SDI的放出来吧。

=======================================================================

文中示例代码在我的CSDN下载中http://download.csdn.net/detail/wlsgzl/8730199

不过，认真看文章跟着做的话基本不需要下载这个资源。

 

 

 

 

 

 

=======================================================================

耻辱墙 http://www.cnblogs.com/wlsandwho/p/4206472.html