IEのアクティブウィンドウを掴む
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| 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 |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
