VBA：从div类中的子div类中提取文本

Question

我有一个搜索页面，其结构如下。在页面上有多达70个searchRecord的实例。我需要提取由asterixes ***表示的文本，并将它们放入Excel中的单独单元格中。所以每个searchrecord都会有一个新的行。

<div class="searchRecord"> 
       <div class="thumb"> 
        <a href="**SKU**"> 
         <img src="/product_images/.jpg" alt="**Title**" title="**Title**" border="0" />      </a> 
       </div> 
       <div class="desc"> 
        <h1><a href="**SKU**">**Title**</a></h1> 
        <p>**Category**</p> 
        <div class="clear"></div> 
        <div align="center"> 
         <div style="width:30%"> 
          <style>.bv_rating{ margin:3px 0px 0px 30px; }</style><div id='BVRRInlineRating-5030917094484' class="bv_rating"></div>       </div> 
        </div> 
        <div class="prodPrice"> 
         <div style="padding-top: 6px;"> 
          <div class="priceTxt">**Price1**</div> 
          <div class="priceTxt">**Price2**</div><br /><div class="priceTxt">**Price3**</div><br />       </div> 
        </div> 
        <div class="clear"></div> 
</div> 

我需要提取以下：

SKU

标题（有3个可能的例子）

类别

价格1

Price2

Price3

我已经成功地得到这个工作之前，但只有当主DIV类有一个独特的名字 - 这可以用

完成

Set searchres= oHtml.getElementsByClassName("searchRecord")(0).getElementsByTagName("span") 
i = 0 
For Each oElement In searchres 
Sheets("Sheet1").Range("A" & i + 1) = searchres(i).innerText 
i = i + 1 
Next oElement 

Answer 1

我通常不喜欢在没有测试它的情况下先提供代码，但由于没有提供正式的URL，所以唯一的选择是构造来自HTML提供的短小部分的可用网页。

Dim v As Long, vSKUs As Variant 
Dim iDIV As Long, pp As Long 
Dim oHtml As Object 

'at this point oHtml is the HTML body 
With oHtml 
    If CBool(.getElementsByClassName("searchRecord").Length) Then 
     'there is at least one element with the 'searchRecord' class 
     'make room for all of the array elements 
     ReDim vSKUs(1 To .getElementsByClassName("searchRecord").Length, 1 To 5) 
     For iDIV = 1 To .getElementsByClassName("searchRecord").Length 
      With .getElementsByClassName("searchRecord")(iDIV - 1) 
       'get the SKU from the anchor, otherwise skip to next 
       If CBool(.getElementsBytagName("a").Length) Then 
        With .getElementsBytagName("a")(0) 
         vSKUs(iDIV, 1) = .href 
         'get the title from the anchor's image 
         If CBool(.getElementsBytagName("img").Length) Then 
          vSKUs(iDIV, 2) = .Title 
         End If 
        End With 
        'get up to 3 prices 
        If CBool(.getElementsByClassName("prodPrice").Length) Then 
         For pp = 1 To .getElementsByClassName("prodPrice").Length 
          If pp > 3 Then Exit For 'don't get more than 3 
          vSKUs(iDIV, pp + 2) = .getElementsByClassName("prodPrice")(pp - 1).innertext 
         Next pp 
        End If 
       End If 
      End With 
     Next iDIV 
    End If 
End With 

With Worksheets("Sheet1") 
    .Range("A2").Resize(UBound(vSKUs, 1), UBound(vSKUs, 2)) = vSKUs 
End With 

希望，你可以看到使用.Length存在支票如何通过集合迭代一起工作。请记住，集合中的元素具有基于1的长度，但是基于0的索引;例如如果有与searchRecord的类名6个div元素然后所述集合具有一个.Length而是通过被索引为。 A .Length of 表示集合中没有任何内容。