将Exce嵌入你的.Net程序1(转载)

 

        由于微软再一次推迟了.Net版的OLE Container Control的发布（2005版本叫ActiveDocumentControl），使我们几乎没有太多的办法来完成这个任务（你可以利用Visual C＋＋来完成你的工作，不过该实现对技术的要求太高，大部分人不具备这个能力，因此只好作罢，最好在Visual C＋＋基础上开发一个控件，在别的环境下调用，如果你能做这个工作，请帮帮我），只能够使用重量级的解决方案，就是利用WebBrowser控件和dsoframer.OCX来完成这个工作。

    在最新的Visual Studio 2005中，为我们提供了一个WebBrowser的封装控件，这个控件隐藏了底层的axWebBrowser控件，我们就利用WebBrowser控件来完成我们的Excel等ActiveDocument的嵌入和操作。在此之前，你需要将Office的.Net库安装到你的机器上。

1．在你的工具栏上选择WebBrowser控件，将其放到你的Form上

2．在Form上增加一个控件来使其加载一个Excel文件，如下：

Button的事件处理程序:

 private void button1_Click_1(object sender, EventArgs e)

 {

            string strFileName = @"d:"a.xls";

            Object refmissing = System.Reflection.Missing.Value;

            this.webBrowser1 .Navigate(strFileName);

            object axWebBrowser = this.webBrowser1.ActiveXInstance;

           

   }

3.增加WebBrowser的DocumentComplete事件处理程序

private void webBrowser1_DocumentCompleted_1(object sender, WebBrowserDocumentCompletedEventArgs e)

{

            Object refmissing = System.Reflection.Missing.Value;

            object[] args = new object[4];

            args[0] = SHDocVw.OLECMDID.OLECMDID_HIDETOOLBARS;

            args[1] = SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER;

            args[2] = refmissing;

            args[3] = refmissing;

 

            object axWebBrowser = this.webBrowser1.ActiveXInstance;

 

 

 

            axWebBrowser.GetType().InvokeMember("ExecWB", BindingFlags.InvokeMethod, null, axWebBrowser, args);

 

 

            object oApplication = axWebBrowser.GetType().InvokeMember("Document", BindingFlags.GetProperty, null, axWebBrowser, null);

   

            Excel.Workbook wbb = (Excel.Workbook)oApplication;

            Excel.ApplicationClass excel = wbb.Application as Excel.ApplicationClass ;

            Excel.Workbook wb = excel.Workbooks[1] ;

            Excel.Worksheet ws = wb.Worksheets[1] as Excel.Worksheet;

            ws.Cells.Font.Name = "Verdana";

            ws.Cells.Font.Size = 14;

            ws.Cells.Font.Bold = true;

            Excel.Range range = ws.Cells;

 

            Excel.Range oCell = range[10, 10] as Excel.Range ;

            oCell.Value2 = "你好";

           

 }

       这里要注意，WebBrowser加载Excel文档后，并不显示工具栏，为此我们需要使用高级一点的技术，通过反射调用底层的方法来实现，首先我们需要找到WebBrowser封装的AxWebBrowser控件。

                   object axWebBrowser = this.webBrowser1.ActiveXInstance;

然后，我们调用反射来显示工具栏

                 Object refmissing = System.Reflection.Missing.Value;

            object[] args = new object[4];

            args[0] = SHDocVw.OLECMDID.OLECMDID_HIDETOOLBARS;

            args[1] = SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER;

            args[2] = refmissing;

            args[3] = refmissing;

 

            axWebBrowser.GetType().InvokeMember("ExecWB", BindingFlags.InvokeMethod, null, axWebBrowser, args);

                     注：如果你直接使用AxWebBrowser控件，那你就可以直接调用ExecWB方法来显示工具栏。如下：

       axWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_HIDETOOLBARS, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER, refmissing, refmissing)

     好了，现在你需要获得你的Excel对象来操作Excel，此时需要使用Office的.Net库来完成。代码如下：

            

object oApplication = axWebBrowser.GetType().InvokeMember("Document", BindingFlags.GetProperty, null, axWebBrowser, null);

   

          Excel.ApplicationClass excel = wbb.Application as Excel.ApplicationClass ;

            Excel.Workbook wb = excel.Workbooks[1] ;

            Excel.Worksheet ws = wb.Worksheets[1] as Excel.Worksheet;

            ws.Cells.Font.Name = "Verdana";

            ws.Cells.Font.Size = 14;

            ws.Cells.Font.Bold = true;

            Excel.Range range = ws.Cells;

 

            Excel.Range oCell = range[10, 10] as Excel.Range ;

            oCell.Value2 = "你好";

现在你可以随心所欲来控制Excel了，效果如下

    

 

说明：通过使用WebBrowser控件，是不能显示菜单栏的。

 

3.如果使用AxWebBrowser控件，那就需要处理NavigateComplete2事件，事件处理程序如下

    private void axWebBrowser_NavigateComplete2(object sender, AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event e)

        {

            Object refmissing = System.Reflection.Missing.Value;

            this.webBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_HIDETOOLBARS, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER, ref refmissing, ref refmissing);

             Object o = e.pDisp;

                   Object oDocument = o.GetType().InvokeMember("Document",BindingFlags.GetProperty, null, o, null);

            Object oApplication = o.GetType().InvokeMember("Application", BindingFlags.GetProperty, null, oDocument, null);

                ////由于打开的是excel文件，所以这里的oApplication 其实就是Excel.Application

            Excel.Application excel = (Excel.Application)oApplication;//这样就可以象上文中所述来操作Excel了。

 

            Excel.Workbook wb = excel.Workbooks[1];

            Excel.Worksheet ws = wb.Worksheets[1] as Excel.Worksheet;

            ws.Cells.Font.Name = "Verdana";

            ws.Cells.Font.Size = 14;

            ws.Cells.Font.Bold = true;

            Excel.Range range = ws.Cells;

 

            Excel.Range oCell = range[10, 10] as Excel.Range;

            oCell.Value2 = "你好";

        }

这里操作更简单一点，缺点就是你必须直接使用AxWebBrowser控件，该控件比起已经封装好的WebBrowser可能有些我们所不知道的问题。微软推荐大家通过WebBrowser来访问。使用AxWebBrowser，有一个意外的收获，如下：

      Object o = e.pDisp;

       IOleCommandTarget cmdTarget = o as IOleCommandTarget;

      Guid guidCMDGroup = new Guid("00020820-0000-0000-C000-000000000046");

      cmdTarget.Exec(ref guidCMDGroup , 1, 0, null, null);

 

通过IoleCommandTarget可以模拟如菜单命令，这样你可以自己定制菜单，然后将菜单命令发送到Excel来处理。呵呵，模拟菜单。

 public interface IOleCommandTarget

    {

        [PreserveSig()]

        int QueryStatus([In, MarshalAs(UnmanagedType.Struct)] ref Guid

           pguidCmdGroup, [MarshalAs(UnmanagedType.U4)] int cCmds,

           [In, Out] IntPtr prgCmds, [In, Out] IntPtr pCmdText);

 

        [PreserveSig()]

        int Exec(ref Guid pguidCmdGroup, uint nCmdID, uint nCmdExecOpt,

            object[] pvaIn, [In, Out, MarshalAs(UnmanagedType.LPArray)]

            object[] pvaOut);

    }

 

4．如果我们使用Visual C＋＋我们可以获得一个完全的，嵌入式Excel，包括菜单，看起来就像我们自己的一样：