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

名前

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

本文 ありがとうございます。早速起動してみたのですが どうも動きません。以下がソースです。 テキスト形式で取れそうなのはうれしいのですが 取り込む窓はどの変数で指定すればいいのか よく分かりません、ご指導よろしくお願いします。 Private Sub Form_Load() Dim sw As New SHDocVw.ShellWindows 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 End Sub