Israel.sn

Boa noite! Vi algumas postagens sobre o assunto mais ainda me pego sem conseguir realizar essa bentida atualização automaticamente. atualmente estou puxando os dados para a Planilha de Dados com a Macro a seguir. Funciona perfeitamente. Agora necessito que com esta mesma macro eu consiga atualizar as tabelas dinâmicas que estão em outra planilha. Alguém me da uma Luz, por favor! Private Sub btExecutar_Click() Dim accdb As New Connection Dim RS As New Recordset Dim FD As ADODB.Field Dim SQL As String Dim Col As Integer 'Abre a conexão com o banco accdb.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=G:\CS\MEC\Import\Reintegração\Reintegra\back_end\Reintegra_be.accdb;Persist Security Info=False" SQL = "Select * from Produtividade" Col = 1 RS.Open SQL, accdb If Not RS.EOF Then For Each FD In RS.Fields Sheets("Base_Dados1").Cells(1, Col).Value = FD.Name Col = Col + 1 Next FD Col = 1 Sheets("Base_Dados1").Cells(2, Col).CopyFromRecordset RS End If Sheets("Base_Dados1").UsedRange.EntireColumn.AutoFit RS.Close accdb.Close Set accdb = Nothing Set RS = Nothing Set FD = Nothing MsgBox "Importação Conlcuida com Sucesso!" End Sub valeu""