Captura de CNAE com ponto e vírgula na descrição encerra macro
Enviado: 27 Jun 2022 às 00:39
Prezados boa noite!
Tenho uma macro que busca no site da Receita Federal (https://servicos.receita.fazenda.gov.br ... .asp?cnpj=) as informações de um CNPJ.
Dentre várias informações, a macro captura a relação de todas as Atividades Secundárias (CNAEs) da empresa.
Observei que quando a descrição de um dos CNAE apresenta um "ponto e vírgula" a macro encerra o processo sem apresentar mensagem de erro.
Segue parte do Código VBA com esta função e um exemplo de CNPJ com esta particularidade.
https://servicos.receita.fazenda.gov.br ... 4066000106
Tenho uma macro que busca no site da Receita Federal (https://servicos.receita.fazenda.gov.br ... .asp?cnpj=) as informações de um CNPJ.
Dentre várias informações, a macro captura a relação de todas as Atividades Secundárias (CNAEs) da empresa.
Observei que quando a descrição de um dos CNAE apresenta um "ponto e vírgula" a macro encerra o processo sem apresentar mensagem de erro.
Segue parte do Código VBA com esta função e um exemplo de CNPJ com esta particularidade.
https://servicos.receita.fazenda.gov.br ... 4066000106
Código: Selecionar todos
Desde já agradeço a ajuda!Private Function RetornaAtvSec(ByVal list As Variant) As Variant
Dim i As Integer
Dim x As Integer
Dim key As String
Dim listAux As ArrayList
Set listAux = New ArrayList
On Error GoTo 0
x = UBound(list)
'Percorre lista inteira
For i = 0 To UBound(list)
'Procura pelo cabeçalho
If list(i) = "CÓDIGO E DESCRIÇÃO DAS ATIVIDADES ECONÔMICAS SECUNDÁRIAS" Then
i = i + 1
'Pega todas as atividades secundárias
If i = x Then Stop
If list(i) <> "Não informada" Then
While list(i) <> ""
listAux.Add Array(Split(list(i), " - ")(0), Split(list(i), " - ")(1))
i = i + 1
Wend
End If
End If
Next
RetornaAtvSec = listAux.Items
End Function