Extrair Dados de Um Banco de Dados Para o Excel Usando Macros

DĂȘ um Like ❱❱0
DĂȘ um Like ❱❱0

Extrair dados de um banco de dados para o Excel usando macros Ă© uma poupança de tempo. Em vez de extrair manualmente os dados, tĂȘm macros do Excel fazer o trabalho para vocĂȘ. Criar a macro, escrever o cĂłdigo, em seguida, voltar a reproduzir a macro sempre que vocĂȘ deseja extrair os dados. A macro Ă© criado usando o Visual Basic for Applications - VBA, uma linguagem de programação que estĂĄ embutido no Excel. O poder do VBA permite importar dados de qualquer banco de dados externo para o Excel.

Como Extrair Dados de Um Banco de Dados

  • Pressione Alt e F11 a partir da pĂĄgina de Excel para o qual vocĂȘ gostaria de importar os dados. Isso abre o Editor do Visual Basic VBE.
  • Clique em Inserir e depois em MĂłdulo. Isso abre uma janela em branco para o seu cĂłdigo.
  • Digite o cĂłdigo para o seu banco de dados de extração para a janela em branco. Por exemplo, o cĂłdigo a seguir extrai dados de um banco de dados Access e importa-lo em uma planilha:

Sub proSQLQuery1 ()
Dim varConnection
Dim varSQL

---------------------------------------------------------------------------------

Range("A1").CurrentRegion.ClearContents

varConnection = "ODBC; DSN=MS Access Database;DBQ=C:\test.mdb; Driver={Driver do Microsoft Access (*.mdb)}"

varSQL = "SELECT tbDataSumproduct.Month, tbDataSumproduct.Product, tbDataSumproduct.City FROM        tbDataSumproduct"

With ActiveSheet.QueryTables.Add(Connection:=varConnection, Destination:=ActiveSheet.Range("A1"))
.CommandText = varSQL
.Name = "Query-39008"
.Refresh BackgroundQuery:=False
End With

  • Pressione F5 para executar o cĂłdigo.
  • Clique em Arquivo, clique em Fechar e voltar para Microsoft Excel no menu Arquivo.

 

Edivaldo. Louco por funçÔes e fĂłrmulas de Excel, adoro fazer planilhas e compartilhar meus conhecimentos com as pessoas. Seja bem-vindo. Eu amo fazer isso e quero compartilhar com vocĂȘ!

Teremos o maior prazer em ouvir seus pensamentos

      Deixe um ComentĂĄrio

      Tudo Excel
      Logo