科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道Excel在.Net下驻留内存解决方法

Excel在.Net下驻留内存解决方法

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

    这段时间在VS 2003的WebForm 方式下对Excel 进行操作,遇到一个最为头疼的问题就是对Excel操作完毕后Excel不能够正常关闭,系统退出后,Excel总是驻留在内存中。但是这段代码放到WinForm的程序中又没有问题。

作者:中国IT实验室 来源:中国IT实验室 2007年9月29日

关键字: Excel 编程

  • 评论
  • 分享微博
  • 分享邮件
  

 这段时间在VS 2003的WebForm 方式下对Excel 进行操作,遇到一个最为头疼的问题就是对Excel操作完毕后Excel不能够正常关闭,系统退出后,Excel总是驻留在内存中。但是这段代码放到WinForm的程序中又没有问题。在网上进行了查找也没有找到有效可行的办法。经过无数次的尝试,终于解决如下:

原来书写如下:


private Excel.Application m_app;

private Excel.Workbook m_workbook;

this.m_app = new Excel.ApplicationClass();

this.m_app.DisplayAlerts = false;

this.m_workbook = this.m_app.Workbooks.Open(sFilePath, Missing.Value,

Missing.Value, Missing.Value, Missing.Value,

Missing.Value, Missing.Value, Missing.Value,

Missing.Value, Missing.Value, Missing.Value,

Missing.Value, Missing.Value, Missing.Value,

Missing.Value );

修改后如下:

private Excel.Application m_app;

private Excel.Workbooks m_workbooks;

private Excel.Workbook m_workbook;

this.m_app = new Excel.ApplicationClass();

this.m_app.DisplayAlerts = false;

m_workbooks = this.m_app.Workbooks;

this.m_workbook = this.m_workbooks.Open(sFilePath, Missing.Value,

Missing.Value, Missing.Value, Missing.Value,

Missing.Value, Missing.Value, Missing.Value,

Missing.Value, Missing.Value, Missing.Value,

Missing.Value, Missing.Value, Missing.Value,

Missing.Value );

同样对Sheet的操作如下:

修改前如下:

Excel._Worksheet worksheet1 = null;

worksheet1 = (Excel._Worksheet) this.m_workbook.Worksheets.get_Item(sSheetName);

修改后如下:

Excel.Sheets sheets = null ;

Excel._Worksheet worksheet1 = null;

sheets = this.m_workbook.Worksheets;

worksheet1 = (Excel._Worksheet) sheets.get_Item(sSheetName);

 发现区别了吗?原来Workbooks,Worksheets这两个类没有被实例化就直接使用了,造成该类不能够被回收。最终造成Excel在内存的驻留。

最终以如下方式释放。

private void ReleaseAllRef(Object obj)

{

try

{

if (obj != null )

{

while (Marshal.ReleaseComObject(obj) > 1);

}

}

finally

{

obj = null;

}

}

private void Release()

{

if (m_app != null )

{

m_app.Quit() ;

}

ReleaseAllRef(m_workbook) ;

m_workbook = null ;

ReleaseAllRef(m_workbooks) ;

m_workbooks = null ;

ReleaseAllRef(m_app) ;

m_app = null ;

System.GC.Collect() ;

}

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章