MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


4 participantes

    Consulta CNPJ - Webservice de Dados de CNPJ - API Pública com Resposta em JSON

    rfnunes01
    rfnunes01
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 05/09/2016

    Consulta CNPJ - Webservice de Dados de CNPJ - API Pública com Resposta em JSON Empty Consulta CNPJ - Webservice de Dados de CNPJ - API Pública com Resposta em JSON

    Mensagem  rfnunes01 17/5/2018, 02:28

    Há muito tempo vejo alguns membros sedentos em busca de alguma forma de conseguir consultas pelo CNPJ entao estudando bastante encontrei um site onde disponibiliza uma API publica onde vc consulta os dados referentes ao cnpj com esses parâmetro nomedosite.com.br/v1/cnpj/[cnpj] ou seja dessa forma nomedosite.com.br/v1/cnpj/27865757000102.

    Só que após a consulta ele exibe uma página com os dados em JSON:

    Como interpretar o código e extrair os dados através do VBA?

    Isso foi meio complicado de se fazer KKKK

    Mas vamos lá!

    Através de muitas pesquisa encontrei em site americano uma classe em VBA  onde, analisa e  cria um objeto json em VBA  e através dessa classe criei variáveis onde fazem a requisição dos dados e obtém resposta em json assim fazendo a extração dos dados e os campos do formulário recebem os dados da busca

    Espero que ajudem vocês galera

    Não esquecem de dar os créditos kkkkk

    O arquivo de consulta cnpj vai estar anexado .....

    *OBS: Após a extração do arquivo abra o consultacnpj.accdb e aguarde um momento pois o aplicativo irá fazer algumas configurações automáticas como:


    1. Instalar referencias que faltam para o funcionamento da busca do CNPJ

    2. É necessário ter conexão com a interne para realizar as buscas pois se não tiver conexão o aplicativo não irá abrir




    Ok pessoal e sucesso a todos Razz Razz
    Anexos
    Consulta CNPJ - Webservice de Dados de CNPJ - API Pública com Resposta em JSON AttachmentConsultaCNPJ.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (376 Kb) Baixado 617 vez(es)


    .................................................................................
    Richael Fernando Nunes

    wild007, João Terra, leonsc80 e projetos290 gostam desta mensagem

    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Consulta CNPJ - Webservice de Dados de CNPJ - API Pública com Resposta em JSON Empty Re: Consulta CNPJ - Webservice de Dados de CNPJ - API Pública com Resposta em JSON

    Mensagem  FabioPaes 17/5/2018, 09:40

    Muito Bom o Exemplo amigo, estávamos precisando desse Exemplo de Tradução de arquivos .json.

    Para complementar, Caso precisem da Atividade Secundária que pode ter um ou Vários Itens, basta Add essa Rotina A Função que Extrai o Texto:

    Código:
    'Pega as Atividades Secundarias
    For x = 1 To o.Item("atividades_secundarias").Count
        varAtSec = varAtSec & o.Item("atividades_secundarias").Item(x).Item("code") & " - " & o.Item("atividades_secundarias").Item(x).Item("text") & vbNewLine
    Next
    Na Variável varAtSec Terá Todas as Atividades Secundárias (Codigo - Descrição da Atiavidade)
    Variavel x é do tipo Integer
     varAtSec é do Tipo String


    Obs: Irei dar uma Editada no Titulo para facilitar a Localização do Conteúdo.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    diogodmc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 07/03/2017

    Consulta CNPJ - Webservice de Dados de CNPJ - API Pública com Resposta em JSON Empty Re: Consulta CNPJ - Webservice de Dados de CNPJ - API Pública com Resposta em JSON

    Mensagem  diogodmc 17/5/2018, 11:50

    Muito bom cara!

    Obrigado por disponibilizar...
    rfnunes01
    rfnunes01
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 05/09/2016

    Consulta CNPJ - Webservice de Dados de CNPJ - API Pública com Resposta em JSON Empty Re: Consulta CNPJ - Webservice de Dados de CNPJ - API Pública com Resposta em JSON

    Mensagem  rfnunes01 17/5/2018, 12:09

    Obrigado FabioPases eu estava a procura de uma rotina para para pegar todas as atividades

    Mto obrigado


    .................................................................................
    Richael Fernando Nunes
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    Consulta CNPJ - Webservice de Dados de CNPJ - API Pública com Resposta em JSON Empty Re: Consulta CNPJ - Webservice de Dados de CNPJ - API Pública com Resposta em JSON

    Mensagem  Alvaro Teixeira 21/5/2018, 08:26

    Olá a todos

    Richael Nunes Parabéns!
    Excelente exemplo, obrigado pela partilha.

    Fábio Paes, obrigado pelo complemento.

    cheers
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    Consulta CNPJ - Webservice de Dados de CNPJ - API Pública com Resposta em JSON Empty Re: Consulta CNPJ - Webservice de Dados de CNPJ - API Pública com Resposta em JSON

    Mensagem  Alvaro Teixeira 21/5/2018, 08:30

    Olá a todos, recordo as Regras do Fórum

    1. Tenha paciência com quem coloca aqui as suas duvidas.
    2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
    3. Não colocar diversas vezes a mesma dúvida.
    4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
    5. Retorne sempre se deu certo, esse retorno é muito importante.
    6. Respeite toda a equipe Staff e demais membros deste fórum.
    7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
    8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
    9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
    10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
    11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
    12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
    13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
    14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks").
    15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.


    Já existe um tópico aberto com dúvida, deste tema:
    https://www.maximoaccess.com/t33361-duvida-exemplo-consulta-cnpj-webservice-api-publica-com-resposta-em-json

    Abraço bons estudos com o MaximoAccess Wink

    Conteúdo patrocinado


    Consulta CNPJ - Webservice de Dados de CNPJ - API Pública com Resposta em JSON Empty Re: Consulta CNPJ - Webservice de Dados de CNPJ - API Pública com Resposta em JSON

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 06:05