ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

PEGAR SPAN DE HTML USANDO VBA

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
GuiGarnize
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Sex Abr 10, 2020 12:00 am

PEGAR SPAN DE HTML USANDO VBA

Mensagem por GuiGarnize » 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

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
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.

Imagem
Anexos
Sem título.png
Sem título.png (211.62 KiB) Exibido 5812 vezes



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder