Dúvida exemplo Consulta CNPJ - Webservice - API Pública com Resposta em JSON

Tópico dividido - Tópico da origem da dúvida

FabioPaes, boa noite!

Tentei aplicar sua solução para busca de atividades secundárias, mas creio não ter entendido completamente.
Onde devo incluir o código? De que forma esses dados constarão no formulário "Um campo único ou vários se necessário"?
Pode me ajudar?

o Código a baixo deve ser colocado logo apos ser passado os valores para os campo.


'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


Nesse exemplo, todas as Atividades Secundárias ficarão na variavel varAtSec, uma em baixo da OUtra.


Se quer add uma a uma em uma tabela, deve incluir o Código de Inclusão na tabela no loca da varAtSec

Consegui!

Obrigado pela ajuda FabioPaes.

FabioPaes, bom dia!

Tive um problema ao executar a função em alguns computadores com versão 64bit do Office.
É possível ajustar para ambas as versões ou não tem jeito?

Grato!

Não consigo abrir!

Windows 10 Pro, Office 2016 Pro, 64bits.

Alguém pode me ajudar?

estou em busca deste procedimento também, mas não consegui resolver.

achei algo que pode ajudar
http://www.redeaccess.com.br/viewtopic.php?t=1030