回答編集履歴

1

テキスト取得を追加

2018/07/16 01:38

投稿

TanakaHiroaki
TanakaHiroaki

スコア1063

test CHANGED
@@ -12,9 +12,17 @@
12
12
 
13
13
  For Each aElem In elem.getElementsByTagName("a")
14
14
 
15
+ 'テキスト取得
16
+
17
+ Debug.Print aElem.innerText
18
+
15
19
  If aElem.hasAttribute("href") Then
16
20
 
21
+ 'URL取得
22
+
17
23
  Debug.Print aElem.Attributes("href").Value
24
+
25
+
18
26
 
19
27
  End If
20
28