Sub sample() '取得したい表を持つURL Const TARGET_URL As String = "https://mulka2.com/lapcenter/lapcombat2/result-list.jsp?event=7218&file=1&class=0" With Worksheets("Sheet1").QueryTables.Add(Connection:="URL;" + TARGET_URL, _ Destination:=…