Extract HREF attrib in HTML for output to Excel

[dman78]

Hello, all,

I am trying to extract the HREF value, but I have <a> without a name and I'm stumped. What am I missing that would allow me to obtain the HREF (javascript:gvClosuresSelectRow('802c3a43-f761-4618-94c7-ade013516718') as per below.

My code is as follows:

 Dim htmlElement As MSHTML.IHTMLElement

    For Each htmlElement In IE.document.getElementsByTagName("A")
        Debug.Print htmlElement.getAttribute("href")
        htmlElement.Click
    Next htmlElement

This just lists all Elements with tag, but I need to target only this particular href

<tbody>

    <tr class="GridRow GridViewRow">
        <td style="width:auto;"><a href="javascript:gvClosuresSelectRow('802c3a43-f761-4618-94c7-ade013516718');" title="Screening Incomplete Nov 25, 2021">Select</a></td>
        <td style="width:auto;">Screening Incomplete</td>
        <td style="width:auto;">Nov 25, 2021</td>
        </tr>

    <tr class="GridRow GridViewAltRow">
        <td style="width:auto;"><a href="javascript:gvClosuresSelectRow('7c4b2673-f65b-4ae5-9031-8dd9621903ca');" title="System Closure Nov 28, 2021">Select</a></td>
        <td style="width:auto;">System Closure</td>
        <td style="width:auto;">Nov 28, 2021</td>
      </tr>

 

[John_w]

You could get the table element, then its first row and column. This code assumes the table is the first table on the page:

    Dim table As HTMLTable
    Set table = IE.document.getElementsByTagName("TABLE")(0)
    Debug.Print table.Rows(0).Cells(0).Children(0).href

 

[dman78]

You could get the table element, then its first row and column. This code assumes the table is the first table on the page:

    Dim table As HTMLTable
    Set table = IE.document.getElementsByTagName("TABLE")(0)
    Debug.Print table.Rows(0).Cells(0).Children(0).href

Hi John,

Thanks for your reply.

I am getting an "Object doesn't support this property or method" with the Debug.Print Line.

There is only one table on this page so I am not sure why it is having that error.

 

[John_w]

Maybe:

    Debug.Print table.Rows(0).Cells(0).getElementsByTagName("A")(0).href