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

名前

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

本文 だれかお願いします。 ここのランキング取得したいです。 Private Sub Form_Load() WebBrowser1.Navigate "http://www.e-typing.ne.jp/index.asp?mode=levelcheck&state=rank" End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim objTables As Object Dim objTable As Object Set objTables = WebBrowser1.Document.getElementsByTagName("TABLE") 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 End Sub