Ser capaz de verificar o status de um driver ODBC através de uma conexão DSN usando o Visual Basic for Applications você pode economizar tempo , acabando com o seu programa , se a conexão ODBC não existe. VBA é usado em aplicativos do Microsoft Office para automatizar tarefas de rotina de outra forma feitas manualmente . No Excel , você pode usar o VBA para automatizar o processo de importação de dados de um banco de dados usando uma conexão ODBC. Instruções
1

Abra o Microsoft Office Excel. Clique na guia "Desenvolvedor" , seguido de " Visual Basic ". . Clique no menu "Inserir " e depois " Módulo " para inserir um novo módulo
2

Crie um novo procedimento sub:

Private Sub checkODBC ()

3

Crie as variáveis ​​de objeto que você irá usar para verificar o driver ODBC :

Dim adoCNN as ADODB.Connection

Dim CanConnect as Boolean

Set adoCNN = New ADODB.Connection
4

Defina o nome ODBC, o nome de login e senha :

adoCNN.Open "DSN name" , "username" , "password"

5

Verifique o estado do driver ODBC :

Se adoCNN.State = adStateOpen Então

CanConnect = True

adoCNN.Close

End If
6

Exibe uma caixa de mensagem informando o usuário sobre o estado da conexão ODBC:

Se CanConnect Então

MsgBox " conexão ODBC está pronto "

Else

MsgBox" conexão ODBC não está pronto ! "

End If End Sub

7

Pressione " F5" para executar o procedimento .