Notifications
Clear all

Consulta Web - QueryTables.Add - Trava Geral

4 Posts
2 Usuários
0 Reactions
1,038 Visualizações
(@milenamoreno)
Posts: 51
Trusted Member
Topic starter
 

Boa noite a todos!

Com a ajuda do pessoal daqui, consegui desenvolver uma rotina que busca dados na internet e salva em uma pasta. São cotações de empresas listadas na bovespa, então são várias empresas. A macro funciona, porém após baixar a cotação de umas 7 empresas, mais ou menos, o excel trava geral, de modo que só consigo fechá-lo através do Ctrl+Alt+Del. Percebi que sempre trava a barra de tarefas está indicando "buscando dados da internet", então deduzi que trava na consulta Query.

Alguém sabe o motivo desse travamento? Postei a minha planilha no site, se alguém puder dar uma olhadinha, basta salvar a pasta no DESKTOP da sua máquina e rodar a macro, na aba "Parâmetros".
http://www.sendspace.com/file/llgugu

Desde já agradeço,

Feliz Ano Novo para todos!!!!

 
Postado : 02/01/2013 6:28 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Aparentemente deve-se a alguma restrição do site (consegui na primeira "rodada" ir até 22).
Alguns sites consideram acessos continuos como um ataque (hack, ckrack ou virus) e bloqueiam a porta.

 
Postado : 04/01/2013 9:16 am
(@milenamoreno)
Posts: 51
Trusted Member
Topic starter
 

Você conseguiu baixar 22 planilhas? Aqui nunca passou de 10, porém aqui é wireless. Vou tentar na outra máquina que é rede à cabo. Muito obrigado!

 
Postado : 04/01/2013 6:33 pm
(@milenamoreno)
Posts: 51
Trusted Member
Topic starter
 

Reinaldo, Bingo!

Coloquei um atraso de 10 segundos após terminar uma empresa, e foi até o final!!!!
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

Muitissimo obrigada! :D

 
Postado : 05/01/2013 12:48 pm