質問編集履歴
4
タイトルを適切に変更
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
Yahoo検索結果の上位URL取得時に
|
|
1
|
+
Yahoo検索結果の上位URL取得時にSleep処理をするとエラー
|
body
CHANGED
|
@@ -3,6 +3,7 @@
|
|
|
3
3
|
A列のキーワードで、Yahoo検索結果TOP３のURLを取得したいのですが
|
|
4
4
|
Sleep 1000 を書き足すと動きません。
|
|
5
5
|
|
|
6
|
+
よろしくお願いします。
|
|
6
7
|
|
|
7
8
|
|
|
8
9
|
|
3
コード再修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -22,7 +22,6 @@
|
|
|
22
22
|
|
|
23
23
|
Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
|
|
24
24
|
DoEvents
|
|
25
|
-
Sleep 1000
|
|
26
25
|
Loop
|
|
27
26
|
|
|
28
27
|
For l = 0 To 2
|
2
いただいたアドバイスのコード修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -16,6 +16,7 @@
|
|
|
16
16
|
|
|
17
17
|
|
|
18
18
|
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
|
|
19
|
+
Sleep 1000
|
|
19
20
|
|
|
20
21
|
objIE.navigate "https://search.yahoo.co.jp/search?p=" & Replace(Application.EncodeURL(Range("A" & i)), "%20", "+")
|
|
21
22
|
|
1
アドバイス頂いたコードの修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,19 +1,11 @@
|
|
|
1
1
|
VBA初心者です。
|
|
2
2
|
|
|
3
3
|
A列のキーワードで、Yahoo検索結果TOP３のURLを取得したいのですが
|
|
4
|
-
|
|
4
|
+
Sleep 1000 を書き足すと動きません。
|
|
5
5
|
|
|
6
|
-
エラーコード：オブジェクトが必要です 424
|
|
7
|
-
バージョン：Excel2016
|
|
8
6
|
|
|
9
7
|
|
|
10
8
|
|
|
11
|
-
|
|
12
|
-
|
|
13
|
-
関連しそうなサイトも読んだのですが、全くわからずお手上げでした。
|
|
14
|
-
https://okwave.jp/qa/q8943895.html
|
|
15
|
-
|
|
16
|
-
|
|
17
9
|
##コード
|
|
18
10
|
```ここに言語を入力
|
|
19
11
|
Sub main()
|
|
@@ -29,6 +21,7 @@
|
|
|
29
21
|
|
|
30
22
|
Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
|
|
31
23
|
DoEvents
|
|
24
|
+
Sleep 1000
|
|
32
25
|
Loop
|
|
33
26
|
|
|
34
27
|
For l = 0 To 2
|