質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

2回答

624閲覧

Yahoo検索結果の上位URL取得時にSleep処理をするとエラー

curi

総合スコア10

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2017/06/26 03:30

編集2017/06/26 04:43

VBA初心者です。

A列のキーワードで、Yahoo検索結果TOP3のURLを取得したいのですが
Sleep 1000 を書き足すと動きません。

よろしくお願いします。

イメージ説明

##コード

Sub main() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") Dim i As Long Dim l As Integer For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row Sleep 1000 objIE.navigate "https://search.yahoo.co.jp/search?p=" & Replace(Application.EncodeURL(Range("A" & i)), "%20", "+") Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE DoEvents Loop For l = 0 To 2 Range("B" & i).Offset(, l) = objIE.document.getElementById("WS2m").getElementsByClassName("w")(l).getElementsByTagName("a")(0).href Next l Next i objIE.Quit Set objIE = Nothing End Sub

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

mattn

2017/06/26 03:32

Yahoo! のサーバに負荷が掛かるので Sleep 無に実行するといずれアクセスを拒否されるかと思います。
mattn

2017/06/26 03:55 編集

Sleep はアクセスとアクセスの間に入れるべきなので、For ループの最初か最後に入れましょう。要は連続したアクセスはサーバに負荷を掛けるという意味です。
mattn

2017/06/26 04:17

何度もしつこいですが、このスクリプトをコピーして試す人がみな Yahoo! に負荷を掛けかねないので Do While のループでなく一番外の For ループの最初もしくは最後に入れておいて下さい。
curi

2017/06/26 04:27

たびたび ありがとうございます。負荷をかけては大変なのですぐ修正したいのですが For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row 1行下で合っていますでしょうか。(調べ方が悪いようで中々目当ての答えに辿り着けておらずモタついておりすみません)
mattn

2017/06/26 04:28

はい、あってます。急かしてすいません。
curi

2017/06/26 04:36

ありがとうございます!「SubまたはFunction が定義されていません。」エラーが出るので位置が間違ってるのかと思い調べておりました。取り急ぎ、追記しました。
guest

回答2

0

ベストアンサー

excel vbaでsleepを使用するには
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
をモジュールの一番上に入れてください

実際に大量にやる場合は5秒程度Sleepを掛けた方がいいです
エラーになった後IEで
https://search.yahoo.co.jp/search
で検索すれば大量アクセスエラーであることがわかります

投稿2017/06/26 05:00

date

総合スコア1820

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

curi

2017/06/26 06:20

ありがとうございます!無事動きました。また秒数のアドバイスありがとうございます。アドバイス頂いた通り1秒では前回と同じあたりで止まりました。5秒でやってみたのですがまだ止まり、7秒でも止まりました。アクセスエラー解除=即ゼロリセットではなく、積み上げ式でカウントされているのかな?と感じました。いずれにせよ止まってしまう原因と対策はわかったので大変助かりました。お力添えありがとうございます!
guest

0

実行していないので正しいかどうか分かりませんが、エラーメッセージを見る限り検索結果が3つ無いのだと思います。

投稿2017/06/26 04:05

mattn

総合スコア5030

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問