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

質問

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

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

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

回答No.2

bluecampus

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

実行中のタスク一覧(非API)
http://officetanaka.net/excel/vba/tips/tips61.htm

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