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

名前

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

本文 m(_ _)mまたまたすみません。 >Set objTables = objTable.getElementsByTagName("TABLE")を取得してる最中 ではなくて、objTables(1).rows(i)が50ないときに発生してました。 Dim objTables As Object Dim objTable As Object On Error Resume Next Set objTables = WebBrowser1.Document.getElementsByTagName("TABLE") Text1.Text = "" If objTables.length > 0 Then Set objTable = objTables(12) Set objTables = objTable.getElementsByTagName("TABLE") For i = 1 To 50 For j = 0 To 2 Text1.Text = Text1.Text + objTables(1).rows(i).cells(j).innerTEXT + " " Next j Text1.Text = Text1.Text + Chr(13) + Chr(10) Next i End If If Err.Number Then Err.Clear Set objTables = Nothing Set objTable = Nothing こんな感じでとりあえず回避できますか？