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""