PEGAR DADOS WEBBROWSER

FNANDOOD 31/01/2011 21:07:01
#363958

USO ASSIM E FUNCIONA COM CERTEZA.

[txt-color=#007100][ô]IMPORTANTE: REFERENCIAR MICROSOFT OBJECT HTML LIBRARY[/txt-color]

Dim htmle As HTMLElementCollection
[txt-color=#007100][ô]PODE SER ASSIM
[ô]For Each htmle In WebBrowser1.Document.getElementsByTagName([Ô]TD[Ô])[/txt-color]
For Each htmle In WebBrowser1.Document.getElementsByTagName([Ô]SPAN[Ô])

MsgBox htmle.innerText [ô]TTITULO E DADOS
MsgBox htmle.outerText

[ô]RESULTADO: IMPRIME O TITULO NO FINAL SAI <br> OS DADOS SAEM SEM O <BR>, PODE-SE DEFINIR TITULO E DADOS USANDO O MID()
[ô]MsgBox htmle.innerHTML

[ô]RESULTADO: SAI <SPAN> DADOS....<SPAN>
[ô]MsgBox htmle.outerHTML

[ô]RESULTADO: IMPRIME O TÍTULO E OS DADOS SEM NENHUMA TAG, LIMPO TIPO
[ô]MsgBox htmle.outerText

[ô]MsgBox htmle.innerText
Next
End Sub

ALTAIR148 31/01/2011 21:40:11
#363961

FNANDOOD, realmente funciona. Mas ainda tem outra coisa que preciso.
Exemplo esses dados eu quero importa-los, ou seja, quero pegar o CNPJ da nf-e que esta no webbrowser e coloca-lo no campo CNPJ no form, isso tudo automatico, e quero gravar todos os produto da NF-e, cada produto em cada registro, depois em uma consulta eu agrupo todos eles na mesma NF-e.

Tem como?

Obrigado
Abraços.

FNANDOOD 01/02/2011 08:52:02
#363981

Vode pode jogar os dados em variáveis Strings, e fazer verificação com Select Case ou If

ex:


if htmle.innertext= [Ô]Dados do Emitente:[Ô] then

if htmle.innerText = [Ô]CNPJ:[Ô] then
[ô]então o próximo resultado será o número do cnpj do emitente:
validacnpj(html.innertext)
se for cnpj entao grava no campo cnpj emitente.

e por ai vai....

ALTAIR148 01/02/2011 09:31:10
#363985

FNANDOOD, muito obrigado pelo retorno, dessa forma ai que vc me disse, ele me retornna apenas o nome do campo e não os dados, o exemplo abaixo aparece uma msgbox com o nome: CNPJ, apenas o nome e não os dados, estou fazendo da seguinte forma:



Dim htmle As HTMLElementCollection
[ô]PODE SER ASSIM
[ô]For Each htmle In WebBrowser0.Document.getElementsByTagName([Ô]TD[Ô])
For Each htmle In WebBrowser0.Document.getElementsByTagName([Ô]SPAN[Ô])



If htmle.innerText = [Ô]CNPJ[Ô] Then
[ô]então o próximo resultado será o número do cnpj do emitente:
MsgBox htmle.innerText
End If

Next


Obrigado.