VBA批量写入财务数据至单元格失败问题求助

我明白你现在卡在VBA批量抓取财务数据并写入Excel单元格这儿了，尤其是Range循环写法、节点层级和With语句的结合逻辑搞不清。咱们先拆解你原代码里的问题，再一步步修正。

原代码的核心问题 #

你提到的Range("D" & i) = ~~ innerText写法无效，主要是这几个原因：

• 内层For循环里，你直接给整个Range("D4:D20")赋值同一个td的内容，完全没用到循环变量i，相当于每次循环都覆盖整个单元格区域，自然没法按顺序写入。
• With语句没发挥作用：你在With块里还是重复写了post.ParentNode.ParentNode.getElementsByTagName("td")，浪费了With简化代码的优势。
• 节点遍历逻辑不对：找到目标span后，没有正确遍历该行的每个td元素，而是一直取同一个td的数据。

修正后的代码 #

Sub FetchFinanceInfo()
    Dim XMLReq As New XMLHTTP60, HTMLDoc As New HTMLDocument
    Dim post As Object, tdElements As Object, i As Integer
    
    ' 发送请求获取页面内容
    XMLReq.Open "GET", "https://finance.yahoo.com/quote/BABA/cash-flow?p=BABA", False
    XMLReq.send
    HTMLDoc.body.innerHTML = XMLReq.responseText
    
    ' 遍历所有span，找到目标行
    For Each post In HTMLDoc.getElementsByTagName("span")
        If InStr(post.innerText, "From Operating Activities") > 0 Then
            ' 定位到目标行的所有td元素，用With简化代码
            Set tdElements = post.ParentNode.ParentNode.getElementsByTagName("td")
            With tdElements
                ' 遍历每个td，按顺序写入D4开始的单元格
                For i = 1 To .Length - 1
                    ' 用i+3对应D4（i=1时是D4，i=2时D5，以此类推）
                    Range("D" & (3 + i)).Value = .Item(i).innerText
                Next i
            End With
            Exit For ' 找到目标后退出循环，不用继续遍历
        End If
    Next post
End Sub

关键逻辑解释 #

• With语句的正确用法：先把目标td集合赋值给tdElements，然后在With块里用.Item(i)直接访问集合中的元素，避免重复写长串的节点定位代码，更清晰。
• Range与循环变量的结合：用Range("D" & (3 + i))，当i从1开始时，正好对应D4单元格，每次循环i递增，单元格也依次往下，实现按顺序写入。
• 节点层级确认：找到包含"From Operating Activities"的span后，post.ParentNode.ParentNode定位到该行的tr元素，再获取该行的所有td，这些td就是你要提取的财务数据列。

内容的提问来源于stack exchange，提问作者BangolPhoenix