"GET" HTML values from the 'current URL' aka "active" tab in internet explore

[Excelody]

I have an excel code which scrapes information from a web-page. In this example I've used "britannica.com/animal/leopard"

When the code is played in VBA, it returns the following values from the <H1> html tags:

• "Distribution"
• "Natural history"

However I want to "GET" these values from the 'current URL' aka "active" tab in internet explore

So rather than saying "GET" values from this URL

website = "https://www.britannica.com/animal/leopard"

I want it to say "GET" these values from the current "active" tab in internet explore/ edge for example:

website = CurrentActiveIETab

Sub Get_Web_Data()

Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim website As String
Dim price As Variant

' Website to go to.
website = "https://www.britannica.com/animal/leopard"


' Create the object that will make the webpage request.
Set request = CreateObject("MSXML2.XMLHTTP")

' Where to go and how to go there - probably don't need to change this.
request.Open "GET", website, False
' Get fresh data.
request.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
' Send the request for the webpage.
request.send

' Get the webpage response data into a variable.
response = StrConv(request.responseBody, vbUnicode)

' Put the webpage into an html object to make data references easier.
html.body.innerHTML = response

' Get the price from the specified element on the page.
price = html.getElementsByClassName("h1")(0).innerText
test2 = html.getElementsByClassName("h1")(1).innerText

' Output the price into a message box.
Range("A1") = price
Range("A2") = test2

End Sub

 

[John_w]

Loop through Shell.Windows to find the required IE window/tab. Search the forum for example code.