Question

我需要你的帮助： - ）

我需要在HTML代码中检查标签是否存在＆＃34;提交＆＃34; ID。我这样做：

If Not oie.Document.getelementbyid("submit") Is Nothing Then
MsgBox oie.Document.getelementbyid("submit")
Else: MsgBox "not found"
End If

但是这样的检查只有在＆＃34;提交＆＃34; ID在代码中，如果代码中没有，则错误＆＃34;运行时错误424.对象需要＆＃34;。

如何在ID＆＃34;提交＆＃34;时检查是否存在ID并进行DO WHILE循环。出现在代码中？

Answer 1

我对处理HTML元素并不熟悉，但是这样的事情可能会让你完成工作吗？

Dim hElement as variant 'Declare it as the actual object name unlike what I've done, if you're using early binding'

On error resume next
Set hElement =
oie.Document.getelementbyid("submit")
On error goto 0

If not (hElement is nothing) then

或者，也许您可以遍历页面上的HTML元素集合，并检查他们的ID /其他属性，这些属性对于提交＆＃39;您正在寻找的元素？

类似的东西：

Dim hElement as variant
Dim SubmitExists as boolean
SubmitExists = false

For each hElement in oie.document.HTMLelements

SubmitExists = (hElement.ID = "Submit")

Next hElement

我并不是说会有一个名为“HTMLelements＆＃39;和一个名为＆＃39; ID＆＃39; （我把它们作为一个例子来证明这个原理）。检查集合和属性的实际名称的最佳位置是Microsoft的文档或对象资源管理器。

检查HTML中是否存在ID

1 个答案: