Populate excel column with data from a URL

Such as this to extract?

Windows machines:

add the reference in to microsoft xml and to html object library VBE > tools > references

Also, XMLHTTP60 will need to be adjusted (the 60 bit) to the appropriate version for your Excel.

' "http://161.202.184.168/excelimport.txt"

Sub Getinfo3()

    Dim http As New XMLHTTP60
    Dim html As New HTMLDocument

    With http
        .Open "GET", "http://161.202.184.168/excelimport.txt", False
        .send
        html.body.innerHTML = .responseText
    End With

   Dim returnArray() As String
   returnArray = Split(html.body.innerText, " ")

   Dim currentItem As Long

   For currentItem = LBound(returnArray) To UBound(returnArray)
       ActiveSheet.Cells(currentItem + 1, 1) = returnArray(currentItem)
   Next currentItem

End Sub

And internet explorer version (requires reference to Microsoft Internet Controls and html object library

Public Sub scrapeaIE()

    Dim appIE As Object
    Dim ihtml As Object

    Set appIE = CreateObject("internetexplorer.application")

    With appIE

        .Visible = True
        .navigate "http://161.202.184.168/excelimport.txt"

        While .Busy = True Or .readyState < 4: DoEvents: Wend

        Set ihtml = .document

    End With

    Dim returnArray() As String
    returnArray = Split(ihtml.body.innerText, vbNewLine)

    Dim currentItem As Long

    For currentItem = LBound(returnArray) To UBound(returnArray)
        ActiveSheet.Cells(currentItem + 1, 1) = returnArray(currentItem)
    Next currentItem

    appIE.Quit

    Set appIE = Nothing

End Sub

References included to use both (Excel 2016)

1. Internet Controls
2. XML Library (version for your excel)
3. HTML Object library (version for your excel)

Edit:

For Mac:

You may be able to do something with AppleScript and MacScript

Edit:

The OP running the code starting getting cache data returning after the first run with each new URL. In the same way as Excel-VBA REST WCF works on 1st call, but subsequent calls return cached (non-current) data

The resolution was to add:

.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"

Before

.send