如何使用Excel VBA点击无ID、类名动态变化的网页按钮？

目标元素class中_ngcontent-xxx格式的字段是Angular框架生成的动态随机类，每次页面加载都会自动变化，我们可以通过元素的固定特征定位，以下是两种可直接落地的实现方案： #

方案1：通过固定内部文本定位（兼容性最优） #

遍历页面所有button元素，匹配固定的New message文本即可定位，无需依赖额外的选择器支持：

Sub test()
    Dim oIE As Object
    Dim oHDoc As HTMLDocument
    Dim sSiteName As String ' 请自行赋值站点地址
    sSiteName = "你的目标站点地址"
    
    Set oIE = CreateObject("InternetExplorer.Application")
    
    With oIE
        .Visible = True
        .navigate sSiteName
    End With
    
    While oIE.readyState <> 4 Or oIE.Busy
        DoEvents
    Wend
 
    Set oHDoc = oIE.document
    
    ' 原有登录逻辑
    With oHDoc
        .getElementById("Ecom_User_ID").Value = "xxx"
        .getElementById("Ecom_Password").Value = "xxx"
        .getElementById("Ecom_Button_Login").Click
    End With
    
    ' 登录完成后等待页面加载完成
    While oIE.readyState <> 4 Or oIE.Busy
        DoEvents
    Wend
    ' 预留1秒等待动态内容渲染，可根据页面加载速度调整时长
    Application.Wait Now + TimeValue("00:00:01")
    
    ' 遍历所有button匹配目标文本
    Dim btnList As Object, targetBtn As Object
    Set btnList = oHDoc.getElementsByTagName("button")
    For Each targetBtn In btnList
        If InStr(1, targetBtn.innerText, "New message", vbTextCompare) > 0 Then
            targetBtn.Click
            Exit For
        End If
    Next

End Sub

方案2：通过固定类片段匹配（代码更简洁） #

使用CSS选择器匹配元素的固定类片段，跳过动态生成的随机类，代码更短执行效率更高：

注意：使用该方案需要先在VBA编辑器的「工具-引用」中勾选Microsoft HTML Object Library

' 登录完成后的定位逻辑替换为以下代码即可
Dim targetBtn As Object
Set targetBtn = oHDoc.querySelector("generic-button.user-info__btn button.btn-inverse")
If Not targetBtn Is Nothing Then
    targetBtn.Click
End If

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