使用 getelementsbyclassname vba 7 使用 access 2007 单击链接

Question

我已连接到 Internet Explorer 网页，但我似乎无法在访问中使用 vba7 “单击”特定链接。我已经尝试了很多选项，例如 getelementsbyclassname。以下是网页的源代码：

<tr> 
 <td valign=bottom class="formbutton" align=center colspan=2>
  <A href="default.asp" LANGUAGE=javascript onclick="return webDialogBox_wfsubmit('BUTTON',12293,0);">view</A>
 </td>
</tr>

如您所见，它没有名称，也没有可用的超链接，此链接的目的是提交填写好的表格并在新网页上为其指定一个唯一编号。 你能帮我在 VBA 7 for Access 2007 中找到一个有效的 vba 代码吗？ 非常感谢！

Answer 1

假设您已经有一个指向 InternetExplorer 对象的指针，以下应该可以工作。

Public Sub ClickElement()
    'Assuming you already have an IE object
    Dim Elements As Object
    Dim Element As Object

    'get all 'A' tags, which the hyperlink is part of
    Set Elements = IE.Document.getElementsByTagName("a")

    For Each Element In Elements
        'I believe the element you want to click appears as 'View' on screen
        If Element.InnerText = "View" Then
            'Usually a good idea to give the element focus and
            'possibly fire the OnClick event, but sometimes not needed
            Element.Focus
            Element.Click
            Element.FireEvent ("OnClick")
            Exit For
        End If
    Next
End Sub