回答編集履歴
2
URLの修正
test
CHANGED
|
@@ -32,7 +32,7 @@
|
|
|
32
32
|
|
|
33
33
|
objIE.Visible = True 'IEを表示
|
|
34
34
|
|
|
35
|
-
objIE.navigate "
|
|
35
|
+
objIE.navigate "～～～～～～" & i 'IEでURLを開く
|
|
36
36
|
|
|
37
37
|
|
|
38
38
|
|
1
訂正
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
2
|
|
1
|
+
26行目の
|
|
2
2
|
|
|
3
3
|
Set elList = htmlDocURL.getElementsByClassName("col2")
|
|
4
4
|
|
|
@@ -58,9 +58,7 @@
|
|
|
58
58
|
|
|
59
59
|
|
|
60
60
|
|
|
61
|
-
Debug.Print "hoge"
|
|
62
|
-
|
|
63
|
-
For V = 0 To
|
|
61
|
+
For V = 0 To 140
|
|
64
62
|
|
|
65
63
|
Dim elList As IHTMLElementCollection
|
|
66
64
|
|
|
@@ -75,8 +73,6 @@
|
|
|
75
73
|
Dim el As IHTMLElement
|
|
76
74
|
|
|
77
75
|
For Each el In elList
|
|
78
|
-
|
|
79
|
-
Debug.Print el
|
|
80
76
|
|
|
81
77
|
Worksheets("Sheet1").Range("A" & exlrow + 1).Value = el.getElementsByTagName("a")(V).href
|
|
82
78
|
|
|
@@ -106,6 +102,4 @@
|
|
|
106
102
|
|
|
107
103
|
End Sub
|
|
108
104
|
|
|
109
|
-
|
|
110
|
-
|
|
111
105
|
```
|