VB.NET 调用Excel 不能关闭 Excel.exe 进程的问题
发布时间:2020-12-16 23:11:15 所属栏目:大数据 来源:网络整理
导读:使用.net 调用Excel 生成Excel 报表 的时候 会出现 Excel.exe的进程不能关闭. 反复打开几次就会多几次Excel.exe的问题. 网上使用的关闭此进程的方法. ... .... GC.Collect(); ... .... 可是这样的方法有时不起作用. 直被一个问题困扰就是导出excel时如何关闭
使用.net 调用Excel 生成Excel 报表 的时候 会出现 Excel.exe的进程不能关闭. 反复打开几次就会多几次Excel.exe的问题. 网上使用的关闭此进程的方法. ... .... GC.Collect(); ... .... 可是这样的方法有时不起作用. 直被一个问题困扰就是导出excel时如何关闭excel进程,我使用过oExcelApp.Quit(); 也用过GC回收,结果都不理想,后来发现可以kill进程,但是问题是kill进程 时不好解决多人并发的使用,比如一个人在导表然后kill所以的excel但是如果同时又有人在导表那么这就把另外一个excel结束了,现在我们要办的 是如何kill当前这个进程,这里我们先看一下代码: Public Function CloseExcel(ByRef _xl As Excel.Application) As Boolean If _xlApp Is Nothing Then Return True End If If _xlSheet Is Nothing Then Return True End If Try Dim PreocessExcelId As Integer = 0 BringWindowToTop(_xlApp.Hwnd) If _xlBook IsNot Nothing Then Try _xlBook.Close() Catch ex As Exception If Not (TypeOf (ex) Is COMException) Then Throw ex End If End Try End If _xlApp.Quit() GetWindowThreadProcessId(_xlApp.Hwnd,PreocessExcelId) If PreocessExcelId > 0 Then Dim pExcel = Process.GetProcessById(PreocessExcelId) If pExcel IsNot Nothing Then pExcel.Kill() Return True End If End If Catch ex As Exception '_xlBook.Close() '_xlApp.Quit() Finally _xlSheet = Nothing _xlBook = Nothing _xlApp = Nothing End Try End Function <DllImport("User32.dll")> _ Private Shared Function GetWindowThreadProcessId(ByVal hWnd As IntPtr,ByRef OutPresId As Integer) As Integer End Function 'BringWindowToTop <DllImport("User32.dll")> _ Private Shared Function BringWindowToTop(ByVal hWnd As IntPtr) As Boolean End Function (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |