Boa noite chook,

Bacana as planilhas. Precisei uma vez mas acabei optando em não utilizar isso não me lembro o porque (do cnpj).

Cara, Deixa esse código da linha 50 a 68 da sub CNPJ2 do módulo2:

.Document.all("botaoConfirmar").Click

Do While .Busy Or _
 .ReadyState <> 4
 DoEvents
 Loop

For Each tr In .Document.getElementsByTagName("tr")
If tr.innertext = "Erro na Consulta - Esclarecimentos adicionais.  " Then GoTo reset
Next

'Aguarda até a página ser carregada totalmente----
        Do While objIE.LocationURL <> "http://www8.dataprev.gov.br/SipaINSS/pages/hiscre/hiscreInicio.xhtml"
        Loop
        
        If objIE.LocationURL = "http://www8.dataprev.gov.br/SipaINSS/pages/hiscre/hiscreInicio.xhtml" Then
        Do While .Busy Or .ReadyState <> READYSTATE_COMPLETE:
        Loop
        End If

Codigozinho ruim de ler... sem indentação adequada.
Daí pra baixo segue o exemplo.

Vou dormir agora.
Boa noite.
Abraço

Bernardo, incluí o código que me falou, mas ainda estou com dificuldades na edição do restante do código. Não entendo as relações entre os dados das páginas com o local que irá colocar os dados.

                If InStr(tr.Cells(0).innertext, "NOME EMPRESARIAL") > 0 Then
                    Plan1.Cells(3, 1) = tbl.Rows(0).Cells(0).innertext

Podes me auxiliar na leitura do código acima?

Abraços!!

Cara, gostei das planilhas.

Vou ajustar a do CNPJ primeiro, já que está funcionando e vou adaptar para o Extrato de Pagamento da Previdência.

Depois posto aqui a do CNPJ primeiro e aí posto o outro se conseguir.

Qualquer coisa da o grito.
Abraço

Novidades?

Cara, quase finalizando a do CNPJ.
Mas estou querendo digitar o Captcha no Userform.

Relativamente fácil.

Pra adaptar depois é tranquilo.

Joia!! Avisa quando conseguir! Principalmente o extrato de pagamento! Se puder colocar alguns comentários no código ajudará muito no desenvolvimento de outras! Vlw

Olá Chook!

veja nos meus topicos que eu faço esse scrape (puxar dados de site) utilizando o navegador padrão do windows (nao precisa especificar o navegador).

estou também tentando usar o controle WebBrowser direto na celula sem precisar ser num userform.

mas nao sei o suficiente pra te ajudar, só essa dica mesmo, rogo pra que lhe ajude.
um abraço.

Perdi muitos cabelos mas sem sucesso.
=[

Com muito pesar desisti de inserir a imagem do captcha no formulário, porém fiz de uma maneira que também ficou legal. Entretanto, como a Microsoft é abençoada em questão de compatibilidade, pode dar umas divergências. Caso não consiga ver o Captcha, insira a página "fazenda.gov.br" nas configurações de modo de compatibilidade do Internet Explorer.

Hoje a noite eu coloco ela no ar.

Qualquer coisa da o grito.
Abraço

Que ótima notícia!! Conseguiu analisar o outro arquivo? Do extrato da dataprev?

Bom dia chook,

Final de semana corrido... nem parei em casa...
Não tem muita funcionalidade. Mas funciona normal.

Fiz o upload por pelo meu site pois pode ser útil a contabilidade também.
http://dpobjetivo.com.br/index.php/down ... pj-receita
Só clicar em "Download"

Vou olhar o da previdência agora.

Qualquer coisa da o grito.
Abraço

O extrato previdenciário foi bem mais fácil. Segue link.

http://dpobjetivo.com.br/index.php/down ... pagamentos

Qualquer coisa da o grito.
Abraço

Conseguiu Bernardo?

Cara, aqui funciona.
O.o

Você testou?

Bom dia,
estou com uma dúvida. Digito o CNPJ no FORM ou na planilha? Pra mim está apresentando erro no trecho abaixo:

If InStr(tr.Cells(0).innertext, "NÚMERO DE INSCRIÇÃO") > 0 Then
                                'Número CNPJ
                                formCNPJ.txtCNPJ.Value = _
                                .Trim(ArrumarTexto(ArrumarCampo(Mid(tbl.Rows(0).Cells(0).innertext, 23, 18))))
                                'Tipo de Inscrição
                                formCNPJ.txtTipoInscricao.Value = _
                                .Trim(ArrumarTexto(ArrumarCampo(Mid(tbl.Rows(0).Cells(0).innertext, 43))))
                                'Data Abertura
                                formCNPJ.txtAbertura.Value = _
                                .Trim(ArrumarTexto(ArrumarCampo(Mid(tbl.Rows(0).Cells(2).innertext, 18))))
                                GoTo Proximo
                            End If