Web Data Scraper

Sub ScrapeWebData()
    Dim http As Object
    Dim html As Object
    Dim url As String
    Dim response As String
    Dim tables As Object
    Dim table As Object
    Dim rows As Object
    Dim cells As Object
    Dim ws As Worksheet
    Dim r As Long, c As Long

    ' Get URL from user
    url = InputBox("Enter website URL to scrape:")
    If url = "" Then Exit Sub

    ' Create HTTP request object
    Set http = CreateObject("MSXML2.XMLHTTP")

    ' Make request
    http.Open "GET", url, False

' ... 51 more lines hidden ...
'
' Sign up for free to view the complete code
' Visit: vbacode.io