Notifications
Clear all

Macro p Atualizar conexão e depois atualizar tabela dinâmica

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

Boa Tarde Pessoal,

Trabalho com muitas planilhas que possuem conexão de dados com uma fonte externa.
Gostaria de fazer uma macro para atualizar a conexão e em seguida as tabelas dinâmicas (a fonte de dados desta planilha é a conexão externa).
Eu criei uma macro da seguinte forma:

Sub Atualização()
' Atualização Macro
' Atualizar conexão
ActiveWorkbook.Connections("Conexão").Refresh
End Sub
' atualizar tabelas

Private Sub Worksheet_Activate()

ActiveSheet.PivotTables("Atendimentos CHAT").PivotCache.Refresh
ActiveSheet.PivotTables("Tab Atendente").PivotCache.Refresh
ActiveSheet.PivotTables("SLA").PivotCache.Refresh
ActiveSheet.PivotTables("atendimentos hora").PivotCache.Refresh
Sheets("Menu").Select
ActiveWorkbook.RefreshAll

End Sub

Porém, como a conexão demora um pouco para atualizar a tabela dinâmica não atualiza.
Será que existe outra forma de fazer estas atualizações?

Ainda não fiz o curso de vba rsrs
mas será que tem algum comando que informa que após a atualização da conexão as informações das tabelas são atualizadas?

 
Postado : 19/01/2016 12:27 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde,

Não sei se vai servir para você...
Utilizo a seguinte instrução para atualizar uma consulta da Web:

Sheets("Dados").[A1].QueryTable.Refresh BackgroundQuery:=False

Só após a atualização dos dados a macro continua a execução.

Abraço

 
Postado : 19/01/2016 3:12 pm