IE页面上的VBA点击按钮

Question

我想做的是打开一个网站，然后按下一个按钮。我不能让它工作，所以我要求你们所有有经验的程序员！

按钮xml记录为：

z-menu-item-inner-r"><span class="z-menu-item-space"></span></td></tr></tbody></table></a></td><td id="z_e6_mm" align="left" z.type="Menuit2" class="z-menu-item " style="padding-left:4px;padding-right:4px;" z.zcls="z-menu-item" z.top="true"><a href="/NTS/NTSBatchJobs.zul" class="z-menu-item-cnt"><table id="z_e6_mm!a" cellspacing="0" cellpadding="0" border="0" class="z-menu-item-body " style="width: auto;"><tbody><tr><td class="z-menu-item-inner-l"><span class="z-menu-item-space"></span></td><td class="z-menu-item-inner-m"><div><button id="z_e6_mm!b" type="button" class="z-menu-item-btn">**HIT ME**&nbsp;</button></div></td><td class="

我尝试按下的按钮名为： 打我

我使用的代码是：

Sub IE_Auto()


    Dim i As Long
    Dim IE As Object
    Dim objElement As Object
    Dim objCollection As Object

    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate "mysite"

    Set elems = IE.Document.getElementsByTagName("button")
        For Each e In elems
            If e.Name = "Hit Me" Then
                e.Click
                Exit For
            End If
     Next e
End Sub

Answer 1

为什么不使用getElementByID("z_e6_mm!b") 方法来返回该按钮的实例。 id 元素在文档中是唯一的，不需要迭代。

Dim btn as Object
Set btn = IE.Document.getElementByID("z_e6_mm!b")
btn.Click

注意：可能不适用于某些版本的 IE。

另外值得注意的是，您可能会遇到一个简单的区分大小写比较返回 false 的问题，并且永远不会单击按钮，因为："Hit Me" != "HIT ME"。您可以通过强制对按钮的文本进行UCASE 或LCASE 评估来控制这一点，但这似乎不如使用 ID 属性可靠。

另请注意：这不是元素的.Name，而是.InnerText

正如您所观察到的，ID 属性正在发生变化，因此您无法可靠地对其进行编程。在这种情况下，您将不得不进行蛮力迭代，并比较一些非唯一属性，例如 innerText：

Dim btn as Object
For each btn in IE.Document.getElementsByTagName("button")
    If btn.innerText = "**HIT ME**&nbsp;" Then '<~~~ MODIFY AS NEEDED  ###
        btn.click
        Exit For 'break out of the loop
    End If
Next