IEがアプリケーションの後ろで開いてしまう

質問

フォームにコマンドボタンを設置して、

Sub test()
Set ObjIE = CreateObject("InternetExplorer.application")

ObjIE.Visible = True
ObjIE.Navigate "http://www.yahoo.co.jp/"

Set ObjIE = Nothing
End Sub

で、ＩＥを開いているのですが、accessの裏で開いてしまい、アクティブになりません。

しかし、毎回そういうわけでもなく、アクティブになる時もあります。
上記ＶＢＡコードにブレークポイントを設置し、一度開くと、それ以後はアクティブになります。

当方の環境は、
ｗｉｎ７、OFFICE２００７です。

常にＩＥを開く時はアクティブで開く方法をご存知の方、ご教授よろしくお願いします。

回答No.1

mitarashi · ベストアンサー

回答１
AppActivate objIE
で、うまくいきますかね？
http://officetanaka.net/excel/vba/statement/AppActivate.htm

回答２
下記を応用して、起動済みの他アプリの制御(AccessからNotes）やSendInputに使用しています。
WinXPでは動いていますが、Win7では未検証です。
http://hanatyan.sakura.ne.jp/patio/read.cgi?no=194

お礼

AppActivate objIE
で、できたっぽいです！

回答も試してみます。ありがとうございました。