テスト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;")


'SELECT *
'FROM Table_A
'WHERE NOT EXISTS (SELECT *
'                  FROM Table_A
'                  INNER JOIN  Table_B
'                  ON Table_A.Field_A = Table_B.Field_C
'                  AND Table_A.Field_C = Table_B.Field_F)

'表A{列A+列B}<>表B{列C+列D}
'表Aに存在して､表Bに存在しない表Aのデータを抽出するSQL文のサンプルを教えてください
'SELECT A.*
'FROM TableA A
'LEFT JOIN TableB B ON A.id = B.id
'WHERE B.id IS NULL;