VBA操作IE时触发Run-time error '91'：对象变量未设置求助

出现Run-time error '91'的核心原因是：执行第一个点击操作后，页面大概率发生了刷新或局部加载，原有的doc对象已失效，且目标元素applicationForm:messageTest还未完成加载就被调用，导致getElementById返回Nothing，触发未设置对象变量的错误。

以下是修正后的代码，关键改动点已标注：

Option Explicit

Sub cvt()
    Dim ie As InternetExplorer
    Dim doc As HTMLDocument
    Dim url As String
    Dim targetElement As Object ' 用于等待目标元素加载
    
    Set ie = New InternetExplorer
    url = "https://cvt.in.telstra.com.au/BILLQA/"
    
    ie.Visible = True
    ie.navigate url
    
    ' 等待初始页面加载完成
    Do While ie.readyState <> READYSTATE_COMPLETE Or ie.Busy: DoEvents: Loop
    Set doc = ie.document
    
    ' 点击第一个元素
    doc.getElementById("applicationForm:j_idt70:0:j_idt72:2:j_idt76:1:j_idt79").Click
    
    ' 关键：点击后页面会刷新，重新等待加载完成
    Do While ie.readyState <> READYSTATE_COMPLETE Or ie.Busy: DoEvents: Loop
    ' 重新获取当前页面的文档对象
    Set doc = ie.document
    
    ' 额外保险：循环等待目标元素出现，避免因异步加载导致找不到
    Do
        Set targetElement = doc.getElementById("applicationForm:messageTest")
        DoEvents
    Loop Until Not targetElement Is Nothing
    
    ' 执行点击
    targetElement.Click
    
    ' 可选：如果后续还有操作，继续等待加载
    ' Do While ie.readyState <> READYSTATE_COMPLETE Or ie.Busy: DoEvents: Loop
    
    ' 最后记得关闭IE（可选）
    ' ie.Quit
    ' Set ie = Nothing
End Sub

补充说明：

• 点击第一个按钮后必须重新等待IE加载完成并重新获取doc对象，因为页面状态已改变
• 增加循环等待目标元素的逻辑，应对页面元素异步加载的情况
• 若目标元素的ID是动态生成的（比如包含随机字符串），则需要改用其他定位方式（如元素的className、tagName或XPath）

内容的提问来源于stack exchange，提问作者Seenu Gochalam