概要
複数Web要素のリストを取得するクラス
オブジェクト設定
・変数宣言
Dim eles As WebElements
文法
Set eles = driver.[SerchContext]
eles.[メソッド]
メソッド・プロパティ
メソッド
スクロールできます
| Name | 解説 | ShortExample |
|---|---|---|
| Attribute | 各要素の属性を含むリストを返す | Debug.Print eles.Attribute("title").Item(1) |
| ExecuteAsyncScript | 各 Web 要素に対して JavaScript を非同期実行し、全ての結果を返す。 | |
| ExecuteScript | 各 Web 要素に対して JavaScript を実行し、すべての結果を返す。 | |
| First | 最初のアイテムを返す | Debug.Print eles.First.tagname |
| Last | 最後のアイテムを返す | Debug.Print eles.Last.Text |
| Text | 各要素のテキストリストを返す | Debug.Print eles.Text.Last |
| Values() | 値を含む配列を返す |
※Short Exampleは、動作確認ができたコードを記載しています。
・プロパティ
スクロールできます
| Name | 解説 | ShortExample |
|---|---|---|
| Count | アイテム数を返す | Debug.Print eles.Count |
| Item | 指定インデックスのアイテムを返す | Debug.Print eles.Item(7).Text |
※Short Exampleは、動作確認ができたコードを記載しています。
Example
Find_Elements
Private Sub Find_Elements()
Dim EleList As List, Tbl As Table
Dim drv As New ChromeDriver
drv.Get "https://ja.wikipedia.org/wiki/Main_Page"
Dim ele As WebElement, eles As WebElements
Set eles = drv.FindElementsByXPath("//*[contains(text(),'ウィキペディア')]")
Debug.Print eles.Attribute("title").Item(1)
Debug.Print eles.First.tagname
Debug.Print eles.Last.Text
Debug.Print eles.Text.Last
Debug.Print eles.Count
Debug.Print eles.Item(7).Text
drv.Quit
End Sub
