OpenURL実行時のエラー回避について (ID:110678)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 魔界の仮面弁士さま回答ありがとうございます。 On Errorステートメントも使用しましたが 「実行時エラー'35756' 要求を完了できません。」や「タイムアウトエラー」 のポップアップが表示されます。 私のOn Errorステートメントの使用方法が間違ってる可能性大ですが、 ご迷惑でなければもう少しお付き合いください。 現在以下のようなプログラムを実行しています。 For ii = 0 To cnt v_inet_err = 0 Inet1.RequestTimeout = 10 bytestr() = Inet1.OpenURL(url(ii), icByteArray) ''----------------------------------------------- '' if ( 実行時エラー の場合) then '' call リトライ処理 '' err_url = err_uel & url(ii) & vbCrLf '' ← エラーでうまく 取得できないURLを保存 '' GoTo continue '' End If ''------------------------------------------------- err_chk = header_err_chk() '' ← Inet1.GetHeader()を解析して404エラー の判断 If (err_chk = 1) Then err_url = err_uel & url(ii) & vbCrLf '' ← エラーでうまく取得 できないURLを保存 GoTo continue End If （HTML取得後の処理を実行） continue: Next ii On Error Resume Nextでトラップした場合は上記のコメントアウト しているIFブロックに入る判断をどうすれば良いか分りかねております。 エラーが判別できれば再度リトライする処理を加えそれでもエラーが発生 する場合はエラーリストという形で別途リストとして保存しようと考えており ます。