エクセルVBAでWeb画面の切り替え

質問

エクセルは2000
IEのバージョンは6.0
Windoes2000です。

たとえば、エクセル以外に

http://www.google.co.jp/
http://www.yahoo.co.jp/

の二つのIEのウィンドウが開いていて、http://www.google.co.jp/　が前面に表示されていたとします。
このとき、エクセルのVBAで、裏に隠れている　http://www.yahoo.co.jp/　を前面に持ってくる場合はどのような記述となるのでしょうか？
ご教示くださいませ。

回答No.1

ki-aaa · ベストアンサー

これでいいと思う。
標準モジュール

Option Explicit

'ウィンドウをアクティブにする
Private Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hWnd As Long) As Long

Sub t03ccc()
Dim objIE As Object 'IE オブジェクト参照用
Dim objShell As Object 'Shell オブジェクト参照用
Dim lngRet As Long

Set objShell = CreateObject("Shell.Application")
For Each objIE In objShell.Windows
If InStr(LCase(objIE.FullName), "iexplore.exe") Then 'IEを探す
If InStr(objIE.document.Title, "Google") Then 'タイトルで探す
lngRet = SetForegroundWindow(objIE.hWnd)
Exit For
End If
End If
Next

Set objIE = Nothing
Set objShell = Nothing
End Sub

お礼

ki-aaaさま、期待通りの動きをしてくれました。
有難うございます。