运行时错误91使用vba将特定的html div标记innertext拼凑到电子表格

我试图从成千上万个不同（但相似）的网页上抓取一个特定的数据点。 （我需要不同公司的EBITDA）。 看到我的代码如下。

看到我下面的macros代码。

Enum READYSTATE READYSTATE_UNINITIALIZED = 0 READYSTATE_LOADING = 1 READYSTATE_LOADED = 2 READYSTATE_INTERACTIVE = 3 READYSTATE_COMPLETE = 4 End Enum Sub TAM_Click() Dim ticker As String Dim ie As InternetExplorer Dim html As HTMLDocument Dim RowNumber As Integer Set ie = New InternetExplorer ie.Visible = False RowNumber = 6 ticker = Sheet1.Cells(RowNumber, 3) ie.navigate "financials.morningstar.com/income-statement/is.html?t=" + ticker + "&ops=clear" Do While ie.READYSTATE <> READYSTATE_COMPLETE DoEvents Loop Set html = ie.document Dim ElementList As IHTMLElement Dim Elements As IHTMLElementCollection Dim Element As IHTMLElement Set ElementList = html.getElementById("data_i90") Set Elements = ElementList.Children For Each Element In Elements If Element.ID = "Y_6" Then Debug.Print Element.innerText End If Next Element 

我得到一个运行时错误91对象variables或块variables未设置

通过试验和错误我已经确定问题是与设置variables元素和元素。

谁能告诉我我可能做错了什么？ 任何帮助/代码评论非常感谢。

编辑：

我相信错误可能是用IHTMLElementCollection嵌套的HTML标签不能用ElementList.Children操作调用..至less这是我得到运行时错误91的第一行。我需要检查网页的HTML看看为什么我不能这样做