使用getElementById时出现‘Object required’错误的技术求助

核心问题分析 #

你遇到的Object required错误，大概率是以下几个原因导致的：

• 登录表单嵌套在iframe中，直接通过ie.document无法访问到iframe内部的元素
• 页面加载判断不严谨，DOM元素还未完全渲染就执行了赋值操作
• 变量ErrCnt未初始化，累加时会触发类型错误
• 变量声明不规范，Myid未显式指定类型

分步修复方案 #

1. 处理iframe嵌套问题 #

多数银行登录页面会把登录区域放在iframe里，必须先定位到对应的iframe，再访问其文档对象才能找到目标元素。

2. 完善页面加载等待逻辑 #

仅判断ie.Busy和readyState不足以确保DOM元素渲染完成，需要等待目标元素出现或iframe加载完毕。

3. 初始化错误计数器 #

给ErrCnt初始赋值0，避免首次累加时的类型错误。

4. 规范变量声明 #

显式声明Myid为String类型，避免潜在的类型冲突。

修改后的完整代码 #

Dim Myid As String
Dim Mypsw As String
Dim ie As InternetExplorer
Dim ErrCnt As Integer
Dim loginFrame As HTMLFrameElement ' 需要引用Microsoft HTML Object Library

' 初始化错误计数器
ErrCnt = 0

On Error GoTo ErrorHandler

ChDir "C:\Users\hm_cl\Downloads"
On Error Resume Next ' 临时处理文件不存在的情况
Kill "History.txt"
On Error GoTo ErrorHandler ' 恢复原错误处理逻辑

Myid = "hmclark1959"
Mypsw = "xxxxxxxxx"

Set ie = New InternetExplorer
ie.Visible = True
ie.navigate "https://eteller.dakotalandfcu.com/Centryx/servlet/com.sos.webteller.accountaccess.LoginFrame"

' 等待主页面加载完成
While ie.Busy Or ie.readyState <> READYSTATE_COMPLETE: DoEvents: Wend

' 定位登录iframe（根据实际页面结构调整，可通过name/id/index查找）
' 示例：取页面第一个frame，可替换为iframe的name或id
Set loginFrame = ie.document.getElementsByTagName("frame")(0)

' 等待iframe内部加载完成
While loginFrame.Busy Or loginFrame.document.readyState <> READYSTATE_COMPLETE: DoEvents: Wend

' 在iframe文档中找到输入框并赋值
loginFrame.document.getElementById("LoginID").Value = Myid

Exit Sub ' 正常执行完成时跳过错误处理代码

ErrorHandler:
MsgBox Err.Description

Select Case Err.Number
  Case 53  ' File not found
      Resume Next
  Case 424 ' Object Required
      ErrCnt = ErrCnt + 1
      If ErrCnt > 4 Then
        MsgBox "Unknown Server Side Error"
        ie.Quit
        End
      Else
        Application.Wait Now + TimeValue("0:00:10")
        Resume
      End If
  Case Else   'Unknown error
    MsgBox "There is an unhandled error"
    ie.Quit
    End
End Select

额外注意事项 #

• 必须添加引用：在VBA编辑器中点击工具→引用，勾选Microsoft Internet Controls和Microsoft HTML Object Library
• 如果iframe定位失败，打开浏览器开发者工具查看iframe的属性（如name、id），调整查找方式，比如用ie.document.getElementsByName("frameName")(0)
• 可增加元素存在性检查，避免空对象错误：

  Dim loginInput As HTMLInputElement
  Do
      DoEvents
      Set loginInput = loginFrame.document.getElementById("LoginID")
  Loop Until Not loginInput Is Nothing
  loginInput.Value = Myid
  

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