getElementsByTagName(“a”)的高效搜索方法

时间:2014-03-09 09:02:33

标签: excel-vba html-parsing excel-2010 vba excel

我有1000行URL和我正在使用的每一行:

For i = 2 to last row
Set links = html.getElementsByTagName("a")
For Each lnk In links
If lnk.innertext = "something" then
do something
end if
Next lnk
Next i

一种方法,我猜,并且作为Sid的代码在How to access innerText of HTML tag inside a <TD> tag显示的参考

For loop (the one for each lnk),几乎是这种情况下唯一的方法还是更快的有效方法? MATCH可能仅用于工作表范围,但无论如何都要尝试。它运行没有错误,什么也不做,并且与For loop方法的时间相同。我认为由于缺乏适当的解决方案,它没有做任何事情:

If Not IsError(Application.Match("something", Range("A1:A100"), 0))  'normally used for ranges
If Not IsError(Application.Match("something", links.innertext, 0))  'what I tried

0 个答案:

没有答案