通过VBA选择HTML菜单项

我对HTML相当陌生，所以请容忍我的这一点。我正在使用Excel VBA与一个网站进行交互，目的是实现这种交互的自动化

问题陈述

我有一个网页，上面有一个我需要点击的按钮。在HTML中，它作为菜单项列出。我可以成功单击页面上的其他按钮，但这些按钮有标记

我试图通过按ID选择click方法来使用它，但我得到了一个“Object Variable or With block Variable not set”（对象变量或块变量未设置）错误

Sub WD_auto()
    Dim IE As New SHDocVw.InternetExplorer
    Dim HTMLDoc As MSHTML.HTMLDocument
    Dim HTMLSel As MSHTML.IHTMLElement

    IE.Visible = True
    IE.navigate "https://wd3.myworkday.com/redacted/d/home.htmld"

    Do While IE.Busy = True Or IE.readyState <> 4: DoEvents: Loop
    Set HTMLDoc = IE.document
    Set HTMLSel = HTMLDoc.getElementById("88831e18a0894109a83c10bc9a9be6c7")
    HTMLSel.Click
End Sub

Sub-WD_auto（）
Dim IE作为新的SHDocVw.InternetExplorer
将HTMLDoc设置为MSHTML.HTMLDocument
将HTMLSel设置为MSHTML.IHTMLElement
可见=真实
即“导航”https://wd3.myworkday.com/redacted/d/home.htmld"
当IE.Busy=True或IE.readyState 4:DoEvents:Loop时执行
设置HTMLDoc=IE.document
设置HTMLSel=HTMLDoc.getElementById（“88831e18a0894109a83c10bc9a9be6c7”）
HTMLSel。单击
端接头

我认为需要与之交互的HTML块如下所示

<div class="GNMRENADFGC GNMRENADBHC GNMRENADHHC" tabindex="-2" 
id="88831e18a0894109a83c10bc9a9be6c7" role="menuitem" 
aria-posinset="1" aria-setsize="3">

---

任何指示或文献都将不胜感激

好的，经过进一步研究，我找到了一个解决方案。我只是循环所有的

div

标记，并检查每个标记的

内部文本

属性，直到找到要单击的标记

这是可行的，但如果有人有更优雅的解决方案，我会洗耳恭听。循环似乎有点浪费，我更愿意直接引用，然后单击元素

    Set ElementsA = IE.document.getElementsByTagName("div")

    For Each ElementA In ElementsA
        On Error Resume Next
        If ElementA.innerText = "User Name and Password login" Then
            ElementA.Click
            Exit For
        End If
    Next ElementA

---

您没有添加

runat=“server”

子句，因此服务器甚至不知道该div存在或可以与之交互。如果设置一个断点并单步执行代码，我打赌您会发现

HTMLDoc.getElementById

返回null。你好，Joel，谢谢您的回复。没错，单步执行显示HTMLDOC.getElementsByID为null。但是，我没有看到HTML标题或正文中提到的runat属性。我将如何修改代码以引入该子句？非常感谢您将.vb页面附加到页面第一行的.aspx页面上，就像这样

，然后您将

runat=“server'

属性添加到元素

忽略前面的注释。我刚刚意识到您正在使用Excel VBA进行此操作。您打算对此做什么？