EXCEL2010でVBAからIE10を操作しようとしますがうまくいきません

Question

VBAからIEを操作しようとしていますがうまくいきません。どなたか助けて下さい。

Dim objIE As Object
Dim urlIE As String
    urlIE = "http://www.nifty.com/"
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True
    objIE.navigate urlIE
    Stop  
    Do While objIE.Busy = True Or objIE.readyState <> 4
        DoEvents
    Loop 
< 以下省略>

上記のコードを実行しStopでとまったところでローカルウィンドウで
objIEを展開させると中が空っぽになってしまっていて<変数なし>と表示されます。
当然そのまま続行するとアプリケーションエラー440になります。
IEのウィンドウにはちゃんとNavigateで指示したURLの画面が出ています。

他のURLもいくつか試しましたが同様の結果になります。

動作環境はWindows7 SP1 + IE10 + EXCEL2010 です。

Answer 1

CreateObject("InternetExplorer.Application") はIEのバージョンによって挙動が変わるみたいですね。

Ｋｅｎ３さんが、Shell.Application を使った方法を紹介されてます。
「TypeNameと Shell.Applicationを使い起動済みの IEを探す」でググってみてください。

Answer 2

set ie=getobject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}")

整合性レベル　中　のieの作り方。

Answer 3

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

{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}はクラスidでしょうか?
この値をどうやって探し出されたのか教えていただけますか?

Answer 4

Default Integrity Level and Automation - IEInternals - Site Home - MSDN Blogs

Answer 5

保護モードが絡んでいたのですね。
『保護モード』を含めて検索して色々な知見を得る事ができました。
対応方法も少し目処がたちましたのでこのスレッドは閉じる事にします。

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