Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Captura dos dados do cartão CNPJ[RESOLVIDO]

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.
marciosfs
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qua Nov 27, 2019 3:32 pm

Captura dos dados do cartão CNPJ[RESOLVIDO]

Mensagem por marciosfs »

Bom dia,

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:

Código: Selecionar todos

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.


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.


Raygsson
Manda bem
Manda bem
Mensagens: 118
Registrado em: Sex Jan 31, 2020 8:06 pm

Re: Captura dos dados do cartão CNPJ

Mensagem por Raygsson »

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


marciosfs
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qua Nov 27, 2019 3:32 pm

Re: Captura dos dados do cartão CNPJ

Mensagem por marciosfs »

Boa Noite Raygsson

Era exatamente isso que eu precisava.
MUITO OBRIGADO por compartilhar seu conhecimento.

ABS. :D
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


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