将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,包括菜单,看起来就像我们自己的一样:

 

posted @ 2008-12-25 17:16  温景良(Jason)  Views(609)  Comments(0Edit  收藏  举报