3

我有一个脚本可以解析 HTML 页面以查找具有指定 ID 的元素。我需要的是获取父节点（实际上，我需要向上 2 个父节点），以便我可以循环遍历表中的所有链接以找到我想要的链接，或者我可以解析整个 HTML表找到我想要的链接。

Sub testmacro()

'Constants
Const pdlID = "Id of the element"
Const urlbase = "what ever url"

'containers
Dim web As Object
Dim prompt As String
Dim pdlTbl As Object
Dim pdllink As Object


'Get URL
prompt = InputBox("Paste the URL here: ", "URL")

'create IE instance
Set web = CreateObject("InternetExplorer.Application")
web.Visible = True
web.Navigate prompt

Do While web.Busy Or web.ReadyState <> 4
    DoEvents
Loop

'get IE document
Set pdlTbl = web.Document
Set pdlTbl = pdlTbl.getelementbyid(pdlID)

'Get parent node of element

web.Quit
Set web = Nothing

End Sub

我试图找到有关获取父节点的信息，但我找不到任何关于定位父节点的帮助。

此外，我在尝试循环浏览文档中的元素时遇到了重大问题。我从该站点获取了许多代码示例，它们都返回相同的错误“对象不支持此方法”或类似的东西。它突出了循环中的第一行，看起来像这样。

for each a in pdltbl

next a

无论我尝试使用哪个标签或查看的元素类型，都会出现此错误（pdlID 引用 TD 元素以供参考）

基本上，我只是希望能够在表格中搜索以找到具有特定 URL 的链接（基于提示中的 url）

4

1 回答 1

3 
Set pdlTbl = pdlTbl.getelementbyid(pdlID)
Set parentParent = pdlTbl.parentElement.parentElement

获取表中的所有链接：

Set allLinks = tbl.getElementsByTagName("a")
For Each a in allLinks
    '...
Next a
于 2013-09-27T15:59:30.003 回答