テスト118

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

'Dim str As Strin
'str = driver.ExecuteScript("return  window.location.href;")