HTMLの表を取得するには？ (ID：109649)

名前

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

本文

red-fishさんのコードを基に、作成してみました。
もずさん、こんな感じでどうでしょうか？

Private Sub Command3_Click()
    Const IDX_TV_PROGRAM_ROOT_TABLE% = 6
    Dim CH(6) As Integer
    Dim i As Integer
    
    CH(0) = 19
    CH(1) = 251
    CH(2) = 470
    CH(3) = 704
    CH(4) = 938
    CH(5) = 1145
    CH(6) = 1370
    
    Dim objTable As Object 'MSHTML.HTMLTable
    Dim objCell As Object  'MSHTML.HTMLTableCell
    Dim Temp_Bangumi1 As String
    
    Set objTable = WebBrowser1.Document.getElementsByTagName("TABLE")(IDX_TV_PROGRAM_ROOT_TABLE)
    
    Temp_Bangumi1 = Temp_Bangumi1 & "-------------------------------------------" & vbNewLine
    
    For i = 0 To 6
        For Each objCell In objTable.cells
            If objCell.offsetLeft = CH(i) Then
                Temp_Bangumi1 = Temp_Bangumi1 & objCell.innerText & vbNewLine
            End If
        Next
        
        Temp_Bangumi1 = Temp_Bangumi1 & "-------------------------------------------" & vbNewLine
   Next i

RichTextBox1.Text = Temp_Bangumi1
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る