I'm trying to pull information from an html table. I want to add each element with in the table to a collection. This is what I have so far.
Dim htmlTable As Object
Dim coll2 As Collection
Set coll2 = New Collection
Set IE = New InternetExplorerMedium
With IE
'.AddressBar = False
'.MenuBar = False
.Navigate ("PASSWORDED SITE")
.Visible = True
End With
Set htmlTable = IE.Document.getElementById("ctl00_ContentPlaceHolder1_gvExtract")
Set tableItem = IE.Document.getElementsByTagName("td")
With coll2
For Each tableItem In htmlTable.innerHTML
.Add tableItem
Next
End With
I have a problem with this line For Each tableItem In htmlTable.innerText I tried diffent variations of htmlTable.innerText each throwing differant errors.
This is the HTML Extract for the table.
Delete | Download | Extract Date | User Id Owner |
---|---|---|---|
Delete | Work Order Inquiry - Work Order | 06/20/2017 07:50:37 | MBMAYO |
Delete | Work Order Inquiry - Work Order | 06/20/2017 07:39:29 | MBMAYO |
Delete | Work Order Inquiry - Work Order | 06/20/2017 07:23:54 | MBMAYO |
Delete | Work Order Inquiry - Work Order | 06/20/2017 07:16:16 | MBMAYO |
Delete | Work Order Inquiry - Work Order | 06/20/2017 07:14:06 | MBMAYO |
The goal is to store each
as an item for a collection and then retrieve the date for example 06/20/2017 07:50:37 from it. This table Grows so I think an array is out of the question?Edit from comment:
I have been trying call this function, I'm getting a object does not support this method error:
Public Function htmlCell(id As String) As String
htmlCell = IE.getElementById("ctl00_ContentPlaceHolder1_gvExtract")
.getElementsByTagName("td")(id).innerHTML
End Function