Sub GetHTML()
Dim url As String
Dim http As Object
Dim html As String
url = "https://weather.yahoo.co.jp/weather/" ' 取得したいURLを入力
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", url, False
http.send
html = http.responseText
With ThisWorkbook.Sheets("HTML")
.Range("A1").Value = html
End With
End Sub
Register as a new user and use Qiita more conveniently
- You get articles that match your needs
- You can efficiently read back useful information
- You can use dark theme