VBA and Scraping a table from web: how can I detect an image?

[Nelson78]

Hello everybody.

I use to scrap data from a table with the following code:

Dim tbls, tbl, trs, tr, tds, td, R, c
Set tbls = IE.document.getElementsByTagName("table")

For R = 0 To tbls.Length - 1
Debug.Print R, tbls(R).Rows.Length
Next R

Set tbl = IE.document.getElementsByTagName("table")(8)
Set trs = tbl.getElementsByTagName("tr")



For R = 0 To trs.Length - 1

Set tds = trs(R).getElementsByTagName("td")

If tds.Length = 0 Then Set tds = trs(R).getElementsByTagName("th")

For c = 0 To tds.Length - 1
Worksheets("Sheets2").Range("A1").Offset(R, c).Value = tds(c).innerText
Next c

Next R

This works perfectly, except for a point.

In one of the columns of the table, sometime it is possible to find an image.

I can't detect it with the code above.

Parsing the framework this way:

trs
item2
cells
item13
innerhtml

I can found inside the value of that innerhtml an item:

title = Image07

That is the info I need for any row of the table, answering the question: is there the Image07? (Yes/No).


How can I figure it out?

 

[Nelson78]

No ideas?

 

[Domenic]

The following code assumes that the image will be found in the third column. And so it loops through each row within the third column, and checks whether there's an image by the name "Image07". If so, it prints its source to the Immediate Window, and exits the For/Next loop. Change the cell index for which to search as desired. For example, to search the first column in the row instead, replace...

Set img = .Item(i).Cells(2).querySelector("img")

with

Set img = .Item(i).Cells(0).querySelector("img")

Note that the indexing for cells starts at zero. Here's the code...

    Dim img As Object
    Dim i As Long
  
    On Error Resume Next
    With trs
        For i = 0 To .Length - 1
            Set img = .Item(i).Cells(2).querySelector("img") 'check third column (2 as the index number since cells is zero-based)
            If Err.Number = 0 Then
                If img.getAttribute("title") = "Image07" Then
                    Debug.Print img.getAttribute("src")
                    Exit For
                End If
            Else
                Err.Clear
            End If
        Next i
    End With
    On Error GoTo 0

Hope this helps!