将网页中的表格导入 Excel

我只有中高级的Excel水平和中级的VBA与Excel背景。我想要做的是从链接中显示的网页导入表格：http://www.admission.unmsm.edu.pe/res20130914/A/011/0.html http://www.admision.unmsm.edu.pe/res20130914/A/011/0.html

该网页显示 39 个链接，每个链接都包含一个表格。 所以我想知道一种自动将所有这些表导入 Excel 的方法。

此代码从所有链接获取数据。

Sub Extract_data()

    Dim url As String, links_count As Integer
    Dim i As Integer, j As Integer, row As Integer
    Dim XMLHTTP As Object, html As Object
    Dim tr_coll As Object, tr As Object
    Dim td_coll As Object, td As Object

    links_count = 39
    For i = 0 To links_count

        url = "http://www.admision.unmsm.edu.pe/res20130914/A/011/" & i & ".html"

        Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
        XMLHTTP.Open "GET", url, False
        XMLHTTP.send

        Set html = CreateObject("htmlfile")
        html.body.innerHTML = XMLHTTP.ResponseText

        Set tbl = html.getelementsbytagname("Table")

        Set tr_coll = tbl(0).getelementsbytagname("TR")

        For Each tr In tr_coll
            j = 1
            Set td_col = tr.getelementsbytagname("TD")

            For Each td In td_col
                Cells(row + 1, j).Value = td.innerText
                j = j + 1
            Next
            row = row + 1
        Next
    Next

    MsgBox "Done"
End Sub