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或tagname找到它们。

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

IE.Document.getElementsByClassName("currpairs")(1).Click

注意我们在获得课程currpairs后使用过（1）。这是因为计数从列表中的0开始。所以（0）表示第一项XBT/EUR，（1）表示列表中的第二项XBT/USD。

希望这有帮助。