Как остановить веб-браузер

Question

Используя URL в качестве примера, который иллюстрирует проблему, используя Webbrowser, встроенный в ячейку, при DocumentComplete конкретный URL продолжает загружать дополнительное содержимое, что приводит к тому, что DocumentComplete снова и снова запускает Webbrowser.stop безуспешно. Любые предложения с благодарностью.

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xURL As String
    xURL = "https://investorshub.advfn.com/"
    Application.Speech.Speak "Starting Look Up", Speakasync:=True, Purge:=True
    WebBrowser1.Silent = True
    WebBrowser1.Navigate (xURL)
    End
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    WebBrowser1.Stop
    Application.Speech.Speak " Look Up Completed ", Speakasync:=True, Purge:=True
    End
End Sub

Answer 1

Вот предложение с моей стороны,

Пожалуйста, создайте файл BAT со следующим кодом

taskkill /F /IM iexplore.exe /T

'это пример для IE, вы можете изменить в зависимости от браузера

Dim Filepath As String

  Filepath = "C:\user\folder\..."  ' Full path of the BAT file
  Call Shell(Filepath & "\test.bat " & Filepath) ' replace the "test.bat" with your file name

Надеюсь, это поможет вам, пожалуйста, не стесняйтесь размещать ваши предложения

С уважением, Кадхир Натарадж