我正在尝试检索Excel VBA中的href属性和文本值

下面的代码在JAVA帮助得到我的答案：

Elements aElement = doc.getElementsByTag("a"); for (Element e:aElement) { if(e.attr("href").contains("director/")) { companyInfo.setName(e.text().trim()); break; } } 

我正在尝试从以下链接中检索Director名称： https : //www.zaubacorp.com/company/SHRI-SMARAN-ELECTRICAL-PRIVATE-LIMITED/U31900MH2014PTC255346

我试图在HTML中search文本“/ director / *”，然后检索Director名称并将其发布到Excel： GANGARAM SHREEPAT PATIL

这是我的代码：

 Set H3 = HTMLdoc.getElementsByTagName("a") For Each Line In H3 If Line.innerText Like "*/director/*" Then temp = Line.innerText Sheet2.Range("C" & x).Value = temp End If Next 

Answer 1

看起来你正在混合锚元素的.href和.innerText属性。

  For Each Line In H3 If cbool(instr(1, Line.href, "/director/", vbtextcompare)) Then Sheet2.Range("C" & x).Value = Line.innerText x = x + 1 End If Next