VBA. IE制御 開いているIEブラウザの数を数える IE操作
VBA. IE制御 開いているIEブラウザの数を数える IE操作
Shell.windowsでカウントされているウィンドウはなんだろう？？
For Each objWindow In objShell.Windows
Debug.Print TypeName(objWindow.document)
Next
Debug.printに表示された結果は・・・
HTMLDocument
HTMLDocument
HTMLDocument
HTMLDocument
IShellFolderViewDual2
IShellFolderViewDual2 ってなにぃい？？
IEじゃないだろうものがカウントされている。。どうりで数が合わないはずだわーーー。
IShellFolderViewDual2 これは、どうやら エクスプローラーのようよ。
だったら、IEだけを数えるようにせねば・・・
というわけで、
For Each objWindow In objShell.Windows
If TypeName(objWindow.document) = "HTMLDocument" Then
OpenCount = OpenCount + 1
End If
Next
このようにしたら、開いているＩＥだけをカウントしてくれるようになりました！
わーーい ヾ(✿❛◡❛ฺฺ)ノ
ワード・エクセル・パワーポイント・アクセスを動画で楽々マスター！動画パソコン教室！【楽ぱそDVD】