スポンサーリンク

2007-06-12

VBA Tips1 - Internet Explorer (IE)のウィンドウハンドルを取得

IEのバージョンが4.0の場合、最初に起動したウィンドウが、6.0の場合、前面のウィンドウのハンドルが取得できるようです。
Windows API を使います。
標準モジュールかフォームコードで宣言します。
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
プロシージャで使用します。
Dim Handle As Long
Handle = FindWindow("IEFrame", vbNullString)
見つからなければ0が戻ります。