Sub FillHTMLAutoComplete()
    Dim ie As Object
    Dim htmlDoc As Object
    Dim element As Object
    
    ' 创建Internet Explorer对象
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' 设置IE对象的属性
    With ie
        .Visible = True ' 可见性设置为True，方便调试
        .navigate "http://example.com" ' 替换为你要填写的HTML页面的URL
        ' 等待页面加载完成
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop
        ' 获取HTML文档对象
        Set htmlDoc = .document
    End With
    
    ' 填写自动补全字段
    Set element = htmlDoc.getElementById("autocomplete_field") ' 替换为你要填写的自动补全字段的ID
    If Not element Is Nothing Then
        element.Value = "自动补全字段的值" ' 替换为你要填写的值
    End If
    
    ' 释放对象
    Set element = Nothing
    Set htmlDoc = Nothing
    ie.Quit
    Set ie = Nothing
End Sub