html - VBA:单击网站下拉列表中的选项

Question

如果它可能非常简单，我很抱歉，我是新手，但我已经研究了很多但没有找到如何在下拉列表中单击此选项 (XBT/USD): https://ibb.co/jqf7zk

我只能用下面的代码显示列表，但我不知道如何选择 XBT/USD，因为它在 html 源上没有 ID。

Option Explicit
Sub BrowseToSite()

Dim IE As New SHDocVw.InternetExplorer
Dim oSelect As HTMLInputButtonElement
IE.Visible = True

IE.Navigate "https://www.kraken.com/charts"

Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop

IE.Document.getElementById("pairselect-button").Click

End Sub

根据inspect元素的HTML代码:

< a tabindex="-1" class="currpairs" data-pair-text="XBT/USD" data-pair="XBTUSD">XBT/USD</a >

提前感谢您的宝贵回复。

Answer 1

你快到了。您已找到下拉菜单。您只需点击 XBT/USD。我想到的最简单的方法是使用 getElementsByClassName 但您不一定要使用它。您也可以使用 xpath 或标记名找到它们。

好吧，如果您检查源代码，您会看到有很多 class="currpairs"。如果将鼠标悬停在它们上面，您会看到它们属于下拉列表中的每个项目。 XBT/USD 是列表中的第二项。所以你的代码中缺少的部分是:

IE.Document.getElementsByClassName("currpairs")(1).点击

注意我们在获取类 currpairs 后使用了 (1)。这是因为列表中从 0 开始计数。所以 (0) 代表列表中的第一项 XBT/EUR，(1) 代表列表中的第二项 XBT/USD。

希望这对您有所帮助。