COM组件导出Excel，关闭Excel进程，释放Excel资源

时间：2010-12-24 来源：马老虎

-------

经常使用到Excel COM组件导出EXCEL数据。但是很多人头疼的是如何释放Excel资源。

网上有好多这方面的资料。但是方法就是那么几种。

1，强制垃圾回收。

使用GC.Collect();强制垃圾回收。但是效果不明显，有时候根本不起作用。

2，杀掉Excel进程。

执行完EXCEL然后杀掉进程，虽然这100%能杀掉，但是用户需要权限，还得修改服务器的设置（BS网站很难实现）。再说容易误删，这样做是有效果，但是很危险。

----------------------------

上面俩种方法都不适宜使用，那怎么办呢？

其实在MSDN上有一片文章就是关于这个问题

点击查看

文章的意思是对于每个Excel中的对象全部释放掉。

停止使用某个对象时，应使用 System.Runtime.InteropServices.Marshal.ReleaseComObject。这样可以减少 RCW 的引用计数。
要释放对变量的引用，请将变量设置为等于 Nothing 或 Null。
使用 Office 应用程序对象的 Quit 方法通知服务器关闭。

文章中描述的很清楚，就是释放全部资源。

代码 private void ExportExcel1(DataTable dt, string _strTitle)
    {
        string newpath = Server.MapPath(".") + @"\" + Guid.NewGuid() + ".xls";

        Excel.Application app = new Excel.Application();
        Excel.Workbook wbook = app.Workbooks.Add(System.Reflection.Missing.Value);
        Excel.Worksheet tsheet = (Excel.Worksheet)wbook.ActiveSheet;

        Excel.Range ran = null;

        for (int i = 0; i < dt.Rows.Count; i++)
        {
            for (int j = 0; j < dt.Columns.Count; j++)
            {

                ran = (Excel.Range)tsheet.Cells[i + 1, j + 1];
                ran.Value2 = dt.Rows[i][j];
                //释放ran
                NAR(ran);
            }
        }
        NAR(tsheet);
        wbook.Close(true,newpath, System.Reflection.Missing.Value);
        NAR(wbook);
        app.Quit();
        NAR(app);
    }

     /// <summary>
    /// 释放资源
    /// </summary>
    /// <param name="o"></param>
    private void NAR(object o)
    {
        try
        {
            System.Runtime.InteropServices.Marshal.ReleaseComObject(o);
        }
        catch { }
        finally
        {
            o = null;
        }
    }

以上代码就可以解决Excel的问题，如果你觉得不明显那么再使用GC.Collect();强制回收（）。

--------------------------------------------------------------------

以上代码在VS2005中可以正常使用。刚才测试了下VS2003竟然发现还是产生许多的Excel进程。

于是将代码修改了下。

代码 string newpath = Server.MapPath(".") + @"\" + Guid.NewGuid() + ".xls";
        _excel.Application app = new _excel.Application();
        _excel.Workbooks wbooks = app.Workbooks;
        _excel.Workbook wbook = wbooks.Add(System.Reflection.Missing.Value);

        //VS2003中最好不要如下创建
        // _excel.Workbook wbook = app.Workbooks.Add(System.Reflection.Missing.Value);

        _excel.Worksheet tsheet = (_excel.Worksheet)wbook.ActiveSheet;

        //为 tsheet.Cells 创建 Range ，方便释放资源
        _excel.Range rans = (_excel.Range)tsheet.Cells;

        //创建ran为了下面赋值时候使用
        _excel.Range ran = null;

        for (int i = 0; i < dt.Rows.Count; i++)
        {
            for (int j = 0; j < dt.Columns.Count; j++)
            {
                ran = (_excel.Range)rans[i + 1, j + 1];
                ran.Value2 = dt.Rows[i][j];
                NAR(ran);
                //不要如下方式赋值
                //tsheet.Cells[i + 1, j + 1] = dt.Rows[i][j];
            }
        }
        NAR(rans);
        NAR(tsheet);
        //保存信息
        wbook.Close(true,newpath, System.Reflection.Missing.Value);
        NAR(wbook);
        NAR(wbooks);
        app.Quit();
        NAR(app);

第一次写技术方面的内容，请大家多多包涵。

--马老虎