Excel VBA質問箱 IV

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

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


48637 / 76732 ←次へ | 前へ→

【33030】Re:WEBクエリ取得中のまま固まってしまう
お礼  おさる  - 05/12/29(木) 12:08 -

引用なし
パスワード
   >すでに解決済みかもしれませんが、一応、IEを直接制御する方法で書き直してみました。
>回線が混んでいるせいか、さきほど、取得完了まで20分かかりましたが、問題なく取得することができました。

!!!!!
驚きです。ここまで親切にしてもらえるとは!
(もちろん、まだ解決していませんでした。)
もしかして、かみちゃんは神ちゃん...そうか神様だったんですね。
ということで、神のお告げにしたがい早速実行。
しばしまつこと...おおっ、今まで一度も超えていない3000台に突入。「これは行ける」。5分後...実行時エラー!なな何が?
開かれたIE画面を見ると中途半端な表示のまま完了状態。「IE、今度はお前か!!!」。読み出そうとするデータが無くてエラーになったようです。まぁ、こんなこともたまにはあります。Excel君が死んだわけではないので、対処方法もあります。でも、とりあえず、再トライですんなり行くはず。という訳で再トライ。5分後...「さっきから進捗が無いような...」...10分後、「やはり進んでない」。IE画面を確認すると、今度は完了状態にならずに、アクセス状態のまま。「くっ、やはりネット環境が悪いとダメなのか!」、とりあえずIEを閉じると、実行時エラー。「そうか、あたりまえだけどExcel君は生きているんだ!それならタイムアウト処理を追加して更新しなおせば良いんだ!」。とりあえず、更新処理方法を調べるのは後にして、手っ取り早くIE閉じて再起動させる処理を追加。

TIME_OUT:                            '追加
  With objIE
   '.Visible = True
  
   '文字列で指定したURLに飛ぶ
   .Navigate MyURL
 
   '表示終了まで待つ(タイムアウト処理追加)
   TimeOutTime = Now()                    '追加
   TimeOutTime = TimeOutTime + "00:01:00"           '追加
   Do While .Busy Or .ReadyState <> 4
    DoEvents
    '追加↓↓↓↓↓↓
    If TimeOutTime < Now() Then
      objIE.Qui
      Set objIE = Nothing
      MsgBox "タイムアウトが発生しました!"         '確認用
      Set objIE = CreateObject("InternetExplorer.application")
      GoTo TIME_OUT
    End If
    'ここまで↑↑↑↑
   Loop

これにて再々トライ。5分後、タイムアウト表示でOKをクリック、「行けそうだ」。その後3回のタイムアウトが表示されるも、無事終了表示(約48分)。「やったぜ父ちゃん」思わず星飛雄馬のように叫んでしまいました。

そんな訳で奮闘日記のようになってしまいましたが、等問題はコンプリートです。
かみちゃんさん本当にありがとうございます。
感謝感激です(p^^)p♪♪♪q(^^q) m(_ _)m
1 hits

【32967】WEBクエリ取得中のまま固まってしまう おさる 05/12/28(水) 12:03 質問
【32970】Re:WEBクエリ取得中のまま固まってしまう かみちゃん 05/12/28(水) 12:14 発言
【32975】Re:WEBクエリ取得中のまま固まってしまう おさる 05/12/28(水) 12:57 お礼
【32976】Re:WEBクエリ取得中のまま固まってしまう かみちゃん 05/12/28(水) 13:14 発言
【32977】Re:WEBクエリ取得中のまま固まってしまう おさる 05/12/28(水) 13:22 お礼
【32989】Re:WEBクエリ取得中のまま固まってしまう かみちゃん 05/12/28(水) 15:36 回答
【32998】Re:WEBクエリ取得中のまま固まってしまう おさる 05/12/28(水) 16:25 お礼
【33000】Re:WEBクエリ取得中のまま固まってしまう かみちゃん 05/12/28(水) 16:34 発言
【33001】Re:WEBクエリ取得中のまま固まってしまう おさる 05/12/28(水) 16:44 お礼
【33006】Re:WEBクエリ取得中のまま固まってしまう かみちゃん 05/12/28(水) 23:45 回答
【33030】Re:WEBクエリ取得中のまま固まってしまう おさる 05/12/29(木) 12:08 お礼
【33044】Re:WEBクエリ取得中のまま固まってしまう かみちゃん 05/12/29(木) 21:45 発言
【33394】Re:WEBクエリ取得中のまま固まってしまう おさる 06/1/10(火) 15:28 お礼
【32978】Re:WEBクエリ取得中のまま固まってしまう Kein 05/12/28(水) 13:29 回答
【32983】Re:WEBクエリ取得中のまま固まってしまう おさる 05/12/28(水) 14:39 お礼
【32999】Re:WEBクエリ取得中のまま固まってしまう おさる 05/12/28(水) 16:33 お礼

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