Este fórum está sendo desativado

[CleuberZago]

Boa tarde, pessoal!

Preciso de uma ajuda de vocês pra montar um código pra consulta de algumas informações sobre o CA de alguns EPI's. Tenho um controle onde consta alguns dados e também o número do CA de diversos EPI's, e gostaria de inserir uma rotina pra que o excel busque alguns dados referentes aquele CA.

Os dados podem ser extraidos do site http://consultaca.com/NUMERO_CA
Substitua "NUMERO_CA" pelo número do CA o qual você deseja que seja pesquisado, por exemplo: CA 15649: https://consultaca.com/15649.


Coloquei em anexo um exemplo bem simples do que tem de ser feito.

[Mikel]

Cleuber, boa tarde.

Entrei no link exemplo que você postou, para avaliar a situação e fiquei com algumas dúvidas:

• Quais seriam os dados que você gostaria de carregar do site?
  1. Um dos campos que você deseja carregar é o Fabricante. Porém, o que você quer do Fabricante: CNPJ ou Razão Social?
  2. Outro campo que é desejável o preenchimento é a Situação CA que, no link exemplo esta como Válida. Então o que seria o último campo da sua planilha, nomeado como Situação?
• Além do modelo disponibilizado, já existe alguma rotina iniciada?
• Se existe, esta utilizando Microsoft Internet Control ou Selenium VBA para integração VBA/Web?

Fico no aguardo de seu retorno para darmos uma olhada nessa rotina.

Abraços e excelente semana.

[CleuberZago]

Oi Mikel, obrigado pelo retorno...
Então, vamos por partes:

Quais seriam os dados que você gostaria de carregar do site?
1) Dados do Fabricante (Razão Social apenas) - Célula D2;
2) Situação do CA (Campo Situação: no site, apenas se é válido ou não) - Célula E2;
3) Data de validade do CA - Célula F2.

Um dos campos que você deseja carregar é o Fabricante. Porém, o que você quer do Fabricante: CNPJ ou Razão Social?
Razão Social.

Outro campo que é desejável o preenchimento é a Situação CA que, no link exemplo esta como Válida. Então o que seria o último campo da sua planilha, nomeado como Situação?
Célula E2

Além do modelo disponibilizado, já existe alguma rotina iniciada?
Não apenas alguns controles manuais onde todo CA é consultado no site em dado período de tempo para consulta, e os dados são preenchidos manualmente.

Se existe, esta utilizando Microsoft Internet Control ou Selenium VBA para integração VBA/Web?
Não existe.

A célula G2 será preenchida através de fórmula, fazendo o cálculo da dade de vencimento do CA - a data de hoje e informando quantos dias faltam para aquele CA vencer. Existe essa informação no site também, fica a seu critério se inclui na importação ou não...

É possível que esses dados sejam atualizados automaticamente, talvez usando Workbook_Open()?

[Mikel]

Cleuber, boa noite.

Entendi todo o processo. Então vou fazer assim, vou utilizar o Microsoft Internet Control, pois ele é nativo no Windows 8 Inferior. Como no Windows 10, o navegador padrão é o Microsoft Edge, não sei dizer se existe essa biblioteca para uso.

Vou dar uma olhada entre hoje e amanhã e te retorno, ok.

Abraços e bom descanso.

[CleuberZago]

Tranquilo, amigo... Brigadão pela força, bom descanso.

[Mikel]

Cleuber, bom dia.

Como prometido, concluí a estrutura da conexão com o site e a captura das informações das CA´s existentes na lista informada.

Segue o modelo para avaliação:

ConsultaCaEpiWeb.xlsm

Quero aproveitar pra retificar uma informação. Nas mensagens acima, eu havia comentado se não sabia se existia ou não a biblioteca Microsoft Internet Control no Windows 10, devido ao novo browser da Microsoft. Bem, dei uma olhada nessa dúvida e a biblioteca ainda existe e funciona. Então, se precisar usar essa planilha em um Windows 10, vai funcionar sem problemas.

Dúvidas, é só avisar.
Abraços e excelente dia.

[CleuberZago]

Excelente Mikel! Exatamente como precisava...

Ao chamar a macro, a mesma aciona o IE para realizar a consulta e extrair os dados, existe alguma forma de fazer isso em background, de forma que a janela não seja exibida durante a execuçã da rotina?

EDIT: Alterei a exibição da janela dentro do código, porém por se tratar de uma variável que depende do IE, realmente é melhor deixa-la sendo exibida para saber o progresso da rotina...

O complica do que propus é que se tiver uma lista com 100 CA's, serão 100 telas abertas uma a uma no IE, e isso a deixaria quase inviável...

[Mikel]

Cleuber, boa tarde.

Bom saber que o modelo atendeu a sua necessidade.

Sobre deixar a janela oculta, existe uma linha de comando chamada objIE.Visible. Para ocultar o navegador, basta alterar o valor de True para False.

Sobre a questão de ver a evolução das consultas, pode ser utilizado um formulário apenas com uma ProgressBar.

Tenho um modelo que usa um controle Label, simulando um ProgressBar. Se quiser, da pra adaptar ao modelo.

No mais, forte abraços.

[CleuberZago]

Bom dia, Mikel!

Poderia me disponibilizar esse modelo?

[Mikel]

Cleuber, bom dia.

Claro que posso disponibilizar sim, mas vai ter que esperar pra segunda-feira.

Estou migrando alguns arquivos para as nuvens, utilizando o Mega e, no momento, essa solução do Userform com ProgressBar esta armazenado nos diretórios da empresa onde trabalho.

Segunda-feira eu adapto e compartilho o novo modelo, tudo bem?

Bom final de semana e forte abraço.

[CleuberZago]

Perfeito, Mikel! Mais uma vez obrigado...

[Mikel]

Cleuber, bom dia.

Cara, fiz a adaptação, conforme combinado.

Veja se vai lhe atender.

ConsultaCaEpiWebComProgressBar.xlsm

Dúvidas, a disposição.

[Drakk3]

Boa Noite, estes arquivos estão disponíveis para downloads ?

[Mikel]

Drakk3, boa noite.

Cara, não sei porque, mas os links foram removidos dos anexos.

Eu reupei e vou enviar um MP para os Administradores do Fórum.

Abraços!!!!

[CleuberZago]

Opa, Mikel... Acabei esquecendo de voltar aqui pra dizer que deu tudo certo. Brigadão

[rodrigoncar]

Olá pessoal, bom dia!
Teriam como me enviar este arquivo? Vai me ajudar bastante.

Abraço!