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

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

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.

Muito bom cara!

Obrigado por disponibilizar...

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

Mto obrigado

Olá a todos

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

Fábio Paes, obrigado pelo complemento.

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