davi eu somente fiz uma macro que pega coisa da web
para saber o local exato do que vc quer use de inspeção do firefox

ele vai te levar para a linha exata do código

Boa noite Edcronos.

Obrigado pela ajuda! Porém, o campo que eu preciso eh este campo:
<a href=""mailto:[email protected]">[email protected]</a>"

Os outros campos eu já fiz a inspeção pelo meu browser, mas este é o unico que não esta vindo.

No arquivo anexo, poderá verificar no código.

Muito Obrigado pela ajuda e continuamos na batalha.

Att.

Davi Soares

Bom dia a todos.

Estou tentando utilizar o seguinte comando:

Sheets("BD2").Range("Q2").Value = IE.Document.getElementsByTagName("mailto").value

E o mesmo não me valores algum e também tentei:

Sheets("BD2").Range("Q2").Value = IE.Document.all.Item("mailto:").Value

Acho que agora eu me perdi mais ainda!!kkk

Muito Obrigado a todos!

olha, isso depende que pagina para pagina
o codigo vba não é o problema é como a pagina foi escrita

vc falou
<a href=""mailto:[email protected]">[email protected]</a>"

o "a" e as referencias "tr" e outros indicam o campo exato
nem sei como se chama
vc pode usar as referencias exatas e pegar todo o valor dessa linha, para então a partir do vba conseguir o trecho exato que vc quer

tem codigo que pega o valor exato procurado tipo o "mailto:" mas tem que se fazer uma busca mais exata

esse topico tem bastante coisa a respeito
http://www.tomasvasquez.com.br/forum/vi ... IhdgNxNwd4

desculpe não poder ajudar mais, mas nem sei como eu fiz a minha macro

Não sei se é amelhor maneira mas experimente:
Altere:

'este campo a seguir no qual não me traz nenhuma resultado.
Sheets("BD2").Range("Q2").Value = IE.Document.all.Item("@").Value

Para:

 'este campo a seguir no qual não me traz nenhuma resultado.
        For Each element In IE.Document.getElementsByTagName("a")
            If element.getAttribute("href")(5) Then
                'y = Mid(element.innerText, 8, Len(element.innerText) - 6)
                Sheets("BD2").Range("q2") = element.innerText
            End If
        Next

Reinaldo, boa tarde.

Antecipadamente, agradeço pela ajuda.

Infelizmente não consegui obter nenhum resultado na célula Q2.

Surgiram algumas dúvidas:

- Após a condição if, a próxima linha começa com aspas simples, tornado-a como comentário. Quando eu removo a mesma, devo declarar Y como object?
- A variável element devo declara-la como Object?

Desculpe as minhas duvidas um tanto quanto básicas, porém sou um entusiasta na área.

Agradeço a todos que disponibilizaram uma parcela de tempo até o momento para me ajudar.

Att.

Davi Soares.

A linha comentada, ficou por preguiça de apaga-la, foi um teste apenas.
ao invés de element, pode utilizar o que já tem declarado TDelement.
Agora no modelo enviado, e no teste que fiz retornou o email de alguns,pçois nem todos há esse valor.
Veja no seu modelo

Reinaldo, mais uma vez muito obrigado pela ajuda.

Irei estudar o código e tentar entender onde eu errei.

Agradeço a todos que disponibilizaram tempo para ler e tentar ajudar a resolver o meu problema.

Forte abraço a odos e boas festas.

Grato.

Davi