VBA Scraping a Website

[sdoppke]

Hi I have this code below to scrape from the word "Wednesday" across to "Service Level Time Forecast" and then the time column below the word Wednesday to Excel. This works good.
I'm looking of help to pull the numbers, starting with (in this case) the highlighted number 4 to excel. Here is the element for the data in the first column:

<div class="cell highlighted" style="width: 88px; background: none 0% 0% / auto repeat scroll padding-box border-box rgba(0, 0, 0, 0); color: rgb(0, 0, 0);" data-metric-ref="fcContacts" data-metric-position="0" data-metric-datatype="integer" data-rowid="0" data-original-background-color="rgba(0, 0, 0, 0) none repeat scroll 0% 0% / auto padding-box border-box">4</div>

The part I need help inserting into my code below is how to scrape the "fcContacts" piece above into excel.

Here is my VBA so far:

Sub ScapeThis()

Dim HTML As HTMLDocument
Dim objIE As Object
Dim y As Integer
Dim result As String

Set objIE = New InternetExplorer

objIE.Visible = True


objIE.navigate "insert website here"

Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop

x = 1
Set HTML = objIE.document
Set elements = HTML.getElementsByClassName("dayNameNode")
For Each element In elements
    If element.className = "dayNameNode" Then
        Sheets("Sheet1").Cells(1, x).Value = element.innerText ' change 1 to the row you want the data to go to
        x = x + 1
    End If
Next element


Set elements = HTML.getElementsByClassName("headerText")
For Each element In elements
    If element.className = "headerText" Then
        Sheets("Sheet1").Cells(1, x).Value = element.innerText ' change 1 to the row you want the data to go to
        x = x + 1
    End If
Next element


y = 2
Set elements = HTML.getElementsByClassName("timeCell")
For Each element In elements
    If element.className = "timeCell" Then
        Sheets("Sheet1").Cells(y, 1).Value = element.innerText ' change 1 to the column you want the data to go to
        y = y + 1
    End If
Next element


'Insert the part here to pull the column data

End Sub

Thanks in advance for any help.

SD

 

[sdoppke]

Bumping this back up to see, if we have any MVPs that can help.

Let me know if I need to provide more detail. Really trying hard to figure this one out.

SD

 

[sdoppke]

Bumping this up one more time for the day.

Thanks in advance for any help or direction.

SD

 

[sdoppke]

Just in case more source data is helpful (sorry slightly blurry):

 

[sdoppke]

Good morning, is anyone willing and able to help?

 

[sdoppke]

Seems I'm talking to myself, but hoping someone bites.

I might be getting further. I does not return any value(s), but I know the ClassName is correct, because if I use the "editable-row" in both sections below, it returns a full row of data in one cell (in a stacked column way). What I need it to return, is only the "fcContacts" value from each "editable-row". I believe my error is within the "for Each element in elements section, specifically the "if elements.className = "fcContacts" Then" sections.

Any thoughts? I would really appreciate the help.

This code does not work but seems like it is getting closer.

Z = 2
Set elements = html.getElementsByClassName("editable-row")
For Each element In elements
    If element.className = "fcContacts" Then
        Sheets("Sheet1").Cells(Z, 2).Value = element.innerText
        Z = Z + 1
    End If
Next element

 

[sdoppke]

I will add, that if I choose "editableTable" class name, from the above picture, it returns all the values into 1 cell. So, I suppose another angle at this could be to figure out how to get those values into unique cells.

Anyone have ideas??

SD

 

[John_w]

There isn't a class named "fcContacts". "fcContacts" is the first child of each "editable-row" div, so try:

Set elements = html.getElementsByClassName("editable-row")
For Each element In elements
    Debug.Print element.Children(0).innerText
Next element

 

[sdoppke]

There isn't a class named "fcContacts". "fcContacts" is the first child of each "editable-row" div, so try:

Set elements = html.getElementsByClassName("editable-row")
For Each element In elements
    Debug.Print element.Children(0).innerText
Next element

John - I so appreciate the help. Thank you, thank you. This is starting to work. Is there a way I tweak this to focus only on the child "fcContacts"?

Again, can't tell how much I appreciate the direction.

SD

 

[sdoppke]

John - I so appreciate the help. Thank you, thank you. This is starting to work. Is there a way I tweak this to focus only on the child "fcContacts"?

Again, can't tell how much I appreciate the direction.

SD

John - I think I answered my own question. That seems to be what the 0 is for....