excel - 使用 VBA 从 DIV 检索数据

Question

我有这个工作代码，用于从 DIVS 内部获取数据。

在此示例中，我将“水果”作为一个类别。

我想获取所有水果以及它们旁边的类别名称。

HTML 看起来像这样

 <DIV style="HEIGHT:100%;WIDTH:100%" ID="oReportDiv">
     <DIV class="a69"> Fruits  </DIV>

     <DIV style="word-wrap:break-word;text-decoration:none;" 
          class="a92">Banana</DIV>
     <DIV style="word-wrap:break-word;text-decoration:none;" 
          class="a92">Mango</DIV>
     <DIV style="word-wrap:break-word;text-decoration:none;"  
          class="a92">Apple</DIV>
 </DIV>

执行代码会产生:

       Banana         Fruit
       Mango 
       Apple

但我需要的是:

       Banana         Fruit
       Mango          Fruit
       Apple          Fruit

我怎样才能实现这一目标？

更新:我忘记发布代码

        t = Timer
    Do
        DoEvents
        On Error Resume Next


        Set nodeList = .document.querySelectorAll("#oReportCell .a92")
        Set nodeList1 = .document.querySelectorAll("#oReportCell .a69")

        On Error GoTo 0
        If Timer - t > MAX_WAIT_SEC Then Exit Do

    Loop While nodeList Is Nothing

    If Not nodeList Is Nothing Then

        With ThisWorkbook.Worksheets("Sheet1")

        'This nodeList is retrieving the values inside the DIV class="a69"
        'it's a list of products
            For i = 0 To nodeList.Length - 1

              .Cells(i + 1, 1) = nodeList.Item(i).innerText

            Next
        'This nodeList1 is retrieving the value inside the DIV class="a92"
        'it's the name of the product (so only one value)
           For i = 0 To nodeList1.Length - 1

               .Cells(i + 1, 8) = nodeList1.Item(i).innerText

           Next

        End With
    End If

Answer 1

根据您提供的内容，在我看来，您不需要为 nodeList1 建立单独的循环。只需放入第一个循环中，并始终引用 nodeList1 的 0 索引即可。

Dim sNode1 As String

With ThisWorkbook.Worksheets("Sheet1")

    'This nodeList is retrieving the values inside the DIV class="a69"
    'it's a list of products

    sNode1 = NodeList1.Item(0).innerText

    For i = 0 To NodeList.Length - 1

        .Cells(i + 1, 1) = NodeList.Item(i).innerText
        .Cells(i + 1, 8) = sNode1

    Next

End With