回答編集履歴
1
質問内容の修正に伴いコード修正
test
CHANGED
|
@@ -5,8 +5,6 @@
|
|
|
5
5
|
```VBA
|
|
6
6
|
|
|
7
7
|
Sub sample()
|
|
8
|
-
|
|
9
|
-
|
|
10
8
|
|
|
11
9
|
Dim objIE As Object
|
|
12
10
|
|
|
@@ -18,23 +16,23 @@
|
|
|
18
16
|
|
|
19
17
|
objIE.Visible = True 'ieを表示
|
|
20
18
|
|
|
21
|
-
objIE.navigate "http://目的のページ.html"
|
|
19
|
+
objIE.navigate "http://目的のページ.html"
|
|
22
20
|
|
|
23
|
-
Do While objIE.Busy Or
|
|
21
|
+
Do While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Loop '表示待ち
|
|
24
22
|
|
|
25
23
|
|
|
26
24
|
|
|
27
|
-
For Each objLink In objIE.
|
|
25
|
+
For Each objLink In objIE.Document.Links
|
|
28
26
|
|
|
29
|
-
|
|
27
|
+
Select Case objLink.getAttribute("data-rapid_p")
|
|
30
28
|
|
|
31
|
-
|
|
29
|
+
Case "23", "24", "25", "26"
|
|
32
30
|
|
|
31
|
+
objLink.Click
|
|
32
|
+
|
|
33
|
-
End
|
|
33
|
+
End Select
|
|
34
34
|
|
|
35
35
|
Next
|
|
36
|
-
|
|
37
|
-
|
|
38
36
|
|
|
39
37
|
|
|
40
38
|
|