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

Excel使用getElements提取特定文本

1 个答案: