エクセル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 回答日時： 2011/10/20 00:29

これでいいと思う。

標準モジュール

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さま、期待通りの動きをしてくれました。
有難うございます。

お礼日時：2011/10/20 09:48