从网站获取 URL

Question

我在从网站获取 URL 时遇到问题： https://searchbzp.uzp.gov.pl/Search.aspx
在这个网站上有一张桌子。
文本“Zobacz”是一个超链接，我想从这个地方获取 URL。

我可以使用下面的代码点击这个 url，然后浏览器尝试打开新标签： IE.Document.getelementbyID("ctl00_ContentPlaceHolder1_ASPxGridView1_DXCBtn0").Click

但我只想获取此 URL（不打开新标签）。 我试图这样做，但它不起作用：

Dim a
a = IE.Document.parentWindow.ExecScript("javascript:ctl00_ContentPlaceHolder1_ASPxGridView1_DXCBtn0", "JavaScript")
MsgBox a
a = IE.Document.parentWindow.ExecScript(IE.Document.getElementById("ctl00_ContentPlaceHolder1_ASPxGridView1_DXCBtn0").href, "JavaScript")
MsgBox a

谁能帮帮我？

Answer 1

查看我昨天对类似问题的回答：http://stackoverflow.com/a/47593832/8112776

如果您只需要获取一个始终位于同一个位置的值，那么就不需要 IE 对象之类的了。

---

这里：

Function GetHTML(url As String) As String
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", url, False
        .Send
        GetHTML = .ResponseText
    End With
End Function


Sub getData()
    Const url = "https://searchbzp.uzp.gov.pl/Search.aspx"
    Const strStart = "ctl00_ContentPlaceHolder1_ASPxGridView1_DXCBtn0""><span>"
    Const strStop = "</span>"

    Dim html As String, pStart As Long, pStop As Long
    html = GetHTML(url)
    pStart = InStr(1, html, strStart) + Len(strStart)
    pStop = InStr(pStart, html, strStop)
    MsgBox Mid(html, pStart, pStop - pStart)
End Sub