使用vba应用程序在IE的文本字段中输入值

Sub FillIEFormField()
    Dim ie As Object
    Dim doc As Object
    Dim inputField As Object
    
    ' 创建IE对象
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    
    ' 导航到目标网页
    ie.Navigate "http://example.com/form.html"
    
    ' 等待页面加载完成
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
    
    ' 获取文档对象
    Set doc = ie.Document
    
    ' 查找文本字段并输入值
    Set inputField = doc.getElementById("textFieldId")
    If Not inputField Is Nothing Then
        inputField.Value = "Hello, World!"
    Else
        MsgBox "未找到指定的文本字段！"
    End If
    
    ' 关闭IE
    ie.Quit
End Sub