Excel VBA自动化IE11向Apex网站输入数据失败（Win10报错）求助

针对你遇到的问题——同一VBA代码在Win7能正常操作Apex站点，Win10却报Automation error Unspecified error，且其他测试站点正常——我整理了几个实用的排查和解决方向：

• 检查IE安全设置与增强保护模式
  Win10的IE11默认安全策略更严格，尤其是增强保护模式（Enhanced Protected Mode）会隔离浏览器进程，阻止VBA访问DOM。你可以：

  1. 打开IE的「Internet选项」→「安全」标签，将目标Apex站点添加到可信站点。
  2. 点击可信站点的「自定义级别」，启用所有与脚本、DOM访问相关的权限（比如“允许通过脚本访问浏览器窗口的剪贴板”“允许脚本初始化窗口”等）。
  3. 回到「高级」标签，找到“增强保护模式”，取消勾选后重启IE。

• 优化页面加载等待逻辑
  Apex是动态渲染的框架，单纯依赖objIE.Busy和readyState=4可能无法确保目标元素完全加载。替换原有的等待逻辑，改为等待目标元素出现：

  Sub Test()
      Dim objIE As Object
      Dim elem As Object
      
      Set objIE = CreateObject("InternetExplorer.Application")
      objIE.Visible = True
      objIE.navigate "你的站点地址"
      
      ' 等待页面基础加载
      Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
      
      ' 等待目标元素加载完成
      Do
          On Error Resume Next
          Set elem = objIE.document.getElementById("P101_USERNAME")
          On Error GoTo 0
          DoEvents
      Loop Until Not elem Is Nothing
      
      ' 赋值操作
      elem.Value = "test"
  End Sub
  

• 强制IE使用兼容文档模式
  Win10的IE11默认文档模式可能与Apex站点不兼容，你可以：

  1. 在IE中按F12打开开发者工具，切换到「仿真」标签，测试不同的文档模式（比如IE9、IE10），找到能正常加载站点的模式。
  2. 在VBA中尝试强制设置文档模式（部分场景生效）：

     objIE.document.documentMode = 9 ' 替换为你测试有效的模式版本
     

  3. 也可以在IE的「兼容性视图设置」中添加目标站点，强制IE用兼容模式加载。

• 改用ShellWindows获取IE实例
  部分Win10环境下，CreateObject("InternetExplorer.Application")创建的实例会有权限隔离问题。试试先手动打开IE并导航到目标站点，再用以下代码获取实例：

  Sub TestWithShellWindows()
      Dim objIE As Object
      Dim elem As Object
      
      ' 遍历已打开的IE窗口
      For Each objIE In CreateObject("Shell.Application").Windows
          If InStr(objIE.LocationURL, "你的站点域名") > 0 Then
              Exit For
          End If
      Next
      
      If objIE Is Nothing Then
          MsgBox "未找到目标IE窗口"
          Exit Sub
      End If
      
      ' 等待元素加载并赋值
      Do
          On Error Resume Next
          Set elem = objIE.document.getElementById("P101_USERNAME")
          On Error GoTo 0
          DoEvents
      Loop Until Not elem Is Nothing
      
      elem.Value = "test"
  End Sub
  

• 验证元素定位的稳定性
  有时候Win10下IE对Apex的DOM解析会有差异，目标元素的ID可能被动态修改。你可以在Win10的IE中按F12，检查元素的实际属性：

  • 如果ID确实变化，改用name属性定位：

    objIE.document.querySelector("input[name='P101_USERNAME']").Value = "test"
    

  • 或者用元素的其他属性（比如class）结合querySelector来定位。

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