嘿，我来帮你搞定这个VBA宏的问题！从你的描述来看，循环失效和IF语句报错大概率踩了VBA操作IE的几个常见坑，咱们一步步拆解解决：

你要实现“运行两分钟+每隔几秒检查”，千万别用死循环（会卡死Excel还容易触发未知错误），用Timer()函数计时才是稳妥的方式：

Dim startTime As Double
startTime = Timer() '记录循环开始的时间点

'循环持续到超过2分钟（120秒）为止
Do While Timer() - startTime < 120
    '这里放你的页面检查逻辑
    Application.Wait Now + TimeValue("00:00:03") '每隔3秒检查一次，时间可按需调整
Loop

如果不想让Excel在等待时完全挂起，也可以用Sleep函数（需要先声明API）：

'在模块顶部添加这个声明
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'然后在循环里替换成
Sleep 3000 '3000毫秒=3秒

这是你问题的关键，几乎都是IE对象状态或页面元素获取出了问题：

• 页面未完全加载就检查：打开IE后直接去查元素，页面可能还在加载，导致找不到元素触发错误。一定要加等待IE就绪的逻辑：

  Dim ie As Object
  Set ie = CreateObject("InternetExplorer.Application")
  ie.Visible = True
  ie.Navigate "你的目标页面URL"
  
  '等待IE加载完成（ReadyState=4代表加载完毕）
  Do While ie.Busy Or ie.ReadyState <> 4
      DoEvents '让Excel能响应其他操作，避免假死
  Loop
  

• 元素检查逻辑没加错误防护：如果目标区域的元素不存在，直接判断会报错。要先捕获元素，再判断是否存在：

  Dim targetElement As Object
  On Error Resume Next '临时忽略找不到元素的错误
  '替换成你用来定位特定区域的方式：ID、类名、XPath都可以
  Set targetElement = ie.Document.getElementById("目标区域的ID")
  On Error GoTo 0 '恢复正常错误捕获
  
  '先确认元素存在，再执行后续操作
  If Not targetElement Is Nothing Then
      '保存URL到文件，这里示例存到桌面
      Dim savePath As String
      savePath = Environ("USERPROFILE") & "\Desktop\检测到的URL.txt"
      Open savePath For Append As #1
      Print #1, Now() & " - " & ie.LocationURL '加上时间戳更实用
      Close #1
      
      '退出IE并清理对象
      ie.Quit
      Set ie = Nothing
      Exit Do '跳出循环，结束宏
  End If
  

• 循环中IE对象意外丢失：如果循环过程中IE被手动关闭或崩溃，后续操作会直接报错，所以每次循环前要检查IE是否有效：

  If ie Is Nothing Then
      Exit Do 'IE已经没了，直接结束循环
  End If
  

把上面的逻辑拼起来，就是一个能稳定运行的版本：

'模块顶部的API声明（如果用Sleep的话）
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub MonitorIEPage()
    Dim ie As Object
    Dim startTime As Double
    Dim targetElement As Object
    
    '初始化IE并打开目标页面
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate "你的目标页面URL"
    
    '等待页面加载完成
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
    
    startTime = Timer() '记录循环开始时间
    
    '循环运行2分钟
    Do While Timer() - startTime < 120
        '先检查IE是否还正常存在
        If ie Is Nothing Then
            Exit Do
        End If
        
        '尝试获取目标区域元素
        On Error Resume Next
        Set targetElement = ie.Document.getElementById("targetAreaID") '替换成你的元素定位方式
        On Error GoTo 0
        
        '检测到目标区域就执行保存和退出逻辑
        If Not targetElement Is Nothing Then
            Dim savePath As String
            savePath = Environ("USERPROFILE") & "\Desktop\DetectedURL.txt"
            Open savePath For Append As #1
            Print #1, Now() & " - " & ie.LocationURL
            Close #1
            
            ie.Quit
            Set ie = Nothing
            MsgBox "已检测到目标区域，URL已保存到桌面！"
            Exit Do
        End If
        
        '每隔3秒检查一次，可调整
        Sleep 3000 '或者用Application.Wait Now + TimeValue("00:00:03")
        DoEvents
    Loop
    
    '如果2分钟到了还没检测到，关闭IE并提示
    If Not ie Is Nothing Then
        ie.Quit
        Set ie = Nothing
        MsgBox "2分钟已结束，未检测到目标区域。"
    End If
End Sub

• 保存文件时要选.xlsm格式，不然宏会失效。
• 要是你的系统默认用Edge替代了IE，可能需要调整IE的兼容性设置，或者考虑改用Selenium Basic操作Edge（不过如果必须用IE，兼容性设置里把目标网站加进去就行）。
• VBA对对象操作很敏感，错误捕获（On Error语句）一定要加，不然宏很容易直接崩溃。

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