VBAでアクティブなIEを操作

質問

現在VBAでIEを操作しようとしております。
URLやタイトルから指定してIEを操作することはできるようになりました。

今度はデスクトップの最善面にあるIEを操作したいと考えています。

下記を参考にして考えていますが、Hwndプロパティが読み取り専用らしく
ハンドルから操作するIEを指定することができません。

http://okwave.jp/qa/q2147057.html

そもそもVBAで可能なのかについても
よく分からないのですが、恐れ入りますが代案を含め方法があれば教えてください。

ひとまず、煮詰まっていますが、
今残っているコードを載せておきます。

Public Declare Function GetForegroundWindow Lib "user32" () As Long

’---------------

Sub shell_test()

Dim objie As Object
Dim a as long

Set obj = CreateObject("shell.application")

a = GetForegroundWindow

Debug.Print a

End Sub

回答No.3

kumatti1 · ベストアンサー

ShellWindowsで列挙してGetForegroundWindowが返すハンドルと一致するかで判別するとか。

Dim o As New SHDocVw.ShellWindows
Dim ie As InternetExplorer
For Each ie In o
If ie.Hwnd = GetForegroundWindow Then
'何か処理
Exit For
End If
Next

お望みのハンドルからIEオブジェクトを得るには、
>GetForegroundWindow
がIEFrameなら、その子孫ウィンドウのInternet Explorer_Serverに対して
WM_HTML_GETOBJECTメッセージを送信すればHTMLDocument2オブジェクトが得られるので
parentWindowプロパティが返すIHTMLWindow2オブジェクトを
IUnknown_QueryService APIの第一引数に指定して、
第二、第三引数はIID_IWebBrowser2を指定すれば第四引数でIEオブジェクトが得られます。

回答No.2

kumatti1

URL指定で参照の取得は出来ます。
'Microsoft Internet Controlsに参照設定
Const url = "https://www.google.co.jp/?gws_rd=ssl"
Dim o As New SHDocVw.ShellWindows
Dim ie As Object
Set ie = o.FindWindowSW(url, Empty, 1, 0, 1)

お礼

非常に参考になりました。ありがとうございます。

同じURLのページを複数開いていることが多く、
その場合意図したページとは違う参照が入ってしまうことがありました。。。

回答No.1

lupin-333333

＞そもそもVBAで可能なのかについても

この手の質問する方は、プログラミングを甘く見ている方に多い。一つの事柄を覚えれば、すべて理解してしいると、誤解する。特にネット関連の知識を保有している方に多い。

まず、「オブジェクト指向のプログラミング」を勉強しよう。すでに３０年前から言われ、２０年前ぐらいから実用化した技術だ。５０歳以上の方にはなじみが薄い技術だ。

どこかの馬鹿が、「オブジェクト指向」とはクラスライブラリーの作成と操作だ！　と定義した馬鹿者がいるが、確かにそれは一部だた、本筋ではない。

「オブジェクト指向」と共に発達したのがカプセル化であり、API、SPI、インターフェースの開発、そしてフレームワークと言われる究極的なカプセル化及び標準化技術だ。

これらは表裏一体であり、きっても切れない関係にある。

＞今度はデスクトップの最善面にあ

本題だが、

＞Set obj = CreateObject("shell.application")

これって、何を意味するか、分析しましたでしょうか？　これがちゃんと意味がわかれば、こんな質問はしないはずです。そこから勉強しよう。

ヒントとしては、

”shell.application”

でぐぐってみれば、すぐに、わかるはずです。下記は検索例です

https://www.google.co.jp/search?q=%E2%80%9Dshell.application%E2%80%9D+%E3%83%AA%E3%83%95%E3%82%A1%E3%83%AC%E3%83%B3%E3%82%B9+%E3%83%9E%E3%82%A4%E3%82%AF%E3%83%AD%E3%82%BD%E3%83%95%E3%83%88&oq=%E2%80%9Dshell.application%E2%80%9D%E3%80%80%E3%83%AA%E3%83%95%E3%82%A1%E3%83%AC%E3%83%B3%E3%82%B9%E3%80%80%E3%83%9E%E3%82%A4%E3%82%AF%E3%83%AD%E3%82%BD%E3%83%95%E3%83%88&aqs=chrome..69i57.9686j0j7&sourceid=chrome&es_sm=122&ie=UTF-8

この結果から
http://answers.microsoft.com/ja-jp/windows/forum/windows_7-windows_programs/shellapplication%E3%82%AA%E3%83%96%E3%82%B8/6c64c414-1f46-45c1-88c9-0df18574504

を見ると
http://msdn.microsoft.com/ja-jp/library/cc422072.aspx

本家の解説のページに突き当たる。この解説のTOPが
http://msdn.microsoft.com/ja-jp/library/hh846418(v=vs.85).aspx

であることがすぐわかるはず。そこのタイトルは「Windows Shell」となっている。そのシェルの意味は

https://www.google.co.jp/search?q=Shell%E3%81%A8%E3%81%AF&oq=Shell%E3%81%A8%E3%81%AF&aqs=chrome..69i57.28641j0j7&sourceid=chrome&es_sm=122&ie=UTF-8

でわかるはず。一般的な意味だが、その意味を踏襲して、「Windows Shell」と言うソフトの名前になっている。つまりWindowsのシェルはエイクスプローラーって事になる。元の意味とは離れているが、CUI中心からGUIになってから、ユーザー操作の窓口がエクスプローラと言う意味では、Shellとなずけてもおかしくは無い。

そのソフトのインターフェースはC++　C#等に提供されるAPIとともに、COMとしても提供されている。このCOMインターフェースを使う事によって、COMに対応しているスクリプトエンジンからでも使えるようになっている。

それが、オブジェクト指向の真髄でしょう。オブジェクト化というカプセルかで（いわゆるブラックボックスで中身は、エンドユーザーが知らなくてもいい）、インプットとアウトプットがわかるだけで、いいわけだ。

Javaだと、もっと深くカプセルかしてフレームワークが提供されている。

エンドユーザーの、プログラマーは、その中身を知る必要が無い。INとOutだけ（リファレンスなどの仕様書）さえ見て組み立てればいいだけ。

＞今度はデスクトップの最善面にあ

上記、リファレンスサイトを見れば、すぐに見つかるはず。このようなリファレンスサイトになれるのも、修行のうち。なれれば、ここに質問する事もなくなるはず。

何度でも繰り返して質問する方は、才能がないので、はやく足をあらったほうがいいでしょう。

お礼

貴重なご意見ありがとうございます。
おっしゃる事はごもっともです。精進させていただきます。