C#如何在Form中嵌入并且操作Excel表格

2007-03-22
转帖说明：本文未经实际测试。有何问题尚未知。2010-10-25
http://wenwen.soso.com/z/q223710107.htm?ri=2263&rq=174056802&uid=0&ch=w.xg.llyjj    另一篇
C#如何在Form中嵌入并且操作Excel表格
网上比较多讲述如何操作excel表的文章，但都是启动excel的窗口来打开excel数据文件。有时候需要把excel表嵌入到自己程序的form中，给客户一个不用切换窗口的操作界面，似乎更好。这在vc中用ole技术很容易实现，但是在c#中方法就不一样啦。下面将就此进行阐述。
一、首先简要回顾一下如何操作excel表
先要添加对Excel的引用。选择项目-〉添加引用-〉COM-〉添加Microsoft Excel 9.0。（不同的office讲会有不同版本的dll文件）。
using Excel;
using System.Reflection;
//产生一个Excel.Application的新进程
Excel.Application app = new Excel.Application();
if (app == null)
{
statusBar1.Text = "ERROR: EXCEL couldn't be started!";
return ;
}
app.Visible = true; //如果只想用程序控制该excel而不想让用户操作时候，可以设置为false
app.UserControl = true;
Workbooks workbooks =app.Workbooks;
_Workbook workbook = workbooks.Add(XlWBATemplate.xlWBATWorksheet); //根据模板产生新的workbook
//  _Workbook workbook = workbooks.Add("c:\\a.xls"); //或者根据绝对路径打开工作簿文件a.xls
Sheets sheets = workbook.Worksheets;
_Worksheet worksheet = (_Worksheet) sheets.get_Item(1);
if (worksheet == null)
{
statusBar1.Text =  "ERROR: worksheet == null";
return;
}
// This paragraph puts the value 5 to the cell G1
Range range1 = worksheet.get_Range("A1", Missing.Value);
if (range1 == null)
{
statusBar1.Text =  "ERROR: range == null";
return;
}
const int nCells = 2345;
range1.Value2 = nCells;
二、将Excel用户界面嵌入到自己的Windows Form中
由于目前，C#和vb.net都不支持OLE技术(参见微软支持中心Info:304562)，，所以只有使用WebBrowser控件来完成此功能。（以下方法参见微软支持中心Howto:304662）
1、右击工具箱，选择自定义工具箱，添加COM组件，选择“Microsoft Web 浏览器”（对应文件是\winnt\system32\shdocvw.dll），确定。在工具箱中将会出现文本为Explorer的WebBroser控件图标。
2、在Form1中添加WebBrowser控件。（对象名却省是axWebBrowser1）
3、假定要打开的excel文件是: c:\a.xls。
string strFileName = @"c:\a.xls";
Object refmissing = System.Reflection.Missing.Value;
axWebBrowser1.Navigate(strFileName, ref refmissing , ref refmissing , ref refmissing , ref refmissing);
值得注意的是用WebBrowser控件不支持菜单合并，也就是说无法把Excel表的菜单带入到我们的程序中。这是相对于OLE实现方法的一大缺点。幸好提供了可以把工具栏添加进来的功能，通过工具栏可以进行许多Excel专有的操作。
//下面这句可以将excel本身的工具调添加进来
axWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_HIDETOOLBARS, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER,ref refmissing , ref refmissing);
三、回到本文提出的问题，如何操作嵌入的Excel?
首先需要明白，用WebBrowser“装载”Excel"表，实际上仍然是在新的进程空间中运行Excel.exe。可以用任务管理器观察。因此，只要我们能够获取Excel.Application对象，就能像上文一中所说的那样操作Excel数据。
幸好可以通过WebBrowser的方法NavigateComplete提供的事件参数e来访问Excel.Application。
public void axWebBrowser1_NavigateComplete2(object sender, AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event e)
{
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);
//Object oName = o.GetType().InvokeMember("Name",BindingFlags.GetProperty ,null,oApplication,null);
//由于打开的是excel文件，所以这里的oApplication 其实就是Excel.Application
Excel.Application eApp =(Excel.Application)oApplication;//这样就可以象上文中所述来操作Excel了。
}
四、包含该webbrowser的form退出时候，如何确保excel进程也退出？（参见microsoft帮助中心kb317109）
由于WebBrowser只不过是对Excel表的浏览，而Excel在单独的进程中运行。所以要保证对该Excel对象eApp及其相应的所有成员变量都释放引用，才能保证在Form退出时excel进程跟着退出。这一点在一个程序需要多次打开关闭excel表时尤为重要。
Excel.Application oApp;
Excel.Workbooks oBooks;
Excel.Workbook oBook;
Excel.Worksheet oSheet;
...........
private void ExcelExit()
{
NAR(oSheet);
oBook.Close(False);
NAR(oBook);
NAR(oBooks);
oApp.Quit();
NAR(oApp);
Debug.WriteLine("Sleeping...");
System.Threading.Thread.Sleep(5000);
Debug.WriteLine("End Excel");
}
private void NAR(Object o)
{
try{System.Runtime.InteropServices.Marshal.ReleaseComObject(o);}
catch{}
finally{o = null;}
}
经过试验，我发现除了释放这些变量以外，必须把该axWebBroswer1也销毁掉，Excel进程才退出。否则的话，即使让axWebBroser1去Navigate空内容"about:blank", excel进程仍然不会退出。因此应该将axWebBroser1所在的Form关闭掉，或者直接调用axWebBrowser1.Dispose();
如果还是其它问题导致不能正常退出，就只有调用垃圾回收了。
GC.Collect();
//********************************经过修改正常调试通过的代码*********************************************//
//********************************2010-10-26*************************************************************//
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using Excel;
using System.Reflection;
//本案例为Office2003版 + Microsoft Web 浏览器 + Visual Studio 2008 + Windows XP SP3
//********************步骤说明***************************************************//
//新建工程名称 NewOpen_Excel ，新建 窗体 Form1
//右击工具箱，选择自定义工具箱，添加COM组件，选择“Microsoft Web 浏览器”（对应文件是\winnt\system32\shdocvw.dll），确定。在工具箱中将会出现WebBroser控件图标。
//添加对Excel的引用。右键选择工程项目-〉添加引用-〉COM-〉添加Microsoft Excel 11.0。（不同的office会有不同版本的dll文件）。
//再添加 Microsoft.Office.Interop.Excel引用
//Microsoft WebBrowser 控件尺寸决定了 所显示工作簿的区域，无工作簿的菜单条，工具栏可用代码添加****
//需要在Excel文档中用宏代码限制右键工具栏弹出菜单和设置相关的显示格式：编辑栏，自定义图形，网格显示
//滚动条，行列标......的屏蔽，以及单元格右键菜单的屏蔽。
//工具栏上的 新建 打印预览 发送邮件 按钮无作用                                           2010-10-26
namespace NewOpen_Excel
{
public partial class Form1 : Form
{
Excel.Application oApp=new Excel.Application()   ;
//Excel.Workbooks oBooks=new  Excel.Workbooks()    ;
//Excel.Workbook oBook =new   Workbook()  ;
//Excel.Worksheet oSheet = new Worksheet() ;
public static Microsoft.Office.Interop.Excel.Range range = null;
public static Microsoft.Office.Interop.Excel.Workbook wbb = null;
Object refmissing = System.Reflection.Missing.Value;
public Form1()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
string sFile = @"C:\Ok.xls";//工作簿所在路径
OpenExcel(sFile);
}
public void OpenExcel(string filePath)
{
if (bOpen == false)//避免重复打开的操作，对话框提示而报错！！！！！
{
try
{
this.axWebBrowser1.Navigate(filePath);
object oApplication = axWebBrowser1.GetType().InvokeMember("Document", BindingFlags.GetProperty, null, axWebBrowser1, null);
wbb = (Microsoft.Office.Interop.Excel.Workbook)oApplication;//可获取该工作簿的相关属性,或者以本工作簿进行邮件发送
bOpen = true;
}
catch
{
}
}
}
//private void axWebBrowser1_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
// {
//本过程可以省略  VS2008
//     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.axWebBrowser1.ActiveXInstance;
//     axWebBrowser1.GetType().InvokeMember("ExecWB", BindingFlags.InvokeMethod, null, axWebBrowser1, args);
//}
private void axWebBrowser1_NavigateComplete2(object sender, AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event e)
{
//必须放在本事件中才能实现Excel的工具栏显示
axWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_HIDETOOLBARS, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER, ref refmissing, ref refmissing);
}
private void ExcelExit()
{
NAR(wbb );                                   //关闭工作簿
oBook.Close(false, wbb.FullName, refmissing);//不做改变保存
oApp.Quit();                                 //退出Excel进程
NAR(oApp);                                   //销毁Excel对象
System.Threading.Thread.Sleep(5000);         //暂停5秒钟
}
private void NAR(Object o)
{
try
{
System.Runtime.InteropServices.Marshal.ReleaseComObject(o);
}
catch
{
}
finally
{
o = null;
}
}
private void Form1_FormClosing(object sender, FormClosingEventArgs e)
{
ExcelExit();
}
}
}