无法通过VBA在internet explorer中填充文本框

Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")

ie.Navigate "https://www.example.com"

Do While ie.Busy Or ie.readyState <> 4
    DoEvents
Loop

Dim textBox As Object
Set textBox = ie.Document.getElementById("textbox_id")
textBox.Value = "要填充的文本"

' 提交表单
ie.Document.forms(0).submit

' 执行其他操作
' ...

Sub FillTextBoxInIE()
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' 打开网页
    ie.Navigate "https://www.example.com"
    
    ' 等待页面加载完成
    Do While ie.Busy Or ie.readyState <> 4
        DoEvents
    Loop
    
    ' 填充文本框
    Dim textBox As Object
    Set textBox = ie.Document.getElementById("textbox_id")
    textBox.Value = "要填充的文本"
    
    ' 提交表单或执行其他操作
    ' ...
    
    ' 关闭Internet Explorer
    ie.Quit
    Set ie = Nothing
End Sub