📊 SQL no Excel – Post 1: Seu Primeiro SELECT no Excel

 👋 Bem-vindo(a) ao primeiro post da nossa série de SQL no Excel.

Se você nunca usou SQL antes, não se preocupe: vamos aprender juntos, passo a passo, com projetos práticos que você poderá aplicar direto no Excel.

Hoje vamos criar nosso primeiro projeto em SQL dentro do Excel, aprendendo o comando mais básico e essencial: SELECT.

---

🎯 Projeto do Dia: Listando Clientes com SQL no Excel

1. Cenário

Imagine que você tem uma planilha no Excel chamada Clientes.xlsx, com a seguinte tabela:

ID	Nome	Cidade	Idade
1	João Silva	São Paulo	32
2	Maria Souza	Rio de Janeiro	27
3	Carlos Lima	Belo Horizonte	41
4	Ana Santos	Curitiba	36

Nosso objetivo é listar todos os clientes da planilha usando SQL dentro do Excel.

---

2. Como preparar o ambiente

👉 Antes de rodar SQL no Excel, precisamos conectar a planilha como se fosse um banco de dados:

1. Abra o Excel.

2. Pressione ALT + F11 para abrir o Editor do VBA.

3. No menu, clique em Inserir → Módulo.

4. Cole o código abaixo.

---

3. Código VBA com SQL

Sub ListarClientes()

    ' Declaração de variáveis
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim ws As Worksheet

    ' Criar conexão com o Excel como banco de dados
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    
    ' Caminho do arquivo Excel (ajuste para o seu arquivo)
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
    
    ' Escrevendo a SQL para buscar todos os registros
    strSQL = "SELECT * FROM [Clientes$]"
    
    ' Executando a consulta
    rs.Open strSQL, conn
    
    ' Criando uma nova aba para o resultado
    Set ws = ThisWorkbook.Sheets.Add
    ws.Name = "Resultado_SQL"
    
    ' Copiando o resultado para a aba nova
    ws.Range("A1").CopyFromRecordset rs
    
    ' Fechando conexões
    rs.Close
    conn.Close
    
    MsgBox "Consulta concluída com sucesso!", vbInformation

End Sub

---

4. Explicando o Código (linha por linha) 📝

1. Dim conn As Object → cria a conexão com o Excel.

2. Dim rs As Object → cria o recordset, que guarda o resultado da consulta.

3. conn.Open ... → conecta o Excel como se fosse um banco de dados.

4. strSQL = "SELECT * FROM [Clientes$]" → aqui está a SQL! O SELECT * significa "selecione todas as colunas da tabela Clientes".

5. rs.Open strSQL, conn → executa a consulta.

6. ws.Range("A1").CopyFromRecordset rs → joga os dados retornados para uma nova aba no Excel.

7. MsgBox → apenas mostra uma mensagem de sucesso.

---

5. Resultado esperado 📋

Depois de rodar a macro ListarClientes, você terá uma nova aba chamada Resultado_SQL, com a mesma lista de clientes que estava na planilha original.

Ou seja, seu primeiro SELECT no Excel via SQL foi executado com sucesso! 🚀

---

📌 O que você aprendeu hoje?

✅ Como usar SQL dentro do Excel.
✅ Como funciona o comando SELECT *.
✅ Como rodar uma consulta simples e trazer todos os dados de uma planilha.

---

👉 No próximo post, vamos aprender a filtrar registros usando o WHERE – por exemplo, listar apenas clientes de uma cidade específica.

---

📢 Precisa de ajuda contábil?

Sou contador especializado em profissionais de serviços. Posso ajudar você com:
✅ Abertura e registro de empresas no Simples Nacional
✅ Acompanhamento mensal da contabilidade
✅ Planejamento tributário para pagar menos impostos

💼 Entre em contato e simplifique sua vida financeira!