从网站

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