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

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

搞定了，我是通过判断扩展名来决定OPEN的值的，但总觉得怪怪的，