将Excel嵌入你的.Net程序

这是一篇技术总结，主要说明在.Net情况下，将Excel嵌入我们自己的程序，并进行控制。


由于微软再一次推迟了.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，包括菜单，看起来就像我们自己的一样：



可惜我们对Visual C++都不太知道如何控制。