主题：浏览后如何关闭EXCEL进程？

 1、

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("excel")
For Each p As System.Diagnostics.Process In ps
    If p.MainWindowTitle = Nothing  Then
        p.kill
    End If
Next

 2、

在事件里控制是否执行全局代码里面的事件代码即可啊。

1、全局代码

Public open As Boolean = False
Public Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
If open Then
    Dim axWebBrowser As Object = sender.ActiveXInstance
    Dim refmissing As [Object] = System.Reflection.Missing.Value
    Dim args As Object() = New Object(3) {}
    args(0) = 24
    args(1) = 2
    args(2) = refmissing
    args(3) = refmissing
   
    axWebBrowser.[Gettype]().InvokeMember("ExecWB", 256, Nothing, axWebBrowser, args)
End If
End Sub

2、打开之前，控制变open为true或false