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

名前

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

本文 > Dim sw As New SHDocVw.ShellWindows ShellWindowsコレクションを使っておられるようですが、 それなら、EnumWindows APIを使わなくてもIEを列挙できますよ。 Dim Obj As Object On Error Resume Next For Each Obj In CreateObject("Shell.Application").Windows Debug.Print "hWnd=0x" & Hex(Obj.hWnd) If TypeName(Obj.document) = "HTMLDocument" Then 'Debug.Print Obj.document.documentElement.outerHTML Debug.Print Obj.document.documentElement.outerText Else Debug.Print "HTML以外(フォルダ等)が表示されています" End If Debug.Print String(50, "*") Next