如何解决如何使用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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。