Conectando o Excel ao Access

Nesse artigo irei mostrar de forma simples como conectar o Excel ao ACCESS.

Para a conexão é necessário antes de tudo habilitar a biblioteca no seginte caminho: Alt + F11 > Ferramentas > Referências > Microsoft ActiveX Data Objects 2.7 Library.

VBA

Sub ConectaBanco()

  Dim cn As ADODB.Connection
  Dim strCon As String
  Dim sql As String
  Dim nomeBanco As String

  'RECEBE O NOME DO BANCO DE DADOS QUE PRECISA ESTAR NA MESMA PASTA DA PLANILHA CONTENDO
  nomeBanco = "seuBanco.accdb"

  'TRATAMENTO DE ERRO
  On Error Resume Next

  'DEFINIR A ESTRING DE CONEXÃO COM O BANCO DE DADOS ACCESS
  'IDENTIFIQUE A STRING CORRETA PARA A VERSÃO DO SEU OFFICE
  'ACESSE: https://www.connectionstrings.com/access/

  strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & nomeBanco

  Set cn = New ADODB.Connection
  cn.ConnectionString = strCon
  cn.Open

  'SE O STADO DA CONEXÃO FOR 1 ENTÃO A CONEXÃO FOI ESTABELECIDA, 
  'CASO SEJA 0, HOUVE ALGUMA FALHA DURANTE A CONEXÃO
  If cn.State = 1 Then
      MsgBox "Conexão Realizada com Sucesso", vbInformation
      Exit Sub
  Else
      MsgBox "Falha na Conexão, revise os parâmetro", vbCritical
  End If

  cn.Close
  Set cn = Nothing

End Sub

No próximo artigo irei mostrar como realizar um CRUD (Create, Read, Update e Delete).

Qualquer dúvida entre em contato conosco, com certeza vamos encontrar a melhor forma para resolver o seu problema! Até a próxima!