vba - vba 在 div 中检索 href

Question

我想在具有此 html 的网页中检索电子邮件地址：

 <div id="responseDiv" style="background-color:#EBECED;width: 450px;">
    <font style="letter-spacing: 0pt" size="3" face="Arial" 
    color="#336699">
    &nbsp;&nbsp;&nbsp;  
    <a href="mailto:[e-mail]?subject=Resposta Anuncio Net-                                   Empregos: TI SQL e VB.net" target="_blank">**[e-mail]**
    <div></div>
    <div></div>
    </a>
    </font></div>

到目前为止，我已经尝试了以下方法来传递该页面中的所有内容，但我想要的电子邮件地址除外：

Dim dataEle As Object, vElemento As String, tit as string
Set dataEle =Doc.getElementsByTagName("p") ' also tried with element "a"

For Each element In dataEle
  tit = element.getAttribute("href") 
  MsgBox (tit)
Next

可能是因为元素“a”是 Div 的一部分吗？(responseDiv)

标签： vbams-access

Answer 1

我确实测试了与您的 html div 字符串相关联的代码，其中包含许多电子邮件，如附件图像中所示，以确保您。

只要记住，如果那个 html div 字符串是常量字符串，这个解决方案就会像你想要的那样工作：

Private Sub CmdRetrieveHrefInsideDiv_Click()
Dim test As String
Dim frstWrd As String
test = Text1.Value
frstWrd = Split(test, ":")(4)
Dim X As Integer
X = InStr(frstWrd, "?")
Dim MyEmail As String
MyEmail = Split(frstWrd, "?")(0)
MsgBox MyEmail
End Sub

我希望这可以帮助你^_^