Excel使用getElements提取特定文本

Question

vba编程新手，希望能在我遇到困难的小程序上获得一些帮助。我想要的代码是从元素中提取特定的数据。所以在这个例子中，我想提取每个人的电话号码。

我可以得到代码来打印元素中的所有数据，但我只想提取指定的信息而不是元素中的所有内容。任何帮助都是极好的。

Set Elements = IE.Document.getElementById("member-items").getElementsByTagName("p") 

    'Get information 
    r = 0 
    c = 0 
    For Each Element In Elements 
     If Element.innerText Like "phone" Then 
      Sheet1.Range("A1").Offset(r, c).Value = Element.innerText 
      Debug.Print Element.innerText 
      r = r + 1 
     End If 
    Next Element 

Answer 1

好吧我想通了。我没有意识到文本是CAP敏感的。因此，我没有使用“手机”，而是使用了带有“P”的“手机”，代码运行得非常完美。罗基错误。 =）。希望这可以帮助其他任何新手。我用下面的代码代替：

For Each Element In Elements 
     If InStr(Element.innerText, "Phone") Then 
      Sheet1.Range("a1").Offset(r, c).Value = Element.innerText 
      Debug.Print Element.innerText 
      r = r + 1 
     End If 
    Next Element