表があるURLからエクセルにDL

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:=Range("B2"))
        '列幅を元の表と同じにする
        .AdjustColumnWidth = True
        '書式は設定しない
        .WebFormatting = xlWebFormattingNone
        '指定したテーブルのみ取得する
        .WebSelectionType = xlSpecifiedTables
        '1つ目の表を取得する
        .WebTables = 1
        '取得する
        .Refresh BackgroundQuery:=False
        '作成される「クエリと接続」を削除する
        .Delete
    End With

End Sub