![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
エクセルは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ベストアンサー
- 回答日時:
これでいいと思う。
標準モジュール
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 起動中のアプリ、ソフトの取得 3 2022/12/28 11:13
- SQL Server ACCESSで3ファイルを結合して、表を作成するやり方を教えて下さい。 17 2022/08/15 20:34
- お菓子・スイーツ 急いでます こちらのプリン製造5日が賞味期限なのですが 製造から到着までどのくらいみているのでしょう 2 2023/03/02 11:07
- SQL Server ACCESSで複数テーブルを結合して、リストを作る方法を教えてください。 2 2022/08/12 19:32
- Amazon Keepaの使い方に付いての質問です。 アメリカAmazonで使いたいと思います。 最初に言語の選択 1 2023/04/07 02:18
- その他(IT・Webサービス) MacとWindows Google検索した時のURL表示の違いについて 1 2022/11/17 10:38
- その他(ブラウザ) IE・edgeで日増しに観られるサイトが減ってくる。 1 2022/10/04 22:40
- Excel(エクセル) 【VBA】 Alt+PrintScreenにてアクティブウィンドウのスクショを貼付する方法 4 2022/12/08 20:53
- デスクトップパソコン パソコンは電源ユニットから壊れるのでしょうか 6 2022/07/25 18:58
- SQL Server ACCESSで表が作りたく、そのためのSQL文や設定方法を教えてください。 1 2022/08/15 12:28
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
VBAで既に開いている別アプリケ...
-
[VBA]CDOメッセージ送信エラー
-
エクセルVBAでFor each文
-
実行時エラー 3265「要求された...
-
エクセルマクロエラー「'Cells'...
-
VBA:オートシェイプの線の長...
-
オブジェクト変数またはWITHブ...
-
エクセルから表をパワーポイン...
-
VBAで作成するメール(開封確認...
-
横軸ラベルの追加に関するエラ...
-
ExcelでAccessのテーブルにADO...
-
ある文字列が全て数字であるか...
-
「オブジェクト変数または With...
-
オブジェクトが見つかりません
-
Visual Basic.NETのエラー("オ...
-
マクロ初心者です。 インデック...
-
vb.netアプリケーションで発生...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
エクセルのVBAの標準モジュール...
-
エクセルマクロエラー「'Cells'...
-
Excelでフィルタをかけると警告...
-
VBAで Set wb = Sheets(1).Cop...
-
VBAからPDFファイルにパスワー...
-
テキストボックス中の文字列の...
-
エクセルVBAでcode128のバー...
-
EXCEL VBA オートシェイプナン...
-
VBAで作成するメール(開封確認...
-
PowerPointVBAでスライドマスタ...
-
ある文字列が全て数字であるか...
-
エクセルVBAで配列内に空白デー...
-
[VBA]CDOメッセージ送信エラー
-
オブジェクトが見つかりません
-
UserForm1.Showでエラーになり...
-
上下の位置揃えについて
おすすめ情報