IEのアクティブウィンドウを掴む 削除
| Message#2 2014年11月17日(月)15時39分 From: ブニャット |
| いろいろネットサーフィンした結果、自己解決しました。 お騒がせしてすみません。 一応分かったコードをここに貼っておきます・・・。 Sub test() Dim hwnd As Long Dim ie As Object ’エクセル4.0のマクロでアクティブなIEのハンドルを変数に代入 hwnd = CreateObject("Excel.Application").ExecuteExcel4Macro("CALL(""user32"",""FindWindowA"",""JCJ"",""IEFrame"",0)") ’開いてるshellアプリ分回してハンドルが一致するものを検索 For Each ie In CreateObject("Shell.Application").Windows() If hwnd = ie.hwnd Then ’IEがタブで開かれている場合ハンドルでは区別できないので、 ’ステータステキストを入れていく。 ’アクティブなタブであれば代入できるので、それが最前列のIE ie.statusText = CStr(hwnd) If ie.statusText = CStr(hwnd) Then Exit For End If Next If IsEmpty(ie) Then MsgBox "Not Found" Else MsgBox ie.LocationURL End If End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
