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
1 hits

【73053】VBAでのソース取得のタイムアウトについて 宮本 12/11/1(木) 11:01 質問
【73056】Re:VBAでのソース取得のタイムアウトについ... ウッシ 12/11/1(木) 14:41 回答
【73060】Re:VBAでのソース取得のタイムアウトについ... 宮本 12/11/1(木) 17:51 回答
【73061】Re:VBAでのソース取得のタイムアウトについ... ウッシ 12/11/1(木) 23:54 回答
【73063】Re:VBAでのソース取得のタイムアウトについ... 宮本 12/11/2(金) 16:22 回答
【73065】Re:VBAでのソース取得のタイムアウトについ... ウッシ 12/11/2(金) 16:47 回答
【73070】Re:VBAでのソース取得のタイムアウトについ... 宮本 12/11/5(月) 10:10 回答
【73071】Re:VBAでのソース取得のタイムアウトについ... ウッシ 12/11/5(月) 11:23 回答
【73079】Re:VBAでのソース取得のタイムアウトについ... 宮本 12/11/5(月) 17:45 回答

9242 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free