Excel Vba - 如何驗證html子元素是否存在

Question

我正在製作excel文件以從網站獲取產品價格並進行比較。到目前爲止，我設法解析產品名稱和價格。但問題是當產品有售，然後它有如下所示1的不同元件是正常的2有售 1.

<div class="price"> 
    <span>$87</span> 
</div> 

<div class="price"> 
    <del>100</del> 
    <ins>80</ins> 
</div> 

我doning

Set hPrice = hPord(r).getElementsByClassName("price") 
for loop  
ActiveSheet.Range("H6").Offset(r, 0).Value = hPrice(0).innerText 

這項工作正常產品價格但罰款產品返回「100 80」 我嘗試使用

If Not hPrice(0).getElementsByTagName("ins") Then  

這給了錯誤，當「INS」不存在， pleae讓我知道如何驗證子標籤是有或沒有，或者你有更好的選擇

感謝

Answer 1

你已經忘記添加索引<ins>標記到您的線路。這可能是這樣的：

If Not hPrice(0).getElementsByTagName("ins")(0) Then 

換句話說

，讓你需要有這條線的產品價格值：

hPrice(0).getElementsByTagName("ins")(0).innerText 

Answer 2

嘗試樣品下面

If Not hPrice.getElementsByTagName("ins")(0) Then

OR

If Not hPrice.getElementsByTagName("ins") Then