掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
HTMLの表を取得するには？ (ID：109646)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Index6がルートTableだからここからCellをたどって offsetLeftで分類するとかはどうでしょう？ (どうせ決め打ちだし……。 XMLで提供してくれるとこがドコかにあったらいいのにね) Private Sub Command2_Click() Const IDX_TV_PROGRAM_ROOT_TABLE% = 6 Const LEFT_1CH_NHK& = 19 Dim objTable As Object 'MSHTML.HTMLTable Dim objCell As Object 'MSHTML.HTMLTableCell Dim Temp_Bangumi As String Set objTable = WebBrowser1.Document.getElementsByTagName( _ "TABLE")(IDX_TV_PROGRAM_ROOT_TABLE) For Each objCell In objTable.cells If objCell.offsetLeft = LEFT_1CH_NHK& Then Temp_Bangumi = Temp_Bangumi & objCell.innerText & vbNewLine End If Next RichTextBox1.Text = Temp_Bangumi End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.