VBA不會點擊gif嵌套在標籤

Question

我遇到了一個問題，我的宏可以在Excel 2013上工作，但不能在Excel 2010上工作。我試圖點擊一個在網頁上的GIF，但由於某種原因它不「看」它。

我使用的HTML如下：

<a href="#" style="color:#009900;"> 
<img src='images/CheckMarkGreen.gif' border=0 alt='Select This Item'> 
</a> 

，我使用的VBA是：

Dim imgElm 

For Each imgElm In objIE.Document.getElementsByTagName("img") 
    If imgElm.innertext = "images/CheckMarkGreen.gif" Then 
    imgElm.Click 
    Exit For 
    End If 
Next 

任何幫助，將不勝感激！

Answer 1

圖像元素不具有的innerText（也許你的意思的innerHTML？）

也許更容易檢查alt屬性：

If imgElm.getAttribute("alt") = "Select This Item" Then 
    imgElm.Click 
    Exit For 
End If 

Answer 2

Dim imgElm as IHTMLElement 

For Each imgElm In objIE.Document.getElementsByTagName("img") 
    If imgElm.getAttribute("src") = "images/CheckMarkGreen.gif" Then 
     imgElm.Click 
     Exit For 
    End If 
Next 

OR

Dim imgElm as HTMLImg 

For Each imgElm In objIE.Document.getElementsByTagName("img") 
    If imgElm.src = "images/CheckMarkGreen.gif" Then 
     imgElm.Click 
     Exit For 
    End If 
Next