excel VBAのIE操作（フォーカス）について 削除
| Message#4 2014年12月10日(水)09時09分 From: VBAマスター |
| こんにちは。 これで取れるような気がします。本当は、JavaScript経由で行ったほうがわかりやすいのでしょうが、VBAですから、こんな方法しか思いつきません。以下は、教えてGooのトップページで試してみました。 まあ、取れる所とそうでない所はあるとは思いますが。 '// Sub Test1() Dim objIE As Object Dim objShellWins As Object Dim w as Object On Error GoTo ErrHandler Set objShellWins = CreateObject("Shell.Application").Windows() For Each w In objShellWins If TypeName(w) = "IWebBrowser2" Then Set objIE = w Exit For End If Next If Not objIE Is Nothing Then With objIE Debug.Print .Document.activeElement.ID 'イミディエイトwinへ出力 End With End If ErrHandler: Set objIE = Nothing Set objShellWins = Nothing End Sub '// |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
