掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
WebBrowserで表のデータ収集 (ID：108552)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
たしかWebBrowser1_DocumentCompleteは完全に終了されてなくても 発行されることがあったと思います。 もしそれが原因なら Private Sub Form_Load() Me.Show WebBrowser1.Navigate "http://www.e-typing.ne.jp/index.asp?mode=levelcheck&state=rank" Do While WebBrowser1.Busy DoEvents Loop End Sub としてみるか・・・ Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long) If Progress = -1 Then 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 Set objTables = Nothing Set objTable = Nothing End If End Sub で、試してみてください。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.