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

首先建议使用Excel 第三方插件。下文介绍的是Excel COM组件的问题。

-------

经常使用到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);

 

 

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

--马老虎