回答編集履歴
1
追記
answer
CHANGED
|
@@ -16,4 +16,18 @@
|
|
|
16
16
|
Next
|
|
17
17
|
```
|
|
18
18
|
|
|
19
|
-
リストの入れ子になっているので、Children で子要素を取得して For Each で回して取得しました。
|
|
19
|
+
リストの入れ子になっているので、Children で子要素を取得して For Each で回して取得しました。
|
|
20
|
+
|
|
21
|
+
---
|
|
22
|
+
ちなみに、質問のコードがエラーになるのはオプジェクトの代入なのに Set がないからだと思われます。
|
|
23
|
+
下記ですべてのli要素を取得できます。ただ、親子区別なく取得しますので、回答では Childrenを使用しました。
|
|
24
|
+
|
|
25
|
+
```vba
|
|
26
|
+
Dim allLIs As Object
|
|
27
|
+
Set allLIs = UList.all.tags("li")
|
|
28
|
+
|
|
29
|
+
Dim li As IHTMLElement
|
|
30
|
+
For Each li In allLIs
|
|
31
|
+
Debug.Print li.innerText
|
|
32
|
+
Next
|
|
33
|
+
```
|