如何使用VBA将html数据分离到表格中

问题描述

我正在尝试使用

对finviz中的主要基本面表进行数据抓取

Public Sub TestRequest()
Dim Html As HTMLDocument,htable As HTMLTable
Set Html = New HTMLDocument
  
With CreateObject("MSXML2.XMLHTTP")
    .Open "GET","https://finviz.com/quote.ashx?t=AAPL",False
    .setRequestHeader "If-Modified-Since","Sat,1 Jan 2000 00:00:00 GMT"
    .send
    Html.body.innerHTML = .responseText
End With

Sheets("Temp").Cells.ClearContents
Sheets("Temp").Cells(1,1) = Html.getElementsByClassName("snapshot-table2")(0).innerText

但是，整个表格数据会转储到 Excel 中的单个单元格中。如何将数据变成整洁的表格？

解决方法

以下代码首先将数据传输到您的工作表，然后创建一个表...

Public Sub TestRequest()

    Sheets("Temp").Cells.ClearContents
    
    Dim Html As HTMLDocument
    Set Html = New HTMLDocument
      
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET","https://finviz.com/quote.ashx?t=AAPL",False
        .setRequestHeader "If-Modified-Since","Sat,1 Jan 2000 00:00:00 GMT"
        .send
        Html.body.innerHTML = .responseText
    End With
    
    Dim htable As HTMLTable
    Set htable = Html.getElementsByClassName("snapshot-table2")(0)
    
    Dim r As Long
    Dim c As Long
    
    With htable
        For r = 0 To .Rows.Length - 1
            For c = 0 To .Rows(r).Cells.Length - 1
                Sheets("Temp").Cells(r + 1,c + 1).Value = .Rows(r).Cells(c).innerText
            Next c
        Next r
    End With
    
    Sheets("Temp").ListObjects.Add _
        SourceType:=xlSrcRange,_
        Source:=Sheets("Temp").Range("A1").CurrentRegion,_
        xllistobjecthasheaders:=xlNo
    
End Sub