回答編集履歴
2
コード修正
test
CHANGED
|
@@ -12,7 +12,9 @@
|
|
|
12
12
|
|
|
13
13
|
複数のa要素を取得するには、
|
|
14
14
|
|
|
15
|
-
`htmlDoc.getElementById("Main").Links`
|
|
15
|
+
~~`htmlDoc.getElementById("Main").Links`~~(これはダメでした)
|
|
16
|
+
|
|
17
|
+
`htmlDoc.getElementById("Main").getElementsByTagName("a")`
|
|
16
18
|
|
|
17
19
|
か
|
|
18
20
|
|
|
@@ -24,7 +26,7 @@
|
|
|
24
26
|
|
|
25
27
|
どちらにしても複数の要素になりますので、すべての要素に対してFor Eachループで処理するようにします。
|
|
26
28
|
|
|
27
|
-
下記ですべてのa要素のURLが取得できます。
|
|
29
|
+
下記ですべてのa要素(sクラス)のURLが取得できます。
|
|
28
30
|
|
|
29
31
|
|
|
30
32
|
|
|
@@ -32,7 +34,7 @@
|
|
|
32
34
|
|
|
33
35
|
Dim anchor As HTMLAnchorElement
|
|
34
36
|
|
|
35
|
-
For Each anchor htmlDoc.getElementBy
|
|
37
|
+
For Each anchor htmlDoc.getElementsByClassName("s")
|
|
36
38
|
|
|
37
39
|
Debug.Print anchor.href 'URL出力
|
|
38
40
|
|
1
コードの間違い修正
test
CHANGED
|
@@ -32,7 +32,7 @@
|
|
|
32
32
|
|
|
33
33
|
Dim anchor As HTMLAnchorElement
|
|
34
34
|
|
|
35
|
-
For Each anchor htmlDoc.("Main").Links
|
|
35
|
+
For Each anchor htmlDoc.getElementById("Main").Links
|
|
36
36
|
|
|
37
37
|
Debug.Print anchor.href 'URL出力
|
|
38
38
|
|
|
@@ -56,7 +56,7 @@
|
|
|
56
56
|
|
|
57
57
|
Dim anchor As HTMLAnchorElement
|
|
58
58
|
|
|
59
|
-
For Each anchor htmlDoc.("Main").Links
|
|
59
|
+
For Each anchor htmlDoc.getElementById("Main").Links
|
|
60
60
|
|
|
61
61
|
Debug.Print anchor.href 'URL
|
|
62
62
|
|