WebBrowserで表のデータ収集 (ID:108548)

名前

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

本文 ↑読みきりました。何度か実験して全ての物を取得できそうな感じがしました。TableのなかのTableも取得できました。 Objectを使ったものは初めてなんですけど、下の式で開始ボタンを押すと必ず 「実行時エラー'91' オブジェクト変数またはWithブロック変数が設定されていません。」 と表示されます。デバックから再度、開始ボタンを押すとうまく表示されるのですが、exeファイルにしたときバグって使えません。なにかが足りないのは分かるのですが何が足りないのかわかりません。 Private Sub Form_Load() WebBrowser1.Navigate "http://www.yahoo.co.jp/" Dim objTables As Object Dim objTable As Object Set objTables = WebBrowser1.Document.getElementsByTagName("TABLE") If objTables.length > 0 Then Text1.Text = objTables(1).rows(0).cells(0).innerTEXT End If End Sub