Web Scraping

Extract data from websites easily.

Examples

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