HTMLソースをダウンロードする

[excelVBA]
XMLHTTPオブジェクトで簡単に習得できる

Sub Sample()
    Dim Http, buf As String
    Set Http = CreateObject("MSXML2.XMLHTTP")
    Http.Open "GET", "http://www.officetanaka.net/other/index.htm", False
    Http.Send
    buf = StrConv(Http.ResponseBody, vbUnicode)

    ...

    Set Http = Nothing
End Sub

ネタ元