当方 IE9+2007です。
Sub yahoo()
Dim objIE As Object
Dim i As Long
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://www.yahoo.co.jp/"
Do Until objIE.Busy = False And objIE.ReadyState = 4: Loop
If objIE.Document.Body.innerHTML Like "*こんにちは、*さん*" Then
i = MsgBox("別のIDでログインしています！続けますか？", vbYesNo + vbApplicationModal)
If i = 7 Then End
End If
End Sub
このような事がやりたいのですが、
IEブラウザを立ち上げてメッセージボックスをvbApplicationModalで表示させても
ブラウザより裏側で表示されてしまいます。
If objIE.Document.Body.innerHTML Like "*こんにちは、*さん*" Then
i = MsgBox("別のIDでログインしています！続けますか？", vbYesNo + vbApplicationModal)
If i = 7 Then End
End If
objIE.Visible = True
という順番にすればよいのですが、他のコードの関係もあってメッセージボックスより先にブラウザを表示させたいのです。
そんな事は可能でしょうか？
ご回答よろしくお願いします。
↧