Get URL von einer Website

Question

ich Schwierigkeiten habe, mit URL von der Website erhalten: https://searchbzp.uzp.gov.pl/Search.aspx
Auf dieser Website gibt es eine Tabelle.
Der Text 'Zobacz' ist ein Hyperlink und von diesem Ort möchte ich URL erhalten.

kann ich auf dieser URL finden Sie im folgenden Code eingeben und dann die neuen Tab zu öffnen Browser versuchen: IE.Document.getelementbyID("ctl00_ContentPlaceHolder1_ASPxGridView1_DXCBtn0").Click

Aber ich will nur diese URL erhalten (ohne neuen Tab zu öffnen). ich versuchte, so etwas wie dies, aber es funktioniert nicht:

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 

mir jemand dabei helfen kann?

Answer 1

Siehe meine Antwort auf eine ähnliche Frage gestern: http://stackoverflow.com/a/47593832/8112776

Wenn Sie nur einen Wert erhalten müssen, ist, dass immer an der gleichen Stelle befindet, dann für IE-Objekte gibt es keine Notwendigkeit und das alles.

---

hier:

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