こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセル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/ を前面に持ってくる場合はどのような記述となるのでしょうか?
ご教示くださいませ。

投稿日時 - 2011-10-19 17:39:57

QNo.7081714

困ってます

質問者が選んだベストアンサー

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

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

投稿日時 - 2011-10-20 00:29:28

お礼

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

投稿日時 - 2011-10-20 09:48:53

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問