Ir ao conteúdo
  • Cadastre-se

Excel Macro para atualiza Tabela Dinâmica


Posts recomendados

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

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...