複数のIE画面からひとつを選択し取り込むには? (ID:85827)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > Dim sw As New SHDocVw.ShellWindows ここで作成された sw は、 > For Each Obj In CreateObject("Shell.Application").Windows ここで指定した CreateObject("Shell.Application").Windows と同義です。 > 取り込む窓はどの変数で指定すればいいのか その前のコードで、FindWindow(Ex) を使っておられたので、ウィンドウハンドル(hWndプロパティ)さえ取得出来れば良いのかと思い、あのようなコードを掲載したわけですが…… hWnd だけでは不足でしたか? ウィンドウハンドル以外の情報としては、 ・現在表示中のアドレス(InternetExplorerオブジェクトのLocationURLプロパティ) ・表示されている位置(同オブジェクトのLeft/Top/Width/Heightプロパティ) なども取得出来ますが…。 Debug.Print "hWnd=0x" & Hex(Obj.hWnd) Debug.Print "URI=" & Obj.LocationURL Debug.Print "Pos=("; Obj.Left; ","; Obj.Top; ")-("; Debug.Print Obj.Left + Obj.Width; ","; Obj.Top + Obj.Height; ")" これでもまだ不足なようであれば、各ウィンドウをどのように区別したいのかを明確にしていただければ、何らかの回答ができるかも知れません。