Question

我不熟悉html但是我想点击一个按钮并从vba执行此操作。我阅读了一篇关于如何从vba在HTML网页上搜索信息的教程，然后我根据我的情况尝试了它，但它有点不同。

html代码的有趣部分如下：html code

我首先确定了一个我可以轻松访问的部分。我认为具有唯一名称结果的表单是一个良好的开端。

然后在这种形式下只出现一次类名＆＃34; resultRow＆＃34;所以我也把它用在了我的优势上。我现在在右表中，看到无论我点击的元素是什么，onlcick结果都是一样的。所以我选择随机项目（编号4）并点击它。

不幸的是我做错了什么。

这是我的代码

 Sub my_code (ByVal faul As String)

Dim IE As Object
Dim IEAPuMA As Object
Dim side As String
Dim IEDok As HTMLDocument
Dim Element As IHTMLElement
Dim Form As HTMLFormElement

Set IEAPuMA = CreateObject("InternetExplorer.Application")
IEAPuMA.Visible = False
side = "my_website"
IEAPuMA.navigate side
Do While IEAPuMA.readyState <> 4
Loop

IEAPuMA.Visible = False
Set IEDok = IEAPuMA.document
Do: Loop Until IEDok.readyState = "complete"
'Schleife über alle Elemente der Seite
Set Form = IEDok.all("result")
Form.getElementsByClassName("resultRow").Item(4).Click


End Sub

有人可以帮帮我吗？也许可以提出一种更简单的方法来实现这一目标？

Answer 1

Form.getElementsByClassName("resultRow")

将返回具有匹配类的所有元素的集合，因此它将为您提供tr个元素的集合。如果您想访问下面的各个td元素，则需要以下内容：

Dim tr, tds

Set tr = Form.getElementsByClassName("resultRow")(0)'<<first match

Set tds = tr.getElementsByTagName("td")

tds(4).click '<< fifth cell

如何加入项目td并单击它

1 个答案: