VBA仅使用Onlick单击Internet Explorer [关闭]

Posted 2023-03-05

【中文标题】VBA仅使用Onlick单击Internet Explorer [关闭]

【英文标题】：VBA to click Internet Explorer with ONLY Onlick [closed]

【发布时间】：2018-12-19 07:50:06

【问题描述】：

因为不工作？ 请帮我！ :(

html CODE

Dim i As Long 

Dim IE As Object

Dim Doc As Object

Dim objElement As Object

Dim objCollection As Object

Dim buttonCollection As Object

Dim valeur_heure As Object


' Create InternetExplorer Object

Set IE = CreateObject("InternetExplorer.Application")

' You can uncoment Next line To see form results

IE.Visible = True

' Send the form data To URL As POST binary request

IE.Navigate "http://Mysite/Home/"

Dim elements As Object, element As Object

For Each element In IE.Document.getElementsByTagName("img")

    If element.innertext = "r/std/icons/combi64.png" Then
         element.Focus
        element.Click
        Exit For
    End If

Next

  Set IE = Nothing

【问题讨论】：

1) 请正确格式化和编辑您的代码 2) 将 HTML 插入为 sn-p 而不是图像（使用提供的工具） 3) 使您的问题清晰明了 4) 描述 的作用t work 的意思。错误信息？这些是什么？哪几行？你尝试了什么？

据我所知，您也没有发送 POST 二进制请求。而且我在提供的图片中看不到 r/std/icons/combi64.png。

作为新手使用tour 并阅读有关Asking 的信息。

【参考方案1】：

我的意思很简单

IE.Navigate "http://Mysite/Home/"
While IE.Busy Or IE.readyState < 4: DoEvents: Wend
IE.Document.getElementsByClassName("tbi")(1).Click

它是一个单一的元素。不需要 For 循环。没有 innerText 检查。如上图所示。请注意，您还需要等待页面加载；为此，我添加了While IE.Busy Or IE.readyState < 4: DoEvents: Wend。

---

点击图标然后

IE.Document.querySelector("img[src='r/std/icons/combi64.png']").Click

但我不确定该图标是否可点击。

【讨论】：

我使用您的代码，但不起作用。看图错误。我还使用一个断点来等待页面加载。

试试上面的 E.Document.getElementsByClassName("tbi")(1).Click 。请了解如何使用问题下方的编辑关键字将信息编辑到您的问题中。失败的只是 IE.Document.querySelector("img[src='r/std/icons/combi64.png']").Click

工作！！！仅使用 IE.Document.getElementsByClassName("tbi")(1).Click 谢谢谢谢谢谢:)