get element value from web page

[sal21]

I just have IE object active in my code.
....
<p>
<a itemprop="hasMap" href="/ita/mappe/mappe_out.html?id_comune=087055"><img src="/ita/images/mappe_ita.jpg" alt="Mappe di Zafferana Etnea" class="centro" ></A>
</p>
....

i need to get the bold value.

site:
https://italia.indettaglio.it/ita/sicilia/zafferan...

 

[Domenic]

Try the following code, where htmlDoc represents the HTML document...

    Dim id_comune As String
    id_comune = htmlDoc.querySelector("a[itemprop='hasMap']").getAttribute("href")
    id_comune = Mid$(id_comune, InStrRev(id_comune, "=") + 1)
    
    Debug.Print id_comune

Hope this helps!

 

[sal21]

Try the following code, where htmlDoc represents the HTML document...

    Dim id_comune As String
    id_comune = htmlDoc.querySelector("a[itemprop='hasMap']").getAttribute("href")
    id_comune = Mid$(id_comune, InStrRev(id_comune, "=") + 1)
   
    Debug.Print id_comune

Hope this helps!

tks bro, but have error in:

id_comune = htmlDoc.querySelector("a[itemprop='hasMap']").getAttribute("href")

 

[Automatrix]

Power Query Solution: Extract Text Between Delimiters.

 

[Domenic]

That's because you have not defined htmlDoc. So you should have the following...

    Dim htmlDoc As Object
    Set htmlDoc = CreateObject("htmlfile")
    Set htmlDoc = IE.document
    
    Dim id_comune As String
    id_comune = htmlDoc.querySelector("a[itemprop='hasMap']").getAttribute("href")
    id_comune = Mid$(id_comune, InStrRev(id_comune, "=") + 1)
    
    Debug.Print id_comune

By the way, in future, please post any code within code tags. Otherwise we are unable to copy/paste code from an image when needed.

Hope this helps!

 

[sal21]

That's because you have not defined htmlDoc. So you should have the following...

    Dim htmlDoc As Object
    Set htmlDoc = CreateObject("htmlfile")
    Set htmlDoc = IE.document
   
    Dim id_comune As String
    id_comune = htmlDoc.querySelector("a[itemprop='hasMap']").getAttribute("href")
    id_comune = Mid$(id_comune, InStrRev(id_comune, "=") + 1)
   
    Debug.Print id_comune

By the way, in future, please post any code within code tags. Otherwise we are unable to copy/paste code from an image when needed.

Hope this helps!

 

[sal21]

great!!!!
Work!