2017-07-29 114 views
2

對不起,如果它可能非常簡單,我是一個新手,但我已經研究了很多,但沒有找到如何在下拉列表中點擊此選項(XBT/USD): https://ibb.co/jqf7zkVBA:點擊網站下拉列表中的選項

我只設法用下面的代碼顯示列表,但我不知道如何選擇XBT/USD,因爲它沒有html源代碼。根據檢查

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 

HTML代碼元素:

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

預先感謝您的寶貴迴應。

+1

在我的手機上,所以我不能很好地擺弄這個網站。您可以使用getelementsbyclassname方法來返回具有類名稱的元素集合,您應該可以遍歷這些元素並讀取內部HTML,直到找到想要單擊的元素。 – Perposterer

回答

1

你快到了。您已找到下拉菜單。所有你需要做的是點擊XBT/USD。我想到的最簡單的方法是使用getElementsByClassName,但你不必一定要使用它。您也可以使用xpath或標記名來查找它們。

那麼,如果你檢查來源,你會看到有很多class="currpairs"。如果您將鼠標懸停在它們上面,您會看到它們屬於下拉列表中的每個項目。 XBT/USD是列表中的第二項。因此,在你的代碼缺少的部分是:

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

通知我們(1)獲取類currpairs後使用。這是因爲從列表中的0開始計數。所以(0)代表第一項XBT/EUR,並且(1)代表列表中的第二項XBT/USD

希望這會有所幫助。

+0

它的工作,非常感謝你真棒 –