Sub Test1()
Dim objShell As Object
Dim objWin As Object
Set objShell = CreateObject("Shell.Application")
For Each objWin In objShell.Windows
Debug.Print objWin
Next
End Sub
のコードを実行すると、
・Microsoft Internet Explorer
・Windows Internet Explorer
が取得されるのですが、
これは何が取得されてるのでしょうか?
IEブラウザとフォルダですか?
IEブラウザは3つ
フォルダは5つ
立ち上げてますが
このコードを実行すると、
Microsoft Internet Explorer
は、4つ
Windows Internet Explorer
は、3つ取得されます。
OSはXPです。ご回答よろしくお願いします。
No.1ベストアンサー
- 回答日時:
知識がある方の回答が付かないので、答えさせていただきます。
この方面についての当方の知識が貧弱なため不正確なところがあるかもしれませんが、そこのところはご承知置きください。
objWinはInternetExplorerオブジェクトになっているようです。
といってもこれはブラウザだけでなくフォルダも含まれるようです。
(MSDNによると、ShellオブジェクトのメンバWindowsはShellWindowsオブジェクトを返す、となっています。ShellWindowsオブジェクトの解説の最初の方に、開いているShellのウィンドウのコレクションだと書いてあるのですが、少し下の方に、ItemはInternetExplorerオブジェクトを取得する、と書いてあります。)
Debug.Print objWin と書くと、.Name を省略したものとみなされるようです。
Nameプロパティですが、アプリケーション名を取得する、となっています。
質問者様の実行結果では、
Microsoft Internet Explorer
Windows Internet Explorer
の2種類の値がありますが、
Microsoft Internet Explorer がフォルダ、
Windows Internet Explorer がIE7以降のブラウザのようです。
ちなみにIE6だとブラウザも Microsoft Internet Explorer になります。
フォルダが5個なのにMicrosoft Internet Explorerが4つしかない理由はわかりません。
http://msdn.microsoft.com/ja-jp/library/windows/ …
http://ie.vba-ken3.jp/Property/
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(ブラウザ) Edge internet explorer モードのサイトの再読み込みを許可 表示されない 2 2023/03/03 12:10
- その他(ブラウザ) Internet Explorer でなければ開けないページ 4 2022/03/25 18:03
- Windows 10 Internet Explorer-11 を削除はしたけれど… 3 2022/06/20 17:54
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Windows 10 explorerをedgeで開く方法 2 2022/06/05 14:59
- Visual Basic(VBA) outlook マクロが終了しません。 1 2022/09/02 11:14
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Excel(エクセル) セルの値をグーグルで検索するエクセルVBAについて! 2 2022/08/01 21:41
- その他(Microsoft Office) VBA メール送信済で実行されるはずが、実行されない時があります。 2 2023/02/02 14:05
- その他(パソコン・周辺機器) EXCELで「WEBオプションの対象ブラウザ」を変更する方法 2 2023/04/12 15:44
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 3265「要求された...
-
VBAで Set wb = Sheets(1).Cop...
-
エクセルVBAでcode128のバー...
-
横軸ラベルの追加に関するエラ...
-
エクセルのVBAの標準モジュール...
-
VBAについてです。 初心者です...
-
オブジェクト変数の取得について
-
[VBA]CDOメッセージ送信エラー
-
オブジェクトが見つかりません
-
マクロ初心者です。 インデック...
-
VBScriptでファイルの日時順(降...
-
ExcelのVBAについて(グラフ操作)
-
アクセスにてオブジェクト名変...
-
Access VBAとExcel VBAとはどの...
-
C#でオブジェクトの配列を使う
-
オブジェクト名が同じ図形の変更
-
VBAからPDFファイルにパスワー...
-
VBAで作成するメール(開封確認...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
Excelでフィルタをかけると警告...
-
VBAで既に開いている別アプリケ...
-
エクセルマクロエラー「'Cells'...
-
テキストボックス中の文字列の...
-
VBAで Set wb = Sheets(1).Cop...
-
ある文字列が全て数字であるか...
-
VBAからPDFファイルにパスワー...
-
VBScriptでファイルの日時順(降...
-
EXCEL VBA オートシェイプナン...
-
[VBA]CDOメッセージ送信エラー
-
エクセルVBAで2つの画像を比較...
-
PowerPointVBAでスライドマスタ...
-
UserForm1.Showでエラーになり...
-
上下の位置揃えについて
-
VBAについてです。 初心者です...
-
VBAで作成するメール(開封確認...
おすすめ情報