更改窗体状态excel就关闭，不动就就杀不掉，为何，菜鸟跪求[vb.net]

[ydj0427]

代码如下：
Imports System
Imports System.Reflection ' For Missing.Value and BindingFlags
Imports System.Runtime.InteropServices ' For COMException
Imports Excel

…………

Dim VBExcel As Application
VBExcel = New Application()
VBExcel.UserControl = False
VBExcel.Visible = False
With VBExcel
With VBExcel.Workbooks.Open(Me.TextBox4.Text)
With VBExcel.ActiveWorkbook
VBExcel.ActiveWorkbook.Close(True)
End With

End With
.Quit()
End With
VBExcel = Nothing
程序运行了，excel进程不退，但最小化后又回来，进程就没有了，其他地方我都没有动，比较郁闷找不到原因

[cpio]

这个应该是垃圾回收没有及时回收，可能最小化的时候才回收吧

[a854468521]

Dim Star, StopD As Double
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Star = Now.ToOADate
Dim Excel As New Microsoft.Office.Interop.Excel.Application
StopD = Now.ToOADate
Excel.DisplayAlerts = False '关闭警告
Excel.Quit()
Dim Po() As Process = Process.GetProcesses
For Each Pi As Process In Po
Try
If Pi.MainModule.ModuleName.Contains("EXCEL.EXE") = True Then
If Pi.StartTime.ToOADate > Star And Pi.StartTime.ToOADate < StopD Then '经试验如果为DATETIME类型无法判断.
Pi.Kill() '在两个时间内的Excel进程杀掉.
End If
End If
Catch KILL As Exception

End Try
Next
End Sub

[ydj0427]

若相同时间段内操作其他的excel，岂不是误杀了？

[a854468521]

Star = Now.ToOADate
Dim Excel As New Microsoft.Office.Interop.Excel.Application
StopD = Now.ToOADate
你可以测试一下时间间隔，应该在几百毫秒内，而且只杀掉该时间范围内的EXCEL进程，误杀的可能性不大。

[ydj0427]

明白了，听了二楼的垃圾回收，夹了一句 GC.Collect()搞定，三楼的也可以，结贴了

[cpio]

那为什么只给我15分？