以百度为例，打开IE到百度，按f12键找到DOM

找到搜索框代码
<input name="wd" class="s_ipt" id="kw" maxlength="255" value="" autocomplete="off">

'‘VBA语法
'通过id找到dom元素
Set 操作ie = ie.Document.getElementById("kw")
'显示找到的元素看对不对
Debug.Print 操作ie.outerhtml

'按键语法
'通过id找到dom元素
Set 操作ie = ie.Document.getElementById("kw")
'显示找到的元素看对不对
TracePrint 操作ie.outerhtml

'‘VBA语法
'通过名称找dom元素组合，并把元素组合赋给操作ie
Set 操作ie = ie.Document.getElementsByName("wd")
'Debug.Print 操作ie
个数 = 10
For 序号 = 0 To 个数
Set 操作ie1 = 操作ie(序号)
If 操作ie1.ID = "kw" Then
Debug.Print "找到了"
'查看id
Debug.Print 操作ie1.ID
'查看name
Debug.Print 操作ie1.Name
'查看type
Debug.Print 操作ie1.Type
'查看标签
Debug.Print 操作ie1.TagName
'查看类名
Debug.Print 操作ie1.className
Debug.Print "序号 =" & 序号
Exit For
ElseIf 序号 = 个数 Then
序号 = 0
个数 = 个数 * 10
End If
If 操作ie(序号) = Empty Then
Debug.Print "找不到请检查程序"
Exit For
End If
'显示找到的元素看对不对
Next
'查看元素
Debug.Print 操作ie1.outerhtml
Set 操作ie = 操作ie1
'覆盖操作ie
Debug.Print 操作ie.outerhtml