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.
Estou fazendo um rotina simples VBA para fazer a captura dos dados do cartão CNPJ para preenchimento de um contrato com os dados do cartão.
Já consegui fazer a consulta para abrir o cartão, mas não consigo identificar no código qual elemento buscar para o retorno dos dados que preciso.
Preciso que seja no IE e a consulta no site da RFB.
Segue abaixo o código:
Sub AcessaRFB()
Dim ie As Object
Dim Vpesq As String
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "http://servicos.receita.fazenda.gov.br/Servicos/cnpjreva/Cnpjreva_Solicitacao.asp"
Do While ie.Busy
Loop
Vpesq = InputBox("Informar CNPJ:")
ie.Visible = True
ie.Document.getElementsByName("cnpj").Item.InnerText = Vpesq
MsgBox ("CAPTCHA confirmada ?")
ie.Document.getElementsByclassName("btn btn-primary").Item.Click
MsgBox ("continuar?")
'''Até aqui funciona,
'''Vresult = ie.Document.getElementbyid("principal").innertext
'''MsgBox ("Vresult ?")
ie.Quit
End Sub
Desde já agradeço os conhecimentos adquiridos neste Fórum.
Editado pela última vez por marciosfs em Ter Jul 14, 2020 7:45 pm, em um total de 1 vez.
Pelo que vi os campos/informações do cartao estão nas tag "b".
Testei um laço FOR pra percorrer todas as tag "b" e exibir os conteudos de texto.
basta trocar a parte de exibir por captura das informações em posições especificas do loop (usei a varivel "i" pra contar)
i = 1
For Each elemento In ie.Document.getElementsBytagName("b")
Debug.Print i & " " & elemento.innertext
i = i + 1
Next
1 REPÚBLICA FEDERATIVA DO BRASIL
2 CADASTRO NACIONAL DA PESSOA JURÍDICA
3 01.246.693/0001-60
4 MATRIZ
5 COMPROVANTE DE INSCRIÇÃO E DE SITUAÇÃO CADASTRAL
6 10/02/1984
7 INSTITUTO DE ASSISTENCIA DOS SERVIDORES PUBLICOS DO ESTADO DE GOIAS - IPASGO
8 IPASGO
9 DEMAIS
10 84.11-6-00 - Administração pública em geral
11 Não informada
12 111-2 - Autarquia Estadual ou do Distrito Federal
13 AV PRIMEIRA RADIAL
14 586
15 QD F LT AREA
16 74.820-300
17 ST PEDRO LUDOVICO
18 GOIANIA
19 GO
20
21 (062) 2382-501
22
23 ATIVA
24 28/07/1998
25
26 ********
27 ********
28 13/07/2020
29 18:30:04
30 1/1
Era exatamente isso que eu precisava.
MUITO OBRIGADO por compartilhar seu conhecimento.
ABS.
Raygsson escreveu: ↑Seg Jul 13, 2020 6:49 pm
Pelo que vi os campos/informações do cartao estão nas tag "b".
Testei um laço FOR pra percorrer todas as tag "b" e exibir os conteudos de texto.
basta trocar a parte de exibir por captura das informações em posições especificas do loop (usei a varivel "i" pra contar)
i = 1
For Each elemento In ie.Document.getElementsBytagName("b")
Debug.Print i & " " & elemento.innertext
i = i + 1
Next
1 REPÚBLICA FEDERATIVA DO BRASIL
2 CADASTRO NACIONAL DA PESSOA JURÍDICA
3 01.246.693/0001-60
4 MATRIZ
5 COMPROVANTE DE INSCRIÇÃO E DE SITUAÇÃO CADASTRAL
6 10/02/1984
7 INSTITUTO DE ASSISTENCIA DOS SERVIDORES PUBLICOS DO ESTADO DE GOIAS - IPASGO
8 IPASGO
9 DEMAIS
10 84.11-6-00 - Administração pública em geral
11 Não informada
12 111-2 - Autarquia Estadual ou do Distrito Federal
13 AV PRIMEIRA RADIAL
14 586
15 QD F LT AREA
16 74.820-300
17 ST PEDRO LUDOVICO
18 GOIANIA
19 GO
20
21 (062) 2382-501
22
23 ATIVA
24 28/07/1998
25
26 ********
27 ********
28 13/07/2020
29 18:30:04
30 1/1