我试图在Excel VBA中检索href属性和文本值

时间:2016-08-30 17:46:15

标签: excel vba excel-vba

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

我正在尝试搜索文字" / director / *"在HTML中,然后检索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

1 个答案:

答案 0 :(得分:0)

您似乎正在混淆锚元素的.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