asp.net – 使用Excel VBA从aspx页面表中检索数据

问题

有一个aspx页面(比如www.abc.aspx).我目前在此页面.请将此页面设为page1.

现在,我单击当前页面上的page2链接.值得注意的是,点击此链接后,旧URL(www.abc.aspx)不会更改,但内容会发生变化.(内容属于第2页)

如果您查看它的page1源代码

<form method="post" action="page1 url" id="Form1">

无论第1页(第2页点击)上的操作是什么,它都会回发相同的page1网址.

那么如何在excel VBA中获取page2表数据,因为我不知道它的URL？

码

这就是我用来获取表数据的方法.

我使用了Internet Explorer对象.然后导航到链接并将文档保存在htmldoc中.

ie.navigate "url"

Do While ie.READYSTATE <> READYSTATE_COMPLETE
Application.StatusBar = "Fetching data..."
DoEvents
Loop

Set htmldoc = ie.document

'Column headers
Set eleColth = htmldoc.getElementsByTagName("th")
j = 0 'start with the first value in the th collection
        For Each eleCol In eleColth 'for each element in the td collection
            ThisWorkbook.Sheets(1).Range("A1").Offset(i,j).Value = eleCol.innerText 'paste the inner text of the td element,and offset at the same time
            j = j + 1 'move to next element in td collection
        Next eleCol 'rinse and repeat


'Content
Set eleColtr = htmldoc.getElementsByTagName("tr")

'This section populates Excel
    i = 0 'start with first value in tr collection
    For Each eleRow In eleColtr 'for each element in the tr collection
        Set eleColtd = htmldoc.getElementsByTagName("tr")(i).getElementsByTagName("td") 'get all the td elements in that specific tr
        j = 0 'start with the first value in the td collection
        For Each eleCol In eleColtd 'for each element in the td collection
            ThisWorkbook.Sheets(1).Range("D3").Offset(i,and offset at the same time
            j = j + 1 'move to next element in td collection
        Next eleCol 'rinse and repeat
        i = i + 1 'move to next element in td collection
    Next eleRow 'rinse and repeat

ie.Quit
Set ie = Nothing

编辑：

例

如果我们点击Stack Overflow中的问题(https://stackoverflow.com/questions)
现在点击第2页的问题(新链接是https://stackoverflow.com/questions？page = 2& sort = newest)

在我的情况下,如果我们点击第2页,新链接不会更新.它是相同的旧链接.

编辑：我在这里找到了类似的问题

How do I get url that is hidden by javascript on external website?

谢谢.