Notifications
Clear all

Ajuda Conexao SQL + Looping

3 Posts
2 Usuários
0 Reactions
1,031 Visualizações
(@ninjaloco)
Posts: 2
New Member
Topic starter
 

Boa tarde,

Pessoal estou criando uma planilha, que tera uma conexão externa via SQL, e mude de abas continuamente.
No Office 2007 eu já fiz isto varias vezes e sempre deu certo, na propriedades da conexão eu habilitava para atualizar em segundo plano (Background refresh) e colocava para atualizar automaticamente a cada 5 minutos,e usava uma macro para mudar as abas conforme codigo abaixo:

Sub Start()

    Sheets("Geral (2)").Select
    Application.Wait (Now + TimeValue("00:00:10"))
' muda
    Sheets("Geral (3)").Select
    Application.Wait (Now + TimeValue("00:00:10"))

Call Looping

Sub Looping()
' Looping infinito
Call Start

End Sub

No entanto no Office 2010 estou tento dificuldades, pois ou o excel atualiza a conexão, ou ele executa a macro, tentei então colocar a atualização tambem na macro, mas mesmo assim não deu certo.

Sub Start()

    Sheets("Geral (2)").Select
    Application.Wait (Now + TimeValue("00:00:10"))
' muda
    Sheets("Geral (3)").Select
    Application.Wait (Now + TimeValue("00:00:10"))
'atualiza dados
	ActiveWorkbook.RefreshAll

Call Looping

Sub Looping()
' Looping infinito
Call Start

End Sub

Não sei mais o que tentar para resolver isso.

 
Postado : 06/11/2013 2:57 pm
(@ninjaloco)
Posts: 2
New Member
Topic starter
 

*Nos exemplos acima eu esqueci de finalizar a macro com "End Sub" mas na planilha eu usei corretamente fechando.

 
Postado : 07/11/2013 5:42 am
mykemeris
(@mykemeris)
Posts: 8
Active Member
 

tente assim
Sub Start()

Application.ontime (Now + TimeValue("00:05:00"),"start"

ActiveWorkbook.RefreshAll

end sub

efetuara um refresh a cada 5 minutos

Se ajudei clique em agradecer

 
Postado : 12/01/2014 9:29 am