Code
Sub pullDatafromweb()
Dim IE As Object
Dim doc As HTMLDocument
'initializing the IE'
Set IE = CreateObject("InternetExplorer.Application")
'allows us to see the browser getting launched'
IE.Visible = True
'telling the object to go to the following object'
IE.Navigate "https://clinicaltrials.gov"
'tells the system to wait until the page is loaded before moving into the next line'
Do While IE.Busy Or IE.ReadyState <> 4
Application.Wait DateAdd("s", 1, Now)
'puts the specificed values/strings in the search boxed'
Loop
Set doc = IE.document
doc.getElementById("home-search-condition-query").Value = "GvHD"
IE.document.getElementById("home-search-other-query").Value = "MSC"
doc.getElementByTagClass("input.ct-searchButton.hp-searchButtonn").Click
End Sub
Display More