VBA, чтобы получить HREF внутри DIV

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:recrutamento@sgp.pt?subject=Resposta Anuncio Net-                                   Empregos: TI SQL e VB.net" target="_blank">**recrutamento@sgp.pt**
<div></div>
<div></div>
</a>
</font></div>

`

, поэтому я попробовал следующее, что делает все на этой странице, кромедля адреса электронной почты, который я хотел:

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

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

Может ли это быть, потому что элемент "a" является частью Div?(responseDiv) Спасибо

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

Надеюсь, это поможет вам ^ _ ^