web.config
=============
<identity impersonate="true" username="superadmin" password="123456"/>
=============
PrintExcel.class中
==================try
''''打开Excel文件
myApp = New Excel.Application
With myApp '11111
.Workbooks.Open("D:\PlS\Template\BAOJIADAN.XLT")
.Visible = False
End With '11111
mySheet = myApp.Sheets(1)
....
''''打开Excel文件
........
''''打开Excel文件
'''''关闭Excel文件
myApp.ActiveWorkbook.Close(False)
myApp.Quit()
myApp = Nothing
mySheet = Nothing
''''关闭Excel文件
Catch ex As Exception
sMsg = Err.Description & "[" & Err.Number & "]"
Return sMsg
Finally
MemoryClear()
End Try #Region "清理生成的相关资源 "
Protected Sub MemoryClear()
If TypeName(myApp) <> "Nothing" Then myApp.Quit()
If TypeName(myApp) <> "Nothing" Then System.Runtime.InteropServices.Marshal.ReleaseComObject(myApp)
If TypeName(mySheet) <> "Nothing" Then System.Runtime.InteropServices.Marshal.ReleaseComObject(mySheet)
If TypeName(myBook) <> "Nothing" Then System.Runtime.InteropServices.Marshal.ReleaseComObject(myBook)
myBook = Nothing
mySheet = Nothing
myApp = Nothing
GC.Collect()
End Sub
#End Region这样还关闭不了。!!!!
=============
<identity impersonate="true" username="superadmin" password="123456"/>
=============
PrintExcel.class中
==================try
''''打开Excel文件
myApp = New Excel.Application
With myApp '11111
.Workbooks.Open("D:\PlS\Template\BAOJIADAN.XLT")
.Visible = False
End With '11111
mySheet = myApp.Sheets(1)
....
''''打开Excel文件
........
''''打开Excel文件
'''''关闭Excel文件
myApp.ActiveWorkbook.Close(False)
myApp.Quit()
myApp = Nothing
mySheet = Nothing
''''关闭Excel文件
Catch ex As Exception
sMsg = Err.Description & "[" & Err.Number & "]"
Return sMsg
Finally
MemoryClear()
End Try #Region "清理生成的相关资源 "
Protected Sub MemoryClear()
If TypeName(myApp) <> "Nothing" Then myApp.Quit()
If TypeName(myApp) <> "Nothing" Then System.Runtime.InteropServices.Marshal.ReleaseComObject(myApp)
If TypeName(mySheet) <> "Nothing" Then System.Runtime.InteropServices.Marshal.ReleaseComObject(mySheet)
If TypeName(myBook) <> "Nothing" Then System.Runtime.InteropServices.Marshal.ReleaseComObject(myBook)
myBook = Nothing
mySheet = Nothing
myApp = Nothing
GC.Collect()
End Sub
#End Region这样还关闭不了。!!!!
解决方案 »
- 遇到一个奇怪的问题,点俩次“创建”后,在点击第一个button没有触发事件
- 再向高手致敬 帮我解决一下 下面的问题吧 求求各位啦 在线等!谢谢
- asp.net中,上传图片时控制大小的问题?
- asp.net在调试时,怎么从循环中跳出来?
- 冰天雪地跪求1个ASP.NET文件下载程序
- 希望有人帮助我,显示ole字段问题
- 全XP界面和操作的磁盘管理系统(提供下载了)
- 怎么通过手机号码定位找人,查找婚姻位置,调查小三行踪
- 为什么向这样的<asp:textbox id="txtlv" runat="server"></asp:textbox>的文本框显示不出来
- 推荐一本讲正则表达式的书吧,我快崩溃了,
- 求一个文字转拼音的.NET程序(例子)~悬赏20分!
- 《〈〈〈treeview的问题〉〉〉》》
objExcel.Workbooks.Close();
objExcel.Quit(); System.Runtime.InteropServices.Marshal.ReleaseComObject (objExcel);
System.Runtime.InteropServices.Marshal.ReleaseComObject (objExcel); objWork=null;
objExcel = null; GC.Collect();
objExcel.Workbooks.Close();
objExcel.Quit(); System.Runtime.InteropServices.Marshal.ReleaseComObject (objExcel);
System.Runtime.InteropServices.Marshal.ReleaseComObject (objExcel); objWork=null;
objExcel = null; GC.Collect();
=========================================================
还是退不掉。
Public Sub KillExcel()
Dim pList() As Process = Process.GetProcessesByName("Excel")
For Each proc As Process In pList
proc.Kill()
Next
End Sub
objExcel = null;GC.Collect();
------------------
正解
我是在Finally里把所有要用到的connection command
等资源全都释放掉就好了