VBA单击放置在html表格中的图像

Question

我一直在尝试编写单击已放置在 HTML 表中的图像的 excel VBA 代码。我试图点击的图像只有源代码。

我尝试了 4 种不同的方法来点击图片，但都没有奏效。谁能帮我写VBA代码？

1.

Dim HTMLDoc As Object
Set HTMLDoc = IE.document

Dim ElementCol As Object
Set ElementCol = HTMLDoc.getElementsByTagName("td")
For Each link In ElementCol
    If link.innerHTML = "excel.jpg" Then
        link.Click
        Exit For
    End If
Next link

2.

Dim HTMLDoc As Object
Set HTMLDoc = IE.document

Dim i As Object
For Each i In HTMLDoc.images
    If i.src = "../images/excel.jpg" Then
        i.Click
    Exit for
    End If
Next i

3.

Dim HTMLDoc As Object
Set HTMLDoc = IE.document

Dim img As Object
For Each img In HTMLDoc.all
    If img.innerHTML = "excel.jpg" Then
        img.Click
        Exit For
    End If
Next img

4.

Dim HTMLDoc As Object
Set HTMLDoc = site.document

Dim tdCollection As Object
Set tdCollection = HTMLDoc.all
    For Each cell In tdCollection
        If cell.ID = "singleXLS" Then
            cell.Click
            Exit Sub
        End If
    Next

这是 HTML 代码。

    <tbody><tr>

<td id="singleXLS" onclick="javascript:gCognosViewer.getRV().viewReport('spreadsheetML');" return="" true;"="" style="cursor:hand;" valign="middle" align="center"> 
<img src="../images/excel.jpg" border="0"></td> 

<td>&nbsp;</td>

按照建议，这是我正在使用的代码。

Sub click_img()
    Dim URL As String
    Dim HTMLDoc As Object
    Set site = CreateObject("internetexplorer.application")
    URL = Range("B2").Value  'There is an URL in cell B2

    site.navigate URL
    site.Visible = True

    While site.busy
        Wend
    Do Until site.readyState = 4
        DoEvents
    Loop


    Set HTMLDoc = site.Document
    HTMLDoc.getElementById("singleXLS").getElementsByTagName("img")(0).Click 'Error is here
End Sub

Answer 1

而不是这个：

Set HTMLDoc = site.Document
HTMLDoc.getElementById("singleXLS").getElementsByTagName("img")(0).Click 

试试：

Dim s, i

Set HTMLDoc = site.Document
Set s = HTMLDoc.getElementById("singleXLS")
If Not s Is Nothing Then
    Set i = s.getElementsByTagName("img")(0)
    If Not i Is Nothing Then
        i.Click
    Else      
        Debug.Print "Img not found!" 
    End If
Else
    Debug.Print "singleXLX not found!"
End If

更多代码，但它会帮助您确定确切的问题