現在開いてるIEのタイトルを取得するには？

質問

Sub test()
Dim shl As Object
Dim wnd As Object

Set shl = CreateObject("Shell.Application")

For Each wnd In shl.Windows()
Debug.Print wnd.LocationURL
Next

Set shl = Nothing

End Sub
-----------------------------------------
これを実行するとＩＥのＵＲＬは取得できますが
画像のようにタイトル部分の文字列を取得したいです。

LocationURLをLocationnameに変えたらエラーになりました。
ご教授よろしくお願いします。

回答No.1

vbhanatyan · ベストアンサー

これでいいのかな？

Dim shl As Object
Dim wnd As Object
Dim doc As Object
Set shl = CreateObject("Shell.Application")
For Each wnd In shl.Windows()
　　If TypeName(wnd.document) = "HTMLDocument" Then
　　　　'オブジェクトを代入する
　　　　Set doc = wnd.document
　　　　Debug.Print doc.Title
　　　　Set doc = Nothing
　　End If
Next
Set shl = Nothing

お礼

出来ました！ありがとうございました。