VB.NET 调用Excel 不能关闭 Excel.exe 进程的问题

使用.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