如何用VBA在Excel中拉取雅虎财经看跌期权？

Sub PullYahooFinancePutOptions()
    Dim url As String
    Dim xmlHttp As Object
    Dim htmlDoc As Object
    Dim table As Object
    Dim row As Object
    Dim cell As Object
    Dim i As Integer
    
    ' 设置要拉取数据的URL
    url = "https://finance.yahoo.com/quote/AAPL/options?p=AAPL&date=1679817600"
    
    ' 创建XMLHttpRequest对象
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送HTTP请求
    xmlHttp.Open "GET", url, False
    xmlHttp.send
    
    ' 创建HTML文档对象
    Set htmlDoc = CreateObject("htmlfile")
    
    ' 将HTTP响应内容加载到HTML文档对象中
    htmlDoc.body.innerHTML = xmlHttp.responseText
    
    ' 查找包含看跌期权数据的表格
    Set table = htmlDoc.getElementById("optionsCallsTable")
    
    ' 遍历表格中的行和单元格，并将数据写入Excel单元格
    i = 1
    For Each row In table.Rows
        For Each cell In row.Cells
            Cells(i, cell.ColumnIndex).Value = cell.innerText
        Next cell
        i = i + 1
    Next row
    
    ' 清理对象
    Set xmlHttp = Nothing
    Set htmlDoc = Nothing
End Sub