top of page

Como Importar e Manipular Dados com VBA Excel

No último post, aprendemos como criar automações personalizadas no Excel usando VBA. Hoje, vamos dar mais um passo e explorar como importar dados de diferentes fontes e manipulá-los usando VBA. Este tutorial é ideal para quem deseja automatizar a importação de dados de arquivos externos e realizar transformações em larga escala.


Por que Importar Dados com VBA?


Importar dados manualmente pode ser uma tarefa demorada e propensa a erros. Usar VBA para automatizar esse processo traz vários benefícios:

  1. Economia de Tempo: Importações automatizadas economizam horas de trabalho manual.

  2. Precisão: Reduz o risco de erros humanos ao importar dados.

  3. Consistência: Garante que os dados sejam importados e formatados de forma consistente todas as vezes.

  4. Flexibilidade: Permite importar dados de várias fontes e formatos, como arquivos CSV, bancos de dados, e até a web.


Importando Dados de um Arquivo CSV

Vamos começar com um exemplo simples: importar dados de um arquivo CSV.

Passo a Passo:

Preparando o Ambiente:

  • Certifique-se de que a guia "Desenvolvedor" esteja habilitada no Excel.

  • Abra o Editor VBA (Alt + F11).


Criando o Script VBA:

  • Insira um novo módulo no Editor VBA.

  • Copie e cole o seguinte código:

Sub ImportarDadosCSV()
    ' Declaração das variáveis
    Dim ws As Worksheet
    Dim arquivoCSV As String
    Dim linha As String
    Dim dados As Variant
    Dim i As Long
    
    ' Definindo a planilha de destino
    Set ws = ThisWorkbook.Sheets("DadosImportados")
    ws.Cells.Clear ' Limpa dados antigos
    
    ' Caminho do arquivo CSV
    arquivoCSV = "C:\caminho\para\seu\arquivo.csv"
    
    ' Abrindo o arquivo CSV
    Open arquivoCSV For Input As #1
    
    ' Lendo o arquivo linha por linha
    i = 1
    Do Until EOF(1)
        Line Input #1, linha
        dados = Split(linha, ",")
        ws.Cells(i, 1).Resize(1, UBound(dados) + 1).Value = dados
        i = i + 1
    Loop
    
    ' Fechando o arquivo
    Close #1
    
    ' Aplicando formatação
    ws.Columns.AutoFit
End Sub

Executando o Script:

  • No Editor VBA, clique em "Executar" (ícone de play) ou pressione F5.

  • O script importará os dados do arquivo CSV especificado e os inserirá na planilha "DadosImportados".


Importando Dados de um Banco de Dados

Agora, vamos importar dados de um banco de dados usando uma conexão ODBC.

Passo a Passo:

Configurando a Conexão ODBC:

  • Certifique-se de que você tenha um driver ODBC configurado para o banco de dados.

  • Obtenha as credenciais de acesso ao banco de dados.

Criando o Script VBA:

  • Insira um novo módulo no Editor VBA.

  • Copie e cole o seguinte código:

Sub ImportarDadosBancoDeDados()
    ' Declaração das variáveis
    Dim ws As Worksheet
    Dim conexao As Object
    Dim recordset As Object
    Dim sql As String
    Dim linha As Long
    
    ' Definindo a planilha de destino
    Set ws = ThisWorkbook.Sheets("DadosImportados")
    ws.Cells.Clear ' Limpa dados antigos
    
    ' Conexão com o banco de dados
    Set conexao = CreateObject("ADODB.Connection")
    conexao.Open "Driver={SQL Server};Server=seu_servidor;Database=sua_base;UID=seu_usuario;PWD=sua_senha;"
    
    ' Definindo a consulta SQL
    sql = "SELECT * FROM sua_tabela"
    
    ' Executando a consulta
    Set recordset = conexao.Execute(sql)
    
    ' Importando os dados
    linha = 1
    Do Until recordset.EOF
        ws.Cells(linha, 1).Resize(1, recordset.Fields.Count).Value = recordset.GetRows
        linha = linha + 1
        recordset.MoveNext
    Loop
    
    ' Fechando a conexão
    recordset.Close
    conexao.Close
    
    ' Aplicando formatação
    ws.Columns.AutoFit
End Sub

Executando o Script:

  • No Editor VBA, clique em "Executar" (ícone de play) ou pressione F5.

  • O script importará os dados da tabela especificada e os inserirá na planilha "DadosImportados".


Manipulando Dados Importados

Após importar os dados, você pode usar VBA para manipulá-los. Aqui está um exemplo de como aplicar filtros e cálculos:

Filtrando Dados:

Sub FiltrarDados()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("DadosImportados")
    
    ' Aplicando filtro
    ws.Range("A1").AutoFilter Field:=1, Criteria1:="Valor"
End Sub

Aplicando Cálculos:

Sub CalcularTotais()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("DadosImportados")
    
    ' Adicionando uma fórmula de soma na última linha
    ws.Cells(ws.Rows.Count, "B").End(xlUp).Offset(1, 0).Formula = "=SUM(B2:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row & ")"
End Sub

Para mostrar o potencial da ferramenta VBA no Excel, segue um vídeo bem legal mostrando como importar dados da internet para consulta de CEP.




Conclusão

Importar e manipular dados no Excel usando VBA pode parecer complexo, mas com prática, você pode automatizar processos e melhorar significativamente sua eficiência. No próximo post, exploraremos como gerar relatórios dinâmicos e gráficos avançados usando VBA.


Convite à interação: Se você gostou deste post, não se esqueça de se inscrever no blog e deixar seus comentários. Quais são suas maiores dificuldades com importação de dados no Excel? Quais temas você gostaria de ver aqui? Até a próxima!

3 visualizações0 comentário

Comments


bottom of page