VBA Excel在HTMLObject中獲取文本

Question

我知道這對你們中的某些人來說非常簡單。但是我一直在深入互聯網，我找不到答案。我需要得到的公司名稱是裏面的

tbody tr td a eBay-tradera.com

和

td class="bS aR" 970,80

/td /tr /tbody

<tbody id="matrix1_group0"> 
<tr class="oR" onmouseover="onMouseOver(this, false)" onmouseout="onMouseOut(this, false)" onclick="onClick(this, false)"> 
<td class="bS">&nbsp;</td> 
<td> 
<a href="aProgramInfoApplyRead.action?programId=175&amp;affiliateId=2014848" title="http://www.tradera.com/" target="_blank"> 

    eBay-Tradera.com 

</a> 
</td> 
<td class="aR"> 
<a href="/pan/aProgramInfoApplyRead.action?programId=175&amp;affiliateId=2014848" title="/pan/aProgramInfoApplyRead.action?programId=175&amp;affiliateId=2014848">175</a></td> 
<td class="bS aR">0</td><td class="bS aR">0</td><td class="bS aR">187</td> 
<td class="aR">0,00%</td><td class="bS aR">124</td> 
<td class="aR">0,00%</td> 
<td class="bS aR">26</td> 
<td class="aR">20,97%</td> 
<td class="bS aR">32</td> 
<td class="aR">60,80</td> 
<td class="aR">25,81%</td> 
<td class="bS aR">5&nbsp;102,00</td> 
<td class="bS aR">0,00</td> 
<td class="aR">0,00</td> 
<td class="bS aR"> 

    970,80 

</td> 
</tr> 
</tbody> 

這是我的代碼，在這裏我只是試圖讓一個標籤開始與但我不能得到那個工作要麼

在

Set TDelements = document.getElementById("matrix1_group0").document.getElementsbytagname("a").innerHTML 
r = 0 
C = 0 

For Each TDelement In TDelements 
Blad1.Range("A1").Offset(r, C).Value = TDelement.innerText 
r = r + 1 
Next 

由於事先我知道，這可能是簡單的。但我希望其他人可能會遇到同樣的問題，這對他們也有幫助。 「r = r + 1」的原因是因爲該列表中有更多的公司。我只是想讓它儘可能簡單。再次感謝！

Answer 1

您需要在表中指定的元素位置。易趣似乎在混淆類名，所以我們不能依賴那些一致的。我通常也不會依靠他們的表格索引中的元素是一致的，但我沒有看到任何解決方法。

我假設這是你正在尋找

<tbody id="matrix1_group0"> 
    <tr class="oR" onmouseover="onMouseOver(this, false)" onmouseout="onMouseOut(this, false)" onclick="onClick(this, false)"> 
    <td class="bS">&nbsp;</td> 
    <td> 
     <a href="aProgramInfoApplyRead.action?programId=175&amp;affiliateId=2014848" title="http://www.tradera.com/" target="_blank"> 
     eBay-Tradera.com <!-- <=== You want this? --> 
     </a> 
    </td> 
    <!-- ... --> 
    </tr> 
    <!-- ... --> 
</tbody> 

我們可以忽略文檔的其餘部分作爲表元素有一個ID的HTML文檔。總之，我們假設

.getElementById("matrix1_group0").getElementsByTagName("TR") 

將返回按它們的外觀排序的html行對象的集合。

Set matrix = document.getElementById("matrix1_group0") 
Set firstRow = matrix.getElementsByTagName("TR")(1) 
Set firstRowSecondCell = firstRow.getElementsByTagName("TD")(2) 
traderaName = firstRowSecondCell.innerText 

你當然可以內聯把這一切看作

document.getElementById("matrix1_group0").getElementsByTagName("TR")(1).getElementsByTagName("TD")(2).innerText 

，這將使調試困難。此外，如果網頁以不同的格式呈現給您，那麼這將不起作用。 Ebay故意讓你難以從數據中提取數據以確保安全。