掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
HTMLの表を取得するには？ (ID：109645)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
WebBrowser1に、今日のテレビ欄 （１１月２日の場合 ： http://tv.yahoo.co.jp/vhf/tokyo/2003110224.html?g=1）を表示し、Command1をクリックすると、RichTextBox1に、NHK総合の１日分の番組を表示しようと思っているのですが、全局の番組を表示は出来るのですが、NHK総合の１日分のみを表示する場合が、わかりません。 どうすればいいのでしょうか？ Private Sub Form_Load() WebBrowser1.Navigate "http://tv.yahoo.co.jp/vhf/tokyo/2003110224.html?g=1" End Sub Private Sub Command1_Click() On Error GoTo Err_Bangumi Dim objTables As Object Dim objTable As Object Dim Temp_Bangumi1 As String Dim Temp_Bangumi2 As String Dim i As Integer Set objTables = WebBrowser1.Document.getElementsByTagName("TABLE") If objTables.length > 0 Then For i = 7 To 500 Step 1 Temp_Bangumi1 = objTables(i).rows(0).cells(1).innerTEXT Temp_Bangumi2 = Temp_Bangumi2 & Temp_Bangumi1 + Chr(13) + Chr(10) Next i End If Err_Bangumi: RichTextBox1.Text = Temp_Bangumi2 End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.