• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Grab specific data by id

Hi there!! Is it possible for you to unveil the link or any link of that sort? Meanwhile, you can go through this demo in which "id" is used to grab the content.

Code: 
Sub TorrentData()
    Dim http As New XMLHTTP60, html As New HTMLDocument
    Dim elems As Object

    With http
        .Open "GET", "https://www.yify-torrent.org/search/1080p/", False
        .send
        html.body.innerHTML = .responseText
    End With
   
    For Each elems In html.getElementById("content").getElementsByTagName("img")
        x = x + 1: Cells(x, 1) = elems.src
    Next elems
End Sub
 
The code is a bit awkward to look at but it does it's job, if i understood what you requested. I'll take a look at it to give a beautiful look tomorrow.
Code: 
Sub AppsData()
    Dim http As New XMLHTTP60, html As New HTMLDocument

    With http
        .Open "GET", "https://wwwapps.ups.com/tracking/tracking.cgi?tracknum=1Z3V891F0352284030", False
        .send
        html.body.innerHTML = .responseText
    End With
   
    Range("A3") = html.getElementById("trkNum").innerText
    Range("B3") = html.getElementById("tt_spStatus").innerText
End Sub

Btw, if it is not what you wanted then do inform me what you meant by value and status.
 
Last edited:
You must log in or register to reply here.
Back
Top