Conectar Banco de Dados no Excel VBA

Neste artigo aprenda como conectar banco de dados no VBA Excel consultar SQL no VBA.

No vídeo abaixo há o passo-a-passo e no artigo mais detalhes e dados da conexão e também o arquivo de download do exemplo.

Como Conectar Banco de Dados no VBA Excel

No exemplo que preparamos neste artigo você pode digitar a consulta SQL em uma célula e clicar em consultar.

Os dados são consultados e retornados automaticamente nas células logo abaixo.

Pode usar também scripts para inserir dados, alterar ou excluir dados, a forma de funcionamento é semelhante.

Banco de Dados Access de Teste

O nosso banco de dados de teste é um arquivo Access.

Ele é um banco de dados simplificado com duas tabelas, Acompanhamentos e Clientes.

Tabela de acompanhamentos de propostas de clientes.

Tabela com os dados cadastrais dos clientes.

Elas são conectadas pelo campo de ID do cliente, sendo um relacionamento 1 para muitos.

Como Conectar Banco de Dados no Excel VBA

No Excel acessamos o VBE, e clicamos em inserir, módulo.

A primeira questão é inserir a referência necessária.

No VBE clique em Ferramentas->Referências e marque a opção Microsoft ActiveX Data Objects 6.1 Library.

Esta biblioteca é necessárias para o banco de dados.

Nele colocamos o seguinte código fonte para conectar com o banco:

Dim gConexao As ADODB.Connection

Private Sub lsConectar()
    Dim strConexao As String
    Set gConexao = New ADODB.Connection
    
    strConexao = "Provider=Microsoft.ACE.OLEDB.12.0;Data " & _
    "Source=C:\BD\Base.accdb;Persist Security Info=False"
    
    gConexao.Open strConexao
End Sub

No script acima você coloca o seu caminho do arquivo e pode mudar também na string de conexão o banco que desejar.

No exemplo é um banco Access, mas pode usar qualquer outro banco de dados.

O código para desconectar do banco de dados no VBA é:

Private Sub lsDesconectar()
    If Not gConexao Is Nothing Then
        gConexao.Close
        Set gConexao = Nothing
    End If
End Sub

O código de desconexão é importante também para que o banco não fique "preso" à conexão.

E por fim temos a consulta realizada que cria a consulta e retorna não só os dados, como também os cabeçalhos dos campos no VBA Excel.

Public Sub lsConsultar()
    On Error GoTo sair
    
    Dim lrs As ADODB.Recordset
    Dim i   As Integer
    
    Set lrs = New ADODB.Recordset
    
    lsConectar
    lrs.Open Consultar.Range("lsql").Value, gConexao
    
    Consultar.Range("C10:Z1000").ClearContents
    
    'Cabeçalhos
    For i = 0 To lrs.Fields.Count - 1
        Consultar.Cells(10, i + 3).Value = lrs.Fields(i).Name
    Next i
    
    Consultar.Range("C11").CopyFromRecordset lrs
    
    Columns("C:Z").EntireColumn.AutoFit
    
sair:
    If Not lrs Is Nothing Then
        lrs.Close
        Set lrs = Nothing
    End If
    
    lsDesconectar
End Sub

Como resultado temos então a consulta do banco de dados que criamos, podendo também realizar scripts para inserir, alterar ou excluir dados, além de consultas.