[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
ネタ元