Excel Userform WebBrowser stop Newwindow

[Ryan0120]

Hi all,

I got an issue with Excel userform Microsoft webbrowser.

Purpose of my userform/macro:
- Searching cell value in Webbrowser to view info on specified websites.

Webbrowser1.Navigate = "https://www.digikey.nl/products/en?keywords=" & textbox1.text

The problem is that:
- I can't follow a link which normally would open in a new tab. (If I copy the link manually and browse it with the webbrowser it works fine.)
- I'm unable to catch the link its trying to follow it only cathces the url its currently at.
- It tries to open an newwindow instead it should open in current window.

Link to try:

RT0603BRD0710KL YAGEO | Resistors | DigiKey

Order today, ships today. RT0603BRD0710KL – 10 kOhms ±0.1% 0.1W, 1/10W Chip Resistor 0603 (1608 Metric) Thin Film from YAGEO. Pricing and Availability on millions of electronic components from Digi-Key Electronics.

www.digikey.nl

then navigate to Datasheet button.

What I tried:
Catching the URL at BeforeNavigate event

Link = Webbrowser1.locationURL

or WebBrowser1.URL.ToString (didnt get the right link)

Redirecting at WebBrowser1_NewWindow2

Cancel = true
WebBrowser1.Navigate (link)

Some pointers in the right direction would be more then welcome.
Most results I found on google are c# based.

 

[Ryan0120]

No one who can point me into the right direction?

 

[John_w]

Try this code in the userform's module:

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    
    Dim link As Object
    
    Set link = WebBrowser1.Document.ActiveElement
    If link.tagName = "A" Then
        WebBrowser1.Navigate link.href
    End If
    
    'Set Cancel flag to prevent new IE window opening
    Cancel = True

End Sub

 

[Ryan0120]

Try this code in the userform's module:

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
   
    Dim link As Object
   
    Set link = WebBrowser1.Document.ActiveElement
    If link.tagName = "A" Then
        WebBrowser1.Navigate link.href
    End If
   
    'Set Cancel flag to prevent new IE window opening
    Cancel = True

End Sub

Works like a charm so far thanks alot!!! You made my day !