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.

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 » Seg Jul 13, 2020 11:16 am

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
Colaborador
Colaborador
Mensagens: 59
Registrado em: Sex Jan 31, 2020 8:06 pm

Re: Captura dos dados do cartão CNPJ

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



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 » Ter Jul 14, 2020 7:38 pm

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