Html 运行时错误91-未设置对象

当运行下面的代码时，我得到一个运行时错误91-对象未设置或块。。。但我不知道如何修复它。它发生在：

.document.body.innerHTML = Status.innerHTML

有人看穿了吗

Dim Groups  As Collection
Set Groups = New Collection
Groups.Add "LineGroupSA"
Groups.Add "LineGroupPR"
Groups.Add "LineGroupEM"
i = 0
For Each group In Groups
Set Status = IEDoc.getElementById(group)
With Ie
    .document.body.innerHTML = Status.innerHTML
    .document.body.createTextRange.execCommand "Copy"
    ActiveSheet.Paste Destination:=Sheets("Sheet3").cells(1, i)
    .Quit
End With
i = i + 1
Next group

html:

沙特阿拉伯
等待更改

变量Ie未设置在任何位置。。。我猜这就是为什么会提示错误“未设置对象”

我猜找不到具有该ID的元素。HTML代码如下：

SA等待更改

ID没有用引号括起来？应该是这样，但当我在IE中从F12复制粘贴时，它丢失了。我想我一定要再次使用IEDoc？这是我以前浏览过的url的HTMLDocument。但可能是IEDoc在循环中迷失了方向？这就是为什么它在集合中找不到第二项的原因？在循环中，您在第一次迭代后退出IE，因此文档在第二个循环中不存在。

<TR id=LineGroupSA class="ui-datatable-summaryrow ui-widget-header">
    <TD style="WIDTH: 5%"></TD> 
    <TD style="WIDTH: 10%">SA</TD> 
    <TD colSpan=6><SPAN style="COLOR: red; FONT-WEIGHT: bold">AWAITING CHANGES</SPAN></TD>
</TR>