Extract data from a webpage and display it on a cell

[shirazx3]

Hello,
So I am a total novice with Excel VBA. I am trying to create a scenario where I can extract a particular value (inside an ID tag) from a webpage and display it on a particular cell in my excel worksheet. But it doesn't seem to work. Where am I going wrong? Thanks

Private ch As Selenium.ChromeDriver
Sub Test()

Set ch = New Selenium.ChromeDriver
ch.AddArgument "start-maximized"
ch.Start baseUrl:="https://upxland.me/users"
ch.Get ("/delnia")
Set b = ch.FindElementById("input-87")
Cells(1, 1).Value = b.Text

End Sub

 

[Anthony47]

Do you receive a run-time error? Does Chrome shows the page that you expect? If you write any value in cells(1,1) daes the macro leave the cell unchanged or empty?
For debugging, add the following block of instructions:

Set b = ch.FindElementById("input-87")
'ADD THIS BLOCK >>
On Error Resume Next
    Debug.Print "A", TypeName(b)
    Debug.Print "B", b.Attribute("outerHTML")
On Error GoTo 0
'<< End of block
Cells(1, 1).Value = b.Text

End Sub

Then run your code; at the end open the vba editor (from Excel Alt-F11 should do the job); open the "Immediate window" (Contr-g should o the job), copy any printout you find there and pste it into your next message, along with the answers to the initial questions

 

[shirazx3]

Do you receive a run-time error? Does Chrome shows the page that you expect? If you write any value in cells(1,1) daes the macro leave the cell unchanged or empty?
For debugging, add the following block of instructions:

Set b = ch.FindElementById("input-87")
'ADD THIS BLOCK >>
On Error Resume Next
    Debug.Print "A", TypeName(b)
    Debug.Print "B", b.Attribute("outerHTML")
On Error GoTo 0
'<< End of block
Cells(1, 1).Value = b.Text

End Sub

Then run your code; at the end open the vba editor (from Excel Alt-F11 should do the job); open the "Immediate window" (Contr-g should o the job), copy any printout you find there and pste it into your next message, along with the answers to the initial questions

Thanks for reaching out.
No there is no run-time error. Chrome opens the page that I've inserted and it opens just fine. After running the macro, there are no values in cell(1,1) meaning its still empty. If I write anything in cell(1,1) manually, it shows what I wrote.

This is what Immediate window displayed :

A WebElement
B <input id="input-87" readonly="readonly" type="text">

 

[Anthony47]

A WebElement
B <input id="input-87" readonly="readonly" type="text">

A says that the element "b" is identified, but B says it has no any Text associated

I looked at the web page and I didn't understand how the value is displayed; we need someone that can suggest what to look for within the html code

 

[shirazx3]

The box with value enclosed within 2 red lines is what I am trying to extract and the associated element with it. I believe the data comes from the blockchain and it is a dynamic value.
Thanks anyways for your consideration.

A says that the element "b" is identified, but B says it has no any Text associated

I looked at the web page and I didn't understand how the value is displayed; we need someone that can suggest what to look for within the html code

 

[Anthony47]

I already had visited that page and examined those elements; as I wrote, I don't understand which trick they use to show those values, that is a question for an expert in web design

 

[Anthony47]

...but I am curious enough, so continued to explore the element; it has a "value" attribute that can be catched:

Cells(1, 1).Value = b.attribute("value")

 

[shirazx3]

I apologize for the late response but your solution worked ...Thank you once again...Another thing I would like to seek from you is if I can update this value anytime I want....like putting a button for refresh or whichever way possible.
Thanks

 

[shirazx3]

I had another question.
1- How can I get this result without opening the browser?
2- How should I proceed if I want to extract the same data for 2 users instead of 1?

 

[Anthony47]

I had no time to explore if this search works using an MSXML request, so you have to use Chrome. If you dont like it taking the full screen, you could use argument “—headless” instead of “start-maximized”:

‘ch.AddArgument "start-maximized"
ch.AddArgument "--headless"

But I would recommand starting the window normally and resizing the window:

WPage.Get ("/delnia")
WPage.Window.SetSize 0, 0

In this way you will see there is a chrome window, without it getting the full scene

If you have to get the same information for two users, the easiest way is that you duplicate the code from ch.Get ("/delnia"); if you have more users you could use a loop, for example:

ch.Start baseUrl:="https://upxland.me/users"
ch.Window.SetSize 0, 0
uArr = Array("delnia", "pippia", "poppia")
For I = 0 To UBound(uArr)
    ch.Get "/" & uArr(I)
    ch.Wait 500
    Set B = ch.FindElementById("input-87")
    Cells(1, I + 1).Value = B.Attribute("value")
Next I

To easily start the macro you could add a button on your worksheet linkedt to your Sub Test, or you can use a "shortcut", or other ways described here: Run a macro