從網站

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