PEGAR SPAN DE HTML USANDO VBA
Enviado: Sex Abr 10, 2020 4:55 pm
Estou cirando um programa para poder automatizar a pesquisa do status do IRPF... porém, eu nao tenho muito conhecimento de HTML, na verdade nao sei nada sobre...
Pesquisando um pouco, consegui fazer o login no site da receita federal. e acessar a pagina que eu preciso pegar a informação, agora nao sei como fazer...
meu código para acessar o site está assim
E eu preciso que no Label lblStatus do meu formulário, apareça o Status da declaração de cada ano...
o Elemento que eu preciso é o que está na foto anexa.
Pesquisando um pouco, consegui fazer o login no site da receita federal. e acessar a pagina que eu preciso pegar a informação, agora nao sei como fazer...
meu código para acessar o site está assim
Código: Selecionar todos
Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer
Dim cpf, pass, codAce As String
Sub Login()
Dim oHTML_Element As IHTMLElement
Dim sURL As String
On Error GoTo Err_Clear
sURL = "https://cav.receita.fazenda.gov.br/autenticacao/login/index"
cpf = FormDados.txtCpf
codAce = FormDados.txtCodAce
pass = FormDados.txtPass
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.Navigate sURL
oBrowser.Visible = True
Do
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE
Set HTMLDoc = oBrowser.Document
HTMLDoc.all.NI.Value = cpf
HTMLDoc.all.CodigoAcesso.Value = codAce
HTMLDoc.all.Senha.Value = pass
For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
Next
sURL = "https://www3.cav.receita.fazenda.gov.br/extratodirpf/"
oBrowser.Navigate sURL
oBrowser.Visible = True
Err_Clear:
Resume Next
End Sub
o Elemento que eu preciso é o que está na foto anexa.