みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

フリーズする原因

参照設定で[Microsoft HTML Object Library]

Sub test1()
Dim html As MSHTML.HTMLDocument
Set html = New MSHTML.HTMLDocument

Dim document As MSHTML.HTMLDocument
Set document = html.createDocumentFromUrl("http://www.goo.ne.jp/", vbNullString)

' ダウンロード待ち
Do While document.ReadyState <> "complete"
Loop

' 結果出力
Debug.Print document.Body.innerHTML

Set html = Nothing
Set document = Nothing
End Sub

このコードを実行したいのですが
ステップインして行かないとフリーズしてしまいます。

「ダウンロード待ち」の部分で無限ループです。
なぜでしょうか?

あと、ステップインで実行したとしても
「このページには、セキュリティの危険性がある可能性があります。続行しますか?」
が毎回出てくるのですが、
非表示にするかvbaで「はい」にさせる方法はありますか?

投稿日時 - 2013-01-23 22:52:21

QNo.7907461

暇なときに回答ください

質問者が選んだベストアンサー

Do While document.ReadyState <> 4
ここ参照

http://canal22.org/advance/ie/ie-busy-readystate/


>非表示にするかvbaで「はい」にさせる方法はありますか?

それができるのならセキュリティ警告の意味が無い

投稿日時 - 2013-01-23 23:41:08

お礼

ありがとうございました。

投稿日時 - 2013-01-27 14:40:39

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問