使用ShellWindows查找已打开IE窗口的问题排查

这种间歇性的IE窗口定位问题真的很棘手——我之前帮同事排查过类似的VBA操作IE的诡异状况，咱们从排查思路和替代方案两方面来梳理：

• 检查COM对象泄漏与残留进程：如果你的VBA代码频繁创建IE对象却没正确释放（比如漏了objIE.Quit或者Set objIE = Nothing），系统里可能会残留无窗口的iexplore.exe后台进程，这些僵尸进程会干扰COM对象遍历。打开任务管理器，结束所有非必要的iexplore.exe进程后再测试，看问题是否复现。
• 验证窗口加载状态：有时候IE窗口还没完全加载完成（ReadyState未达到4即READYSTATE_COMPLETE），或者处于特殊状态（比如模态弹窗、加载错误页面），可能不会被Shell.Windows遍历到。可以在遍历前加个短暂延迟（如Application.Wait Now + TimeValue("00:00:02")），或者在遍历过程中检查窗口的ReadyState属性。
• 排查权限隔离问题：如果Excel和IE的启动权限不一致（比如一个用管理员权限，一个用普通权限），跨进程访问IE对象会被系统阻止。尝试用相同权限级别启动两者，再观察问题是否消失。
• 修复VBA引用问题：Microsoft Internet Controls（SHDocVw）引用损坏或版本不匹配也可能导致遍历异常。打开VBA编辑器→工具→引用，取消勾选该引用，确定后重新勾选，保存项目后再测试。

如果遍历Shell.Windows的方式不稳定，试试这些更可靠的方案：

• 通过窗口标题定位：利用Windows API查找IE窗口句柄，再匹配到对应的IE对象。示例代码：

  Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
      (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
  Declare Function GetWindowThreadProcessId Lib "user32" _
      (ByVal hWnd As Long, lpdwProcessId As Long) As Long
  
  Function GetIEByTitle(titlePart As String) As SHDocVw.InternetExplorer
      Dim sw As SHDocVw.ShellWindows
      Dim ie As SHDocVw.InternetExplorer
      Dim hwnd As Long
  
      Set sw = New SHDocVw.ShellWindows
      ' 先尝试常规遍历匹配标题
      For Each ie In sw
          If InStr(1, ie.LocationName, titlePart, vbTextCompare) > 0 Then
              Set GetIEByTitle = ie
              Exit Function
          End If
      Next ie
  
      ' 遍历没找到时，用API查找所有IE窗口句柄再匹配
      hwnd = FindWindowEx(0, 0, "IEFrame", vbNullString)
      Do While hwnd <> 0
          For Each ie In sw
              If ie.hwnd = hwnd Then
                  Set GetIEByTitle = ie
                  Exit Function
              End If
          Next ie
          hwnd = FindWindowEx(0, hwnd, "IEFrame", vbNullString)
      Loop
  End Function
  

• 通过URL精准匹配：优化URL比对逻辑，注意解码URL中的特殊字符（比如空格会被编码为%20），避免因编码差异导致匹配失败：

  Function GetIEByURL(targetURL As String) As SHDocVw.InternetExplorer
      Dim sw As SHDocVw.ShellWindows
      Dim ie As SHDocVw.InternetExplorer
      Dim decodedURL As String
  
      Set sw = New SHDocVw.ShellWindows
      For Each ie In sw
          ' 解码URL中的特殊字符
          decodedURL = Replace(ie.LocationURL, "%20", " ")
          ' 可根据需求调整为模糊匹配或精确匹配
          If UCase(decodedURL) = UCase(targetURL) Then
              Set GetIEByURL = ie
              Exit Function
          End If
      Next ie
  End Function
  

• 跟踪自己创建的IE实例：如果是你的VBA代码打开的IE窗口，直接把对象引用保存到全局集合里，后续无需遍历即可调用：

  ' 全局集合，用于跟踪所有由代码打开的IE实例
  Dim openedIEInstances As New Collection
  
  Function OpenIEWithTracking(url As String) As SHDocVw.InternetExplorer
      Dim ie As SHDocVw.InternetExplorer
      Set ie = CreateObject("InternetExplorer.Application")
      ie.Visible = True
      ie.Navigate url
      ' 以窗口句柄为键，添加到集合中
      openedIEInstances.Add ie, CStr(ie.hwnd)
      Set OpenIEWithTracking = ie
  End Function
  
  ' 根据句柄从集合中获取IE实例
  Function GetTrackedIE(hwnd As Long) As SHDocVw.InternetExplorer
      Dim ie As SHDocVw.InternetExplorer
      For Each ie In openedIEInstances
          If ie.hwnd = hwnd Then
              Set GetTrackedIE = ie
              Exit Function
          End If
      Next ie
  End Function
  

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