Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9242 / 76732

←次へ　｜　前へ→


	【73053】VBAでのソース取得のタイムアウトについて

宮本 - 12/11/1(木) 11:01 -


	引用なし

	パスワード

VBAにおいて、ループで複数のURLを読み込んで、
ソースを処理するマクロを組んでいるのですが
ステータスコードが返ってくる場合は処理ができたのですが
なかなか接続できないURLになると
「処理がタイムアウトしました」とダイアログがでて停止してしまいます。
タイムアウト関数を入れてみましたがうまくいかず
タイムアウトのときはスキップするようにしたいのですが…
どなたかご教授いただければ幸いです。
※制限回避のために\を入れております。少し見づらいかもしれませんが
何卒よろしくお願いいたします。

For s = 1 To 40
URL = Worksheets("Sheet1").Cells(s, 1).Value
Set \h\t\t\p = CreateObject("Win\H\t\t\p.Win\H\t\t\pRequest.5.1")
sURI = URL

With \h\t\t\p
.SetTimeouts 60000, 60000, 60000, 60000
.Open "GET", sURI, False
.Send
If .Status <> 200 Then
Else
html = StrConv(\h\t\t\p.responsebody, vbUnicode)
End If
'ソース処理部
next

0 hits

▼

【73053】VBAでのソース取得のタイムアウトについて 宮本 12/11/1(木) 11:01

≪