网址改动导致提取数据失败，请问该如何修改？

bav99

原网址是：http://www.bwlc.net/bulletin/trax.html?page=1
现在改成了：http://www.bwlc.net/bulletin/trax.html?pageNum=1

数据提取失败，请问应该如何修改？谢谢！

Sub getwebdata()
    Dim url, html
    For p = 1 To 5
        url = "http://www.bwlc.gov.cn/bulletin/trax.html?page=" & p
        Set html = CreateObject("htmlfile")
        With CreateObject("msxml2.xmlhttp")
            .Open "get", url, False
            .send
            html.body.innerhtml = .responsetext
        End With
        Set tb = html.all.tags("table")(1).Rows
        
        For i = IIf(p = 1, 0, 1) To tb.Length - 1
            n = n + 1
            For j = 0 To tb(i).Cells.Length - 1
               
                Cells(n, j + 1) = tb(i).Cells(j).innertext
            Next
        Next
        
    Next
End Sub



补充内容 (2018-8-3 12:12):
已解决

bav99

url = "http://www.bwlc.gov.cn/bulletin/trax.html?page=" & p改成 url = "http://www.bwlc.gov.cn/bulletin/trax.html?pageNum=" & p

bav99

url = "http://www.bwlc.gov.cn/bulletin/trax.html?page=" & p改成 url = "http://www.bwlc.gov.cn/bulletin/trax.html?pageNum=" & p之后也是不行，应该如何修改？请高手帮忙解决，谢谢！