Extract data from websites easily.
Sub do_a_search_on_wikipedia()
Dim doc As New Scraping
Dim search As String
search = "document object model"
doc.gotoPage "https://en.wikipedia.org/wiki/Main_Page", True 'browser visible
doc.id("searchInput").fieldValue search
doc.id("searchButton").click
End Sub
Sub extract_the_titles_of_the_questions_in_stackoverflow()
Dim i As Integer
Dim doc As New XmlScraping
Dim numberTitles As Integer
doc.gotoPage "https://stackoverflow.com/"
numberTitles = doc.css(".summary h3 a").count
For i = 0 To numberTitles - 1
Cells(i + 1, 1) = doc.css(".summary h3 a").index(i).text
Next i
End Sub