Question

我想创建一些VBA来从网站中提取信息。我在HTML中找到了这些信息，但我相信只有在页面上点击某些按钮时才会在HTML源代码中显示/填充这些信息。我一直在尝试使用getElementsByTagName来执行点击，但到目前为止还没有工作。到目前为止，我的代码是立即尝试第二次点击：

Sub googlesearch()
    Set objIE = CreateObject("InternetExplorer.Application")
    WebSite = "MyLink"

    With objIE
        .Visible = True
        .navigate WebSite
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop

Set elems = .getElementsByTagName("button")
    For Each e In elems

        If (e.getAttribute("id") = "show-history") Then
            e.Click
            Exit For
        End If

    Next e

End With

 Set ie = Nothing

End Sub

我得到运行时错误438，该对象不支持属性或方法。

我想先点击的元素的代码是：

<button class="btn btn-lg btn-trigger other-actions-btn" id="otherActionsButton" aria-haspopup="true" type="button" data-qa="toggle-other-actions" olive-menu-initialized="true" olive-menu-trigger="otherActionsMenu" olive-menu-position="below right" olive-menu="otherActionsMenu">Other Actions</button>

第二个按钮的代码是：

<button class="item button-link" type="button" data-qa="show-history" data-action="show:history">View History</button>

由于背景中发生了某些事情，页面加载和所有可点击的元素之间似乎有时滞后，我不确定这是否会导致问题？

欢迎任何想法！

詹姆斯

Answer 1

首先，您要使用的方法不是IE的一部分，而是.document的一部分，因此您将需要.document.getElementsByTagName("button")

我将使用以下内容：

第一个按钮具有ID，因此您可以尝试以下操作：

.document.getElementById("otherActionsButton").Click

第二个按钮，您可以使用attribute = value CSS选择器通过其值定位data-qa属性：

[data-qa='show-history']

您申请如下：

.document.querySelector("[data-qa='show-history']").Click

VBA点击进入网站菜单

1 个答案: