ＶＢＡでＩＥが起動しているかどうかの確認

ＶＢＡでＩＥが起動しているかどうかを確認するにはどういうコードを使えばいいのですか？

【やりたいこと】
(1)ＩＥが起動しているか確認
(2)起動していたら、そのまま作業開始
(3)起動していなかったら、ＩＥを起動させてから作業開始」

作業内容はもう完成しているのですが、あとはＩＥが起動している場合と、そうでない場合に分けるだけなのですが…

No.2 回答者： bluecampus 回答日時： 2009/04/22 15:55

Shell.Applicationオブジェクトを使った方法です。

Sub test()
　　If IsExecutingIE() Then
　　　　MsgBox "IE起動中"
　　Else
　　　　MsgBox "IEを起動していない"
　　End If
End Sub

Private Function IsExecutingIE() As Boolean
　　Dim ws As Object
　　For Each ws In CreateObject("Shell.Application").Windows
　　　　If TypeName(ws.Document) = "HTMLDocument" Then
　　　　　　IsExecutingIE = True
　　　　　　Exit For
　　　　End If
　　Next
End Function

No.1 回答者： n-jun 回答日時： 2009/04/22 14:30

実行中のタスク一覧(非API)

http://officetanaka.net/excel/vba/tips/tips61.htm

と言うのが見つかりました。