excel VBAのIE操作（フォーカス）について

Question

excel VBAのIE操作で、現在フォーカスされているテキストボックスの名前を取得したいのですが、
何か良い方法はありませんでしょうか？ご教示お願いいたします。

WindFaller · Accepted Answer

「うんともすんとも」とは、もう少しちゃんとした言葉には出来なかったのですか？

こちらで試してみているのだから、どうして出来ないかと考えたり、また、どうしてかと聞くべきではありませんか？掲示板で聞くというのは、一期一会だと思って聞いたほうが価値があると思います。

この"w"って、何かと考えれば分かるはずです。
w とは、すべてのウィンドウのことです。つまり、IEでタブで二つ以上開いていたら、最初のタブ側のウィンドウを探しているということです。

Set objShellWins = CreateObject("Shell.Application").Windows()
　 For Each w In objShellWins

それでも分からないなら、こうでもすれば、分かるはずです。
でも、探し方はいろいろあるはずで、何も、フォーカスしてるものの名前を取るということにこだわらなくても、ループして探してもよいし、他にもあります。最終目的は、そんなことではないのでしょう。この先があるはずだと思います。

'//
Sub Test1a()
　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
　　If .Document.activeElement.ID <> "" Then
　　　Debug.Print .LocationName, .Document.activeElement.ID　
　　Else
　　　Debug.Print "NO DATA"
　　End If
　　End With
　 End If
ErrHandler:
　Set objIE = Nothing
　Set objShellWins = Nothing
　End Sub
'//

#2のマクロで取った結果：
http://oshiete.goo.ne.jp/
[検索する]のテキストボックスは、'searchtop' と出ています。
その次の
画面下の[カテゴリ]のコンボボックスは、'qa_ranking_change' となっています。
また、

https://www.google.co.jp/
の真ん中のテキストボックスは、'lst-ib'

http://www.yahoo.co.jp/
の最初のテキストボックは、'srchtxt'

kumatti1 · Answer

＞社内で使用しているイントラネットのサイトなのですが

イントラネットが対象なら、Microsoft Internet Controlsに参照設定して、
＞Dim ie As New SHDocVw.InternetExplorerMedium
でインスタンス化したIEを使うとか。

WindFaller · Answer

こんにちは。

これで取れるような気がします。本当は、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
'//

kumatti1 · Answer

Dim elm As Object
Set elm = ie.document.activeElement
こんな感じで。

excel VBAのIE操作（フォーカス）について

「うんともすんとも」とは、もう少しちゃんとした言葉には出来なかったのですか？

この回答への補足

＞社内で使用しているイントラネットのサイトなのですが

この回答への補足

こんにちは。

Dim elm As Object

この回答への補足

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング