excel - 打印外部 HTML 包含表

Question

我正在尝试这个，但它带来了错误的数据请帮助。

Public Sub Test_H1()
Dim sResponse As String, html As HTMLDocument, clipboard As Object, ws As Worksheet, url As String
Set ws = ThisWorkbook.Worksheets("Sheet1")
Set clipboard = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Dim i, j As Integer

url = "https://www1.nseindia.com/live_market/dynaContent/live_watch/option_chain/optionKeys.jsp?symbolCode=2132&symbol=DIVISLAB"
With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", url, False
    .setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
    .send
    sResponse = StrConv(.responseBody, vbUnicode)
End With
Set html = New HTMLDocument
html.body.innerHTML = sResponse

clipboard.SetText html.querySelector("table").outerHTML
clipboard.PutInClipboard
ws.Cells(1, 1).PasteSpecial

End Sub

链接是“https://www1.nseindia.com/live_market/dynaContent/live_watch/option_chain/optionKeys.jsp?symbolCode=2132&symbol=DIVISLAB”

包含数据的表在图像中的红色框中

表 id 也在其中 "octable" ，如果有人能帮助它，将不胜感激。

标签： excelvba