Sub Webクエリ() '月間銅建取込

Dim 接続文字列 As String

接続文字列 = "URL;" & "https://www.nmm.jx-group.co.jp/cuprice/"

'月間銅建

Sheets("月間銅建").Activate

With Sheets("月間銅建").QueryTables.Add(接続文字列, Range("A1"))

　'With ActiveSheet.QueryTables.Add(接続文字列, Range("A1"))

　.WebSelectionType = xlAllTables

　.RefreshOnFileOpen = True

　.Refresh

End With

Sheets("まとめ").Activate

Sheets("月間銅建").Range("A15:B700").ClearContents

End Sub