Página 1 de 1

Fazer dowload periodico de arquivos - INTERNET EXPLORER

Enviado: Dom Jun 16, 2019 6:59 am
por paulolion
Senhores,

Bom dia!

Mexo apenas com banco, mas preciso de uma solução VBA e agradeceria se me sugerissem modelos ou para esse caso talvez haja até solução pronta.

Então, a Receita Federal disponibiliza trimestralmente vários arquivos no site http://receita.economia.gov.br/orientac ... licos-cnpj

A solução teria que:

Rodar mensalmente (é possível agendar?)
Checar se houve atualização no arquivo (tem um campo data lá)
Verificar quantos arquivos tem lá (atualmente são 20, mas daqui a três meses podem ser 21)
E,por último, fazer o dowload de todos para um local

É uma solução complexa?

Agradeço as ajudas!

Re: Fazer dowload periodico de arquivos - INTERNET EXPLORER

Enviado: Dom Jun 16, 2019 10:22 pm
por rodrigolis01
Amigo Lion, boa noite..

Segue modelo:

Sub AbrePg()

Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")

ie.Navigate "www.bing.com" 'Substituir pelo link do site que deseja
ie.Visible = True

End Sub


Forte Abraço

Rodrigo Nascimento

Re: Fazer dowload periodico de arquivos - INTERNET EXPLORER

Enviado: Seg Jun 17, 2019 10:05 pm
por paulolion
Obrigado!! Mas, como posso:

1- Clicar no link;
2- Setar um diretório;
3- Clicar no botão ok?

Re: Fazer dowload periodico de arquivos - INTERNET EXPLORER

Enviado: Ter Jun 18, 2019 10:09 pm
por paulolion
Alguém pfv??

Re: Fazer dowload periodico de arquivos - INTERNET EXPLORER

Enviado: Qua Jun 19, 2019 10:13 am
por PRMPOKER
Prezados, Bom dia!

Caro paulolion, tudo bem?

A sua necessidade envolve sim, uma certa complexidade de análise e execução. Eu desenvolvo soluções como esta em meu trabalho como freelancer. Caso tenhas interesse, só me chamar em algum dos meus contatos na assinatura.

Um abraço!