使用Excel VBA抓取tr类信息

Sub GrabTRInfo()
    Dim ie As Object
    Dim html As Object
    Dim trElements As Object
    Dim trElement As Object
    Dim i As Integer
    
    ' 创建IE对象
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' 设置IE对象的属性
    With ie
        .Visible = False ' 可以选择是否显示IE窗口
        .Navigate "http://example.com" ' 替换为你要抓取信息的网址
        Do While .Busy Or .ReadyState <> 4
            DoEvents
        Loop
        Set html = .document
    End With
    
    ' 获取所有tr元素
    Set trElements = html.getElementsByClassName("tr") ' 替换为你要抓取的tr类名称
    
    ' 遍历tr元素并输出信息
    i = 1
    For Each trElement In trElements
        ' 输出tr元素的文本内容或其他属性
        Sheets("Sheet1").Cells(i, 1).Value = trElement.innerText ' 将结果写入Sheet1的第一列
        i = i + 1
    Next trElement
    
    ' 关闭IE对象
    ie.Quit
    Set ie = Nothing
End Sub