WebbrowserコントロールなしでのDHTMLの操作 (ID:81251)

名前

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

本文 何とか調べてみてコードを書いてみたのですが 「オブジェクト変数またはWithブロック変数が設定されていません。」というエラーが「Tmp.Load Stm2」の部分ででてしまいます。 Dim InetDoc() As Byte Dim Stm As Object Dim Stm2 As IStream Dim Doc As MSHTML.HTMLDocument Dim Tmp As IPersistStream Inet1.protocol = icHTTP Inet1.url = "http://www.yahoo.co.jp" InetDoc = Inet1.OpenURL Set Stm = New ADODB.Stream Stm.open Stm.Type = adTypeBinary Stm.write InetDoc Stm.Close Set Stm2 = Stm Set Doc = New HTMLDocument Set Doc = Tmp Tmp.Load Stm2 Debug.Print Doc.getElementsByTagName("TABLE").length 間違っている箇所を教えていただけないでしょうか？？