VBA网页交互问题：点击无标签名/ID的搜索提交按钮

嘿，我明白你现在的困境——要点击那个没有明确标识的图片提交按钮对吧？别担心，我们有几种可靠的方法来实现这个操作，下面就一步步给你讲清楚：

方法1：直接提交表单（最简单的方式） #

其实这个按钮的核心作用就是提交页面的第一个表单，所以我们完全可以跳过定位按钮这一步，直接调用表单的submit()方法，代码如下：

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "你的目标网站URL"

' 等待页面加载完成
Do While IE.Busy Or IE.ReadyState <> 4
    DoEvents
Loop

' 直接提交第一个表单
IE.Document.Forms(0).Submit

这种方法最省心，因为它绕过了找按钮的环节，直接实现了按钮的核心功能。

方法2：通过元素的type和onclick属性定位按钮 #

如果一定要模拟点击按钮的动作，我们可以利用按钮的type="image"和它的onclick事件内容来精准定位：

Dim IE As Object
Dim submitBtn As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "你的目标网站URL"

' 等待页面加载完成
Do While IE.Busy Or IE.ReadyState <> 4
    DoEvents
Loop

' 遍历所有input元素，找到符合条件的按钮
For Each submitBtn In IE.Document.getElementsByTagName("input")
    If submitBtn.Type = "image" And _
       submitBtn.onclick = "Javascript:document.forms[0].submit();return false;" Then
        submitBtn.Click
        Exit For
    End If
Next submitBtn

这里我们遍历页面上所有的input元素，筛选出类型是图片且点击事件匹配的那个，然后执行点击操作。

方法3：通过父级<td>元素定位按钮 #

我们也可以先定位到按钮所在的<td>元素（它有明确的width和align属性），再找到它下面的input按钮：

Dim IE As Object
Dim tdElements As Object
Dim targetTd As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "你的目标网站URL"

' 等待页面加载完成
Do While IE.Busy Or IE.ReadyState <> 4
    DoEvents
Loop

' 找到符合属性的td元素
Set tdElements = IE.Document.getElementsByTagName("td")
For Each targetTd In tdElements
    If targetTd.Width = "13%" And targetTd.Align = "center" Then
        ' 点击td下的第一个input元素
        targetTd.getElementsByTagName("input")(0).Click
        Exit For
    End If
Next targetTd

这种方法适合当按钮本身的属性不够独特，但父元素有明确标识的场景。

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